Bonjour messieurs,

J'ai actuellement le code suivant :

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
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
 
On Error Resume Next
    With OutMail
        .display
        .to = Liste_Dif
        .CC = Liste_Cc
        .Subject = "Titre"
        .HTMLBody = ""
 
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing

J'aimerais adapter ce code pour, non pas créer un mail en mode display ou send, mais le créer puis le stocker dans les brouillons de outlook.

Merci d'avance