Mail via macro
ugod21
Messages postés
10
Statut
Membre
-
kev -
kev -
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
A voir également:
- Mail via macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Windows live mail - Télécharger - Mail
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Comment télécharger un mail - Guide
2 réponses
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
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
