Discussion :

[illight]

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.

[SfJ5Rpw8]

faudrai rajouter la version d'outlook ... 2003 je suppose ( moi avec ma 2002, j'ai pas cette fameuse boîte YesNO )

[illight]

Oui pardon, c'est effectivement Outlook 2003