Problème pour envoyer un e-mail

Version imprimable

Bonjour,

C'est encore moi, pour un nouveau problème, :lol:

j'ai crée une macro qui me permet d'envoyer un mail à une personne qui fonctionne bien,

par contre en destinataire j'ai choisi d'insérer une 2eme personne, et j'ai une erreur de syntaxe, j'ai essayé diverses solution variées qui ne fonctionne pas, auriez vous une solution,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 Dim ObjOutl As Object 'Déclaration des objets
        Dim objSession As Object
            Set ObjOutl = CreateObject("Outlook.Application") 'Création de l'objet Outlook
            Set objSession = ObjOutl.GetNamespace("MAPI") 'Création de l'objet de gestion des message
            Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message
            objSession.Logon 'Connection à Outlook
            With ObjMessage
                .to = "mail1@truc.com" ,  "mail2@truc.com" ' CA CLOCHE ICI ERREUR DE SYNTAXE
                .Subject = " bonjour le forum :)"
                .Body = " blablablabla"
                                .Send
            End With

Encore merci à vous

bonjour

J'espère que cet exemple pourra t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim ObjOutl As Object 'Déclaration des objets
Dim objSession As Object
Dim Dest As Object
 
Set ObjOutl = CreateObject("Outlook.Application") 'Création de l'objet Outlook
Set objSession = ObjOutl.GetNamespace("MAPI") 'Création de l'objet de gestion des message
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message
 
objSession.Logon 'Connection à Outlook
 
Set Dest = ObjMessage.Recipients.Add("destinataire1@mail.com")
Set Dest = ObjMessage.Recipients.Add("destinataire2@provider.com")
'exemple si item present dans la liste des contacts
'Set Dest = ObjMessage.Recipients.Add("Prenom1 Nom1")
 
With ObjMessage
    .Subject = "Le sujet"
    .Body = "le texte ...."
    .Send
End With

bone soirée
michel

30/07/2007, 18h59
Djohn

génial

J'espere qu'avec le temps j'atteindrai un jour votre niveau de connaissance ;)