Discussion :

[SlySylvain]

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 :

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

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.
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

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 MonMessage.display

[SlySylvain]

Super, cela fonctionne à merveille.

Merci !!!