VBA + MAILS

Question

J'ai réussi a trouver un code VBA afin d'envoyer un mail+PJ ( page active du classeur) via Outlook + corps de texte. Les mails des destinataires sont dans la feuille n°2 de mon classeur ( renommée "MAIL'). Cependant, je n'arrive pas a utiliser ces adresses comme destinataire. WithOLmail .To = &#91;B95&#93; .CC = "" .Subject = "Rapport avec .TO, je n'arrive pas lier autre chose qu'une cellule ou adresse mail.... j'aimerais en l'occurrence envoyer ce mail aux destinataires présents dans la feuill MAIL. Avec un autre code j'ai réussi à trouver une solution, grâce à ce code=&gt; Dest = Sheets("MAIL").Range("A1:A199").Value Cependant, avec ce dernier je n'arrive plus a envoyer de corps de mail.... Avec la fonction SENDMAIL ça ne fonctionne pas. J'ai essayé de "bidouiller" en vain. Quelqu'un pour m'aider ?? Par avance MERCI ! ci dessous le code permettant d'envoyer mon mail à ma liste présente dans la feuilleMAIL mais ... au détriment de mon corps de texte. Sub EnvoiMail2() 'Texte = Texte & "Bonjour," & vbCrLf 'Texte = Texte & vbCrLf 'Texte = Texte & "Vous trouverez ci-joint " & vbCrLf 'Texte = Texte & vbCrLf 'Texte = Texte & "Cordialement" & vbCrLf 'Texte = Texte & vbCrLf 'Texte = Texte & "" & vbCrLf ' Loop to cycle through each cell in the specified range. For Each x In Range("G15:G15") ' Change the text in the range to uppercase letters. x.Value = UCase(x.Value) Next Dest = Sheets("MAIL").Range("A1:A199").Value Sujet = "Envoi d'une " Body = Texte ActiveWorkbook.SendMail Dest, Sujet, True Application.DisplayAlerts = False Application.DisplayAlerts = True End Sub...

James007 · Answer

Si tu réussis à envoyer ton mail à la première adresse de ta feuille MAIL ... il te sufifit ensuite d'ajouter une boucle pour balayer toute la plage des destinataires .... En espèrant que cela t'aide .....