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
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