Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Copie caché Outlook dans macro excell

Copie caché Outlook dans macro excell

12 réponses
Avatar
Bernard SIMON
Bonsoir,=20

Je me sers de cette macro pour envoyer depuis excel un=20
fichier =E0 beaucoup de destinataire (pour le moment une=20
cinquantaine). Je n'arrive pas =E0 trouver la solution pour=20
qu'ils soient tous en copie cach=E9e. Est-ce possible ?

Merci de votre aide pr=E9cieuse

Dim ol As Object, myItem As Object
Set ol =3D CreateObject("outlook.application")
Set myItem =3D ol.CreateItem(olmailitem)
myItem.to =3D "xxx1@toto.fr;xxx@toto.fr.........etc"
myItem.Subject =3D " sujet")
myItem.Body =3D "corps du message "
Set myAttachments =3D myItem.Attachments
myAttachments.Add "c:\TABLEAUX\Internet.xls"
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Himselff
Tu peux simplement mettre

myItem.to son adresse
myItem.cc toute les autres adresse !

Bonne chance !

Fred
"Bernard SIMON" wrote in message
news:5fc801c42e00$32eb84f0$
Bonsoir,

Je me sers de cette macro pour envoyer depuis excel un
fichier à beaucoup de destinataire (pour le moment une
cinquantaine). Je n'arrive pas à trouver la solution pour
qu'ils soient tous en copie cachée. Est-ce possible ?

Merci de votre aide précieuse

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = ";"
myItem.Subject = " sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"
Avatar
Pascal Engelmajer
Salut il s'agit la propriété BCC de l'objet MyItem
MyItem.BCC
mais je pense qu'il faut un MyItem.To (qui peut être toi même)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Bernard SIMON" a écrit dans le
message de news: 5fc801c42e00$32eb84f0$
Bonsoir,

Je me sers de cette macro pour envoyer depuis excel un
fichier à beaucoup de destinataire (pour le moment une
cinquantaine). Je n'arrive pas à trouver la solution pour
qu'ils soient tous en copie cachée. Est-ce possible ?

Merci de votre aide précieuse

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = ";"
myItem.Subject = " sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"
Avatar
Merci beaucoup du tuyau !
Bonne soirée
-----Message d'origine-----
Tu peux simplement mettre

myItem.to son adresse
myItem.cc toute les autres adresse !

Bonne chance !

Fred
"Bernard SIMON"
wrote in message

news:5fc801c42e00$32eb84f0$
Bonsoir,

Je me sers de cette macro pour envoyer depuis excel un
fichier à beaucoup de destinataire (pour le moment une
cinquantaine). Je n'arrive pas à trouver la solution pour
qu'ils soient tous en copie cachée. Est-ce possible ?

Merci de votre aide précieuse

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = ";"
myItem.Subject = " sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"


.



Avatar
Himselff
Hehe désolé pour le .cc petite faute de frappe et oui tu na pas le choix de
mettre ton .to

Bonne chance!

Fred
"Pascal Engelmajer" wrote in message
news:
Salut il s'agit la propriété BCC de l'objet MyItem
MyItem.BCC
mais je pense qu'il faut un MyItem.To (qui peut être toi même)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Bernard SIMON" a écrit dans le
message de news: 5fc801c42e00$32eb84f0$
Bonsoir,

Je me sers de cette macro pour envoyer depuis excel un
fichier à beaucoup de destinataire (pour le moment une
cinquantaine). Je n'arrive pas à trouver la solution pour
qu'ils soient tous en copie cachée. Est-ce possible ?

Merci de votre aide précieuse

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = ";"
myItem.Subject = " sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"




Avatar
Bonsoir,

Jai testé ta méthode, l'administrateur system n'a pas
apprécié! destinataires inconnus; pour l'autre méthode
que je dois re-testée car je crois que tous les
destinataires apparaissent quand même... mais je fais le
test avec mon adresse et peut-être qu'il ne vaut mieux
pas !


-----Message d'origine-----
Salut il s'agit la propriété BCC de l'objet MyItem
MyItem.BCC
mais je pense qu'il faut un MyItem.To (qui peut être toi
même)

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."

