Discussion :

[Djohn]

Bonjour,

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

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 :

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

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

[SilkyRoad]

bonjour


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

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 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

[Djohn]

génial

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