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 26 27 28 29 30 31 32 33 34 35 36 37 38
| Sub envoiClasseur()
'ici on demande d'utiliser Outlook comme client de messagerie'
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.application")
Set MonMessage = MaMessagerie.Createitem(0)
'ici nous définissons les champs du mail'
'entre quillemet il faut indiquer les adresses mail'
MonMessage.to = "xxx@xxx.com"
'ici nous commencons la rédaction du mail'
MonMessage.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
'sujet du mail'
MonMessage = "Request form for facilitation"
'corps du mail'
contenu = "Dear feedback culture team,"
contenu = contenu & Chr(10) & Chr(13)
'les caractères Chr indique un saut de ligne'
contenu = contenu & "Please find attached the excel file for our request of facilitation" & Chr(10) & Chr(13)
contenu = contenu & "Regards" & Chr(10) & Chr(13)
MonMessage.body = contenu
'ici on provoque l'envoi du mail et de sa pièce jointe'
MonMessage.Send
'réinitialisation de la méssagerie'
Set MaMessagerie = Nothing
'Boite de dialogue qui confirme l'envoi du message et de sa pièce jointe'
MsgBox "Your Email has been sent"
End Sub |
Partager