J'ai un petit probl=E8me avec l'envoi de mail via Excel.
J'ai un tableau avec dans une premi=E8re colonne l'adresse mail de mes
destinataires et dans une deuxi=E8me un num=E9ro =E0 leur envoyer.
J'arrive =E0 cr=E9er les mails mais mon probl=E8me c'est que j'ai parfois
plusieurs codes =E0 envoyer =E0 un m=EAme destinataire. Avec ma macro,
excel envoie un mail par ligne. Or, comme je suis encore une bonne
grosse bille en VBA, je n'arrive pas =E0 faire une boucle qui me mette
tous les codes destin=E9s au m=EAme utilisateur dans un seul mail.
Si quelqu'un a une id=E9e et se sent d'=E2me charitable aujourd'hui...
Bonjour, peut etre envoyer le code de la macro, ca nous aiderais
vincent.topsent
Dim ol As Object Oui tu as raison. Autant pour moi..
Voici:
Dim unitem As Object Set ol = CreateObject("outlook.application") Set unitem = ol.CreateItem(olMailItem) unitem.To = [A1].Text unitem.Subject = [A2].Text unitem.body = [A3].Text unitem.Send ol.Quit
Perso ce qui m'insupporte profondément c'est d'être capable de faire ça mais pas de faire une boucle. Quand je dis que je suis une bille...
Ps: de plus à chaque fois que j'envoie un mail par ce biais, outlook me demande une confirmation par sécurité. N'y a t'il pas moyen de faire sauter ce bloquage (si je dois cliquer 150 fois sur Oui, je risque fort de finir par intenter à mes jours ou à ceux de mes collègues!!!!!)
Dim ol As Object
Oui tu as raison. Autant pour moi..
Voici:
Dim unitem As Object
Set ol = CreateObject("outlook.application")
Set unitem = ol.CreateItem(olMailItem)
unitem.To = [A1].Text
unitem.Subject = [A2].Text
unitem.body = [A3].Text
unitem.Send
ol.Quit
Perso ce qui m'insupporte profondément c'est d'être capable de faire
ça mais pas de faire une boucle. Quand je dis que je suis une bille...
Ps: de plus à chaque fois que j'envoie un mail par ce biais, outlook
me demande une confirmation par sécurité. N'y a t'il pas moyen de
faire sauter ce bloquage (si je dois cliquer 150 fois sur Oui, je
risque fort de finir par intenter à mes jours ou à ceux de mes
collègues!!!!!)
Dim ol As Object Oui tu as raison. Autant pour moi..
Voici:
Dim unitem As Object Set ol = CreateObject("outlook.application") Set unitem = ol.CreateItem(olMailItem) unitem.To = [A1].Text unitem.Subject = [A2].Text unitem.body = [A3].Text unitem.Send ol.Quit
Perso ce qui m'insupporte profondément c'est d'être capable de faire ça mais pas de faire une boucle. Quand je dis que je suis une bille...
Ps: de plus à chaque fois que j'envoie un mail par ce biais, outlook me demande une confirmation par sécurité. N'y a t'il pas moyen de faire sauter ce bloquage (si je dois cliquer 150 fois sur Oui, je risque fort de finir par intenter à mes jours ou à ceux de mes collègues!!!!!)
