Mail via macro
Bonjour à tous,
Je cherche à envoyer un mail à plusieurs destinataires via une macro.
Le problème c'est pour un destinataire pas de problème, mais pour deux... la galère.
Please help me
thanks
ugod21
Set MAILOBJ = CreateObject("Outlook.Application") 'appel outlook
Set mail = MAILOBJ.CreateItem(olMailItem) 'nouveau mail
With mail '
.To = "xxxxxx@viveleweb.com"
.Subject = "Alerte Budget" 'SUJET
.BODY = "---------" 'CORPS DU MESSAGE
.SEND
End With
Je cherche à envoyer un mail à plusieurs destinataires via une macro.
Le problème c'est pour un destinataire pas de problème, mais pour deux... la galère.
Please help me
thanks
ugod21
Set MAILOBJ = CreateObject("Outlook.Application") 'appel outlook
Set mail = MAILOBJ.CreateItem(olMailItem) 'nouveau mail
With mail '
.To = "xxxxxx@viveleweb.com"
.Subject = "Alerte Budget" 'SUJET
.BODY = "---------" 'CORPS DU MESSAGE
.SEND
End With
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
cette formule marche très bien mais j'aimerais mettre le contenu d'une feuille excel dans le corps du mail pour pouvoir envoyer les besoins de pièces à un sous-traitant.
merci d'avance -
Salut
essayes ça mais il faut que tu crées une iste de distribution dans outlook qu'on appelera ici groupe_X
Sub Envoie_mail()
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
'lance une session outlook
Set appOutlook = CreateObject("Outlook.Application")
'créer un nouveau message
Set message = appOutlook.CreateItem(olMailItem)
With message
'titre, texte, destinataires
.Subject = "Alerte Budget"
.Body = "ton text"
.BodyFormat = olFormatHTML
.Recipients.Add ("groupe_X")
'envoie du message
.Send
End With
End Sub
