Bonsoir,
J'ai récupéré le code suivant qui permet d'envoyer un message via outlook.
Mais comment ouvrir le massage afin de le modifier?
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 Private Sub lst_results_DblClick(Cancel As Integer) On Error GoTo Err_Command27_Click Dim MonOutlook As Object Dim MonMessage As Object Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.To = "truc@machin.com" MonMessage.Open Set MonOutlook = Nothing Exit Sub Err_Command27_Click: MsgBox ("erreur lors de l'ouverture d'outlook") Resume Exit_Command27_Click Exit_Command27_Click: Exit Sub End Sub
J'ai essayé avec MonMessage.Open, cela ne onctionne pas.
Merci de vos idées!!
Partager