Sénèque.
http://www.ilyapa.net/excel
"Bernard SIMON" a
écrit dans le

message de news: 5fc801c42e00$32eb84f0
$

Bonsoir,

Je me sers de cette macro pour envoyer depuis excel un
fichier à beaucoup de destinataire (pour le moment une
cinquantaine). Je n'arrive pas à trouver la solution pour
qu'ils soient tous en copie cachée. Est-ce possible ?

Merci de votre aide précieuse

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = ";"
myItem.Subject = " sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"


.



Avatar
Himselff
La meilleur chose a faire quand tu as beaucoup de mail a envoyer comme sa
est de te créer une boucle qui envoie les courriels un par un comme sa il
n'y a pas de problème, que ce soit sur les filtres de spam ou n'importe
quelles autres raisons, et tu peux même valider l'adresse du destinataire
pour éviter justement que tu génère trop de problème à ton Admin =)

Suposon que tu ais 3 adresses dans 3 cellules diferentes

Dim ol As Object, myItem As Object

for x = 1 to 3
if instr(cells(x,1),@) = true then
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = cells(x,1)
myItem.Subject = ("sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"
end if
next

comme sa il va envoyer un mail par personne et passer quand même tout les
adresses valide de ta liste !

Bonne Chance !

Fred
wrote in message
news:5fc101c42e0a$01c42940$
Bonsoir,

Jai testé ta méthode, l'administrateur system n'a pas
apprécié! destinataires inconnus; pour l'autre méthode
que je dois re-testée car je crois que tous les
destinataires apparaissent quand même... mais je fais le
test avec mon adresse et peut-être qu'il ne vaut mieux
pas !


-----Message d'origine-----
Salut il s'agit la propriété BCC de l'objet MyItem
MyItem.BCC
mais je pense qu'il faut un MyItem.To (qui peut être toi
même)

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."

Sénèque.
http://www.ilyapa.net/excel
"Bernard SIMON" a
écrit dans le

message de news: 5fc801c42e00$32eb84f0
$

Bonsoir,

Je me sers de cette macro pour envoyer depuis excel un
fichier à beaucoup de destinataire (pour le moment une
cinquantaine). Je n'arrive pas à trouver la solution pour
qu'ils soient tous en copie cachée. Est-ce possible ?

Merci de votre aide précieuse

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = ";"
myItem.Subject = " sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"


.



Avatar
LeSteph
Je penses que certains vont recevoir
de nombreux messages si ce n'est pas déjà le cas!!!!???...
Tu peux aussi imbriquer une boucle While sur My Item.To
avec ton adresse...

"Pascal Engelmajer" a écrit dans le
message de news:
Salut il s'agit la propriété BCC de l'objet MyItem
MyItem.BCC
mais je pense qu'il faut un MyItem.To (qui peut être toi même)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Bernard SIMON" a écrit dans le
message de news: 5fc801c42e00$32eb84f0$
Bonsoir,

Je me sers de cette macro pour envoyer depuis excel un
fichier à beaucoup de destinataire (pour le moment une
cinquantaine). Je n'arrive pas à trouver la solution pour
qu'ils soient tous en copie cachée. Est-ce possible ?

Merci de votre aide précieuse

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = ";"
myItem.Subject = " sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"




Avatar
Pascal Engelmajer
Salut,
jai un classeur avec un exemple d'envoi suivant critères avec diverses
options.
si vous êtes interressés...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"LeSteph" a écrit dans le message de news:
4091693a$0$17601$
Je penses que certains vont recevoir
de nombreux messages si ce n'est pas déjà le cas!!!!???...
Tu peux aussi imbriquer une boucle While sur My Item.To
avec ton adresse...

"Pascal Engelmajer" a écrit dans le
message de news:
Salut il s'agit la propriété BCC de l'objet MyItem
MyItem.BCC
mais je pense qu'il faut un MyItem.To (qui peut être toi même)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Bernard SIMON" a écrit dans le
message de news: 5fc801c42e00$32eb84f0$
Bonsoir,

