OVH Cloud OVH Cloud

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"

2 réponses

1 2
Avatar
Pascal Engelmajer
Salut Bernard,
http://www.ilyapa.net/baseExcel/courriel.zip
--
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" a écrit dans le message de
news: 685b01c42e99$5a818c50$
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 vais décortiquer tout ça !
Merci de ton aide, je vais essayer de pas revenir avec ce
problème
Bernard


-----Message d'origine-----
Salut Bernard,
http://www.ilyapa.net/baseExcel/courriel.zip
--
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" a écrit
dans le message de

news: 685b01c42e99$5a818c50$
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"








.




.






1 2