Discussion :

[guy68]

Bonjour,

A partir de ma macro Excel VBA j'utilise la routine suivante pour envoyer des Email par outlook :

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
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
 
    Set oOL = CreateObject("Outlook.Application")
    Set oOLMsg = oOL.CreateItem(0)
    With oOLMsg
        .Recipients.Add Mailrecipient
        .Subject = Mailsubject
        .Body = Mailbody
        .Importance = 0
        .SEND
    End With
    Set oOLMsg = Nothing
    Set oOLRecip = Nothing
    Set oOL = Nothing

J'ai essayé de combiner plusieurs adresses dans "Mailrecipient", sans succès!
Comment faire pour envoyer un mail à deux ou trois destinataires.

Une suggestion autre qu'une boucle ?

A+
Guy68

[Jean-Pierre49]

Bonsoir


Pour mes mails:
Avec reference Microsoft Outlouk 11.00 Object Library

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
                            Dim appOutLook              As Outlook.Application
                            Dim Email                   As String
                            Dim MonMessage              As Object
                            Dim Texte                   As String
 
    Set appOutLook = New Outlook.Application
    Set MonMessage = appOutLook.CreateItem(olMailItem)
 
    Email = "n.rrrrr@xxxxx.com;" & _
            "g.hhhhhh@xxxxx.com;" & _
            "m.ggggggg@xxxxx.com"
 
    With MonMessage
        .To = Email
        .CC = "c.ccccc@xxxxx.com"
        .Subject = "blablal"
        Texte = "blablalblablalblablalblablal"
        .HTMLBody = Texte
        .Display
    End With

Bon soir

[Peut-êtreUneRéponse]

Pas testé mais :

Code vba :

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
 
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
ListeTO As String
 
ListeTO = "aa@bb.com; bb@bb.com; cc@bb.com"
 
    Set oOL = CreateObject("Outlook.Application")
    Set oOLMsg = oOL.CreateItem(0)
    With oOLMsg
        .To = ListeTO
        .Subject = Mailsubject
        .Body = Mailbody
        .Importance = 0
        .SEND
    End With
    Set oOLMsg = Nothing
    Set oOLRecip = Nothing
    Set oOL = Nothing

[guy68]

Bonjour,

J'ai remplacé .Mailrecipient par .To. Et ça marche.
L'intuition était bonne.

Tant que j'y suis : et pour les pièces jointes on fait comment ?


Merci et à +
guy68

[Peut-êtreUneRéponse]

A tester :

Code vba :

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

.Attachments.Add "C:\monfichier.txt"

.

[guy68]

Super, ça marche aussi
Merci

guy68