Je me sers de cette macro pour envoyer depuis excel un
fichier à beaucoup de destinataire (pour le moment une
cinquantaine). Je n'arrive pas à trouver la solution pour
qu'ils soient tous en copie cachée. Est-ce possible ?

Merci de votre aide précieuse

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = ";"
myItem.Subject = " sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"








Avatar
Bernard
Bonjour,

Suis très interessé par votre classeur car n'arrive pas à
grand chose
Merci d'avance


-----Message d'origine-----
Salut,
jai un classeur avec un exemple d'envoi suivant critères
avec diverses

options.
si vous êtes interressés...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."

Sénèque.
http://www.ilyapa.net/excel
"LeSteph" a écrit dans le message de
news:

4091693a$0$17601$
Je penses que certains vont recevoir
de nombreux messages si ce n'est pas déjà le
cas!!!!???...


Tu peux aussi imbriquer une boucle While sur My
Item.To


avec ton adresse...

"Pascal Engelmajer"
a écrit dans le


message de
news:


Salut il s'agit la propriété BCC de l'objet MyItem
MyItem.BCC
mais je pense qu'il faut un MyItem.To (qui peut être
toi même)



--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne
sait pas ou il va."



Sénèque.
http://www.ilyapa.net/excel
"Bernard SIMON"
a écrit dans le



message de news: 5fc801c42e00$32eb84f0
$



Bonsoir,

Je me sers de cette macro pour envoyer depuis excel
un



fichier à beaucoup de destinataire (pour le moment
une



cinquantaine). Je n'arrive pas à trouver la solution
pour



qu'ils soient tous en copie cachée. Est-ce possible ?

Merci de votre aide précieuse

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = ";"
myItem.Subject = " sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"








.





Avatar
Bonjour,

Je viens de tester. Dans un premier temps, VB ne
reconnaissait pas le signe @. j'ai donc ajouter (à
tord ?) des "". VB lit bien 3 fois la boucle mais il
n'envoie rien (j'ai mis trois fois mon adresse @mail sur
une feuille en a1, a2, a3) mais n'est rien reçu, ai-je
bien fait?



-----Message d'origine-----
La meilleur chose a faire quand tu as beaucoup de mail a
envoyer comme sa

est de te créer une boucle qui envoie les courriels un
par un comme sa il

n'y a pas de problème, que ce soit sur les filtres de
spam ou n'importe

quelles autres raisons, et tu peux même valider
l'adresse du destinataire

pour éviter justement que tu génère trop de problème à
ton Admin =)


Suposon que tu ais 3 adresses dans 3 cellules diferentes

Dim ol As Object, myItem As Object

for x = 1 to 3
if instr(cells(x,1),@) = true then
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = cells(x,1)
myItem.Subject = ("sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"
end if
next

comme sa il va envoyer un mail par personne et passer
quand même tout les

adresses valide de ta liste !

Bonne Chance !

Fred
wrote in message
news:5fc101c42e0a$01c42940$
Bonsoir,

Jai testé ta méthode, l'administrateur system n'a pas
apprécié! destinataires inconnus; pour l'autre méthode
que je dois re-testée car je crois que tous les
destinataires apparaissent quand même... mais je fais le
test avec mon adresse et peut-être qu'il ne vaut mieux
pas !


-----Message d'origine-----
Salut il s'agit la propriété BCC de l'objet MyItem
MyItem.BCC
mais je pense qu'il faut un MyItem.To (qui peut être toi
même)

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."

Sénèque.
http://www.ilyapa.net/excel
"Bernard SIMON" a
écrit dans le

message de news: 5fc801c42e00$32eb84f0
$

Bonsoir,

Je me sers de cette macro pour envoyer depuis excel un
fichier à beaucoup de destinataire (pour le moment une
cinquantaine). Je n'arrive pas à trouver la solution
pour


qu'ils soient tous en copie cachée. Est-ce possible ?

Merci de votre aide précieuse

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olmailitem)
myItem.to = ";"
myItem.Subject = " sujet")
myItem.Body = "corps du message "
Set myAttachments = myItem.Attachments
myAttachments.Add "c:TABLEAUXInternet.xls"


.




.




1 2