[VBA-E]Enlever le message d'avertissement d'Outlook 2003 lors d'envoi de mail
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 :
Code:
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 |
Je laisse les modérateurs et responsables juger si cette macro doit apparaitre dans la FAQ, car elle me semble quand meme importante :)
Cordialement.
