Bonjour,
Je cherche à envoyer de puis Excel un mail via Outlook. A l'aide du code suivant, l'opération fonctionne convenablement, même trop :
Le destinataire est déterminé dans la macro en fonction d'information contenu dans ma feuille Excel. Cette macro me permet d'envoyer automatiquement un mail depuis Excel.
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
18
19 Dim MonOutlook, MonMessage As Object Dim Corps As String Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = "destinataire" MonMessage.Subject = "DTL-Accessoires : " & Mid(ActiveWorkbook.Name, 1, 16) Corps = "Bonjour," MonMessage.body = Corps MonMessage.Send Set Raccourci = Nothing Set MonOutlook = Nothing
Ce que je cherche à faire, c'est passé par la fenêtre du message lorsque le destinataire n'est pas connu. Il faudrait donc pouvoir afficher la fenêtre du message, sans l'envoyer.
Merci pour votre aide
Partager