1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Sub EnvoiMail() ' Déclaration des variables utilisées dans le code
Dim OutObj As Object, Email As Object
' Création d'une instance Outlook pour envoyer un mail
Set OutObj = CreateObject("Outlook.Application")
Set Email = OutObj.CreateItem(0)
' Avec mon objet Email
With Email
.Display ' Afficher le mail pour afficher la signature
' Destinataire(s) du mail
.To = "emaildestinataire@fai.fr"
' Copie du mail
.CC = "emaildestinataire@fai.fr"
' Sujet de l'eMail
.Subject = "Ceci est le sujet de mon mail"
' Corps du mail avec signature à la fin
.HtmlBody = "Bonjour," & "<BR><BR>" _
& "Ceci est un exemple<BR><BR>" & .HtmlBody
' Si on veut joindre un fichier
'.Attachments.Add "C:\Temp\Test.pdf"
' Envoyer l'email
'.Send
End With
' Effacer les variable objet
Set Email = Nothing: Set OutObj = Nothing
End Sub |
Partager