Q : Comment supprimer le message d'avertissement d'Outlook lors de l'envoi d'un mail via Excel en VBA ?
Réponse : Voici la solution :
Je laisse les modérateurs et responsables juger si cette macro doit apparaitre dans la FAQ, car elle me semble quand meme importante
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Sub test() Dim MonOutlook As Object Dim MonMessage As Object Dim Corps As String Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.To = "toto@toto.com" MonMessage.CC = "ousk@mode.com" MonMessage.Subject = "il fait beau chez vos ?" Corps = "Bonjour," & vbCrLf & vbCrLf Corps = Corps & "Veuillez trouver ci-joint le fichier." & vbCrLf & vbCrLf & "Cordialement." MonMessage.body = Corps MonMessage.Attachments.Add ActiveWorkbook.FullName MonMessage.Display SendKeys "^{ENTER}" Set MonOutlook = Nothing End Sub
Cordialement.
Partager