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 : 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
Je laisse les modérateurs et responsables juger si cette macro doit apparaitre dans la FAQ, car elle me semble quand meme importante

Cordialement.