Demande de correction d'une macro SVP

[lilicoco]

Bonjour à tous

J'aurais besoin de votre aide pour apporter une correction à une macro que je ne parviens pas à écrire
correctement

Voici la Macro (envoi d'un mail auto)

Sub sendmail()
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error GoTo ende
With OutMail
.To = "toto@mail.fr","titi@mail.fr","toutou@mail.fr"
.cc = "loulou@mail.fr"
.Subject = "Nouvelles "
.body = "Bonjour, voici des nouvelles "
.attachments.Add ActiveWorkbook.FullName
.Display
.send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
ende:
End Sub


Ce qui ne marche pas :
L'envoi à plusieurs destinataires, sachant que tout est correct avec 1 seul destinataire dans le champs "To ="

et je souhaite dans le "body", un retour à la ligne après "Bonjour"


Merci beaucoup de votre aide

Lili

 

[MJ13]

Re : Demande de correction d'une macro SVP

Bonjour Lilicoco

As tu essayé de rajouter un crlf dans le code avec & comme concaténateur (ça se dit ) ?

 

[gilbert_RGI]

Re : Demande de correction d'une macro SVP

Bonjour

Peut être en mettant les destinataires dans un array puis faire une boucle

 

[lilicoco]

Re : Demande de correction d'une macro SVP

MJ13 et Gilbert, merci de votre réponse rapide

Mais je dois vous avouer ne rien connaitre à la syntaxe VBA, j'ai récupéré cette macro dans le Forum et elle fonctionnait très bien jusqu'au moment où j'ai eu besoin de plusieurs dest.
J'ai essayé de "bidouiller" par moi-même en allant dans certains post de ce Forum, et en tâchant de prendre les propositions les plus simples ....

C'est pourquoi vos propositions sont pour moi une sorte de formule magique que je suis incapable de comprendre ... désolée

Pouvez vous avoir la gentillesse de m'écrire la ligne à corriger SVP ?

Merci d'avance

 

[gilbert_RGI]

Re : Demande de correction d'une macro SVP

voilà une suggestion à tester

Sub sendmail()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
rep = Array("toto@mail.fr", "titi@mail.fr" , "toutou@mail.fr")
On Error GoTo ende
For i = 0 To 2
With OutMail
.To = rep(i)
.cc = "loulou@mail.fr"
.Subject = "Nouvelles "
.body = "Bonjour, voici des nouvelles "
.attachments.Add ActiveWorkbook.FullName
.Display
.send
End With
Next
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
ende:
End Sub

 

[lilicoco]

Re : Demande de correction d'une macro SVP

J'ai un message d'erreur de compilation et de syntaxe sur les lignes suivantes qui se mettent en rouge

rep = Array("toto@mail.fr", "titi@mail.fr", "toutou@mail.fr")

.cc = "loulou@mail.fr"

merci

 

[lilicoco]

Re : Demande de correction d'une macro SVP

Gilbert

désolée cette macro fonctionne très bien !!!

juste une erreur de saisie de ma part

un énorme merci !!!!!!!!!!!!!!!

 

[gilbert_RGI]

Re : Demande de correction d'une macro SVP

Gilbert

désolée cette macro fonctionne très bien !!!

juste une erreur de saisie de ma part

un énorme merci !!!!!!!!!!!!!!!

possible j'ai eu quelques petits problèmes pour mettre le texte entre quote

 

[gilbert_RGI]

Re : Demande de correction d'une macro SVP

Si vous voulez ajouter des destinataires il faut modifier le 2 du for next par le nombre de destinataires - 1