Discussion :

[juluseless]

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

[vinc_bilb]

Bonjour,

.Save à rajouter selon moi dans et peut-être supprimer le '.display'

Code :

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

1
2
3
4
5
6
7
8
9
 
With OutMail
        .display
        .to = Liste_Dif
        .CC = Liste_Cc
        .Subject = "Titre"
        .HTMLBody = ""
 
    End With

[juluseless]

Bien vu ... c'était simple j'aurais pu m'en sortir tout seul ...

A savoir qu'il faut par contre mettre le point save à la fin sinon le mail sauvegardé est vide.

Si jamais tu sais comment ajouter une signature outlook je suis également preneur.

[vinc_bilb]

Rebonjour,

Non, je ne sais pas faire, sachant que c'est une propriété outlook et je ne pense pas que la signature soit pilotable par VBA Excel ....
Autre possibilité, la rajouter systématiquement dans le corps du message (Msbd ci-dessous)....

Ci-joint un exemple non optimisé

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Sub Sol_Exo_92()
'=============================================================================
' Build the email
    Subname = "Sol_Exo_92"
 
    Dim TOlist As Variant, CClist As Variant
    Dim Attach_file As Boolean
    Dim oOApp, oOMail, olMailItem
    Dim Mailsubj As String, Msbd As String
 
    ThisWorkbook.Activate
 
        ' Option to attach the file or not with the message
    If Range("T_ATTACHF") = True Then Attach_file = True
 
        ' Get the TOlist and CClist, the usage of Cstr allows a compatibility of the parameters of the get_eamil_list function
    Set TOlist = get_email_list(CStr("TO"))
    Set CClist = get_email_list(CStr("CC"))
 
        ' Remove the names in CC already presents in TOLIST
    If Not (IsEmpty(CClist)) Then
        Call remove_dupplic_CCnames(TOlist, CClist)
        CClist = conv_coll2Str(CClist, ", ")    ' Convert the collection to string
    End If
 
    If IsEmpty(TOlist) Then Exit Sub    ' Exit if TOlist is empty, otherwise convert to string
    TOlist = conv_coll2Str(TOlist, ", ")
 
        ' Build the subject
    Mailsubj = "VBA training : " & ThisWorkbook.Name & " - " & " (" & Format(DateValue(Now()), "dd-mmm-yy") & ")"
 
        ' Build the message body
    Msbd = "<p> This is an exemple of using VBA for another MS application (Outlook) : </b> </p>"
    Msbd = Msbd & "<p> See the module 9 in the attached file </b> </p>"
    Msbd = Msbd & "Thanks and Best Regards. <br>"
    Msbd = Msbd & "Automatic email by VBA Sol_Exo_92 macro"
 
        'Sending Mail
    Set oOApp = CreateObject("Outlook.Application")
    Set oOMail = oOApp.CreateItem(olMailItem)
 
    With oOMail
        .To = TOlist
        .CC = CClist
        .Subject = Mailsubj
        .HTMLBody = Msbd
        If Attach_file = True Then
            .Attachments.Add ThisWorkbook.FullName
        End If
'        .Save
        .Display
    End With
 
End Sub

[Oliv-]

Salut,
Si c'est une signature par défaut, le .display au début la fera apparaître par contre le .htmlbody="test" va l'écraser.

http://www.developpez.net/forums/d13...e/#post7576114