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 |
