Envoi Mail Plusieurs Adresses

Le
Alex
Bonjour à Tous,

Je viens à vous car je rencontre un problème sur l'envoi de mail via
Excel lorsque j'ai plusieurs destinataires. J'ai bien installé la
librairie Outlook et j'ai procédé comme suit :

Sub testmail()


Dim Ol As New Outlook.Application
Dim Message As MailItem
Dim Text As Object

Set Ol = New Outlook.Application
Set Message = Ol.CreateItem(olMailItem)
With Message
.Recipients.Add ("MARTIN Stéphanie")
.Recipients.Add ("DUPONT Kelly")
.Subject = "test envoi mail a plusieurs
correspondants"
.Body = "Bonjour,"

.Send

End With

End Sub

Mon souci, c'est que seul un des deux destinataires recoit le mail.
J'ai tenté aussi avec .To suivi de l'adresse mail entre "" , mais cela
me fait la même chose.
Quelqu'un connaitrait il la solution ?
Merci par avance de vos réponses.
Cordialement.
Alex
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #20299181
Bonjour.
Ton exemple fonctionne chez moi. Remplace ".Send" par ".Display" pour
visualiser le message créé.
Cordialement.
Daniel

Bonjour à Tous,

Je viens à vous car je rencontre un problème sur l'envoi de mail via
Excel lorsque j'ai plusieurs destinataires. J'ai bien installé la
librairie Outlook et j'ai procédé comme suit :

Sub testmail()


Dim Ol As New Outlook.Application
Dim Message As MailItem
Dim Text As Object

Set Ol = New Outlook.Application
Set Message = Ol.CreateItem(olMailItem)
With Message
.Recipients.Add ("MARTIN Stéphanie")
.Recipients.Add ("DUPONT Kelly")
.Subject = "test envoi mail a plusieurs
correspondants"
.Body = "Bonjour,"

.Send

End With

End Sub

Mon souci, c'est que seul un des deux destinataires recoit le mail.
J'ai tenté aussi avec .To suivi de l'adresse mail entre "" , mais cela
me fait la même chose.
Quelqu'un connaitrait il la solution ?
Merci par avance de vos réponses.
Cordialement.
Alex


papou
Le #20299901
Bonjour
En complément :
Fonctionne aussi pour moi sur Excel2007.
Si tu utilises .To, il faut construire ta liste de destinataires séparés par
des points-virgules dans une chaîne de texte unique.
Exemple
";;"


Cordialement
Pascal

"Alex"
Bonjour à Tous,

Je viens à vous car je rencontre un problème sur l'envoi de mail via
Excel lorsque j'ai plusieurs destinataires. J'ai bien installé la
librairie Outlook et j'ai procédé comme suit :

Sub testmail()


Dim Ol As New Outlook.Application
Dim Message As MailItem
Dim Text As Object

Set Ol = New Outlook.Application
Set Message = Ol.CreateItem(olMailItem)
With Message
.Recipients.Add ("MARTIN Stéphanie")
.Recipients.Add ("DUPONT Kelly")
.Subject = "test envoi mail a plusieurs
correspondants"
.Body = "Bonjour,"

.Send

End With

End Sub

Mon souci, c'est que seul un des deux destinataires recoit le mail.
J'ai tenté aussi avec .To suivi de l'adresse mail entre "" , mais cela
me fait la même chose.
Quelqu'un connaitrait il la solution ?
Merci par avance de vos réponses.
Cordialement.
Alex
Alex
Le #20300251
On 6 oct, 12:11, Daniel.C
Bonjour.
Ton exemple fonctionne chez moi. Remplace ".Send" par ".Display" pour
visualiser le message créé.
Cordialement.
Daniel



> Bonjour à Tous,

> Je viens à vous car je rencontre un problème sur l'envoi de mail vi a
> Excel lorsque j'ai plusieurs destinataires. J'ai bien installé la
> librairie Outlook et j'ai procédé comme suit :

> Sub testmail()

> Dim Ol As New Outlook.Application
> Dim Message As MailItem
> Dim Text As Object

> Set Ol = New Outlook.Application
>     Set Message = Ol.CreateItem(olMailItem)
>         With Message
>             .Recipients.Add ("MARTIN Stéphanie")
>             .Recipients.Add ("DUPONT Kelly")
>                         .Subject = "test envo i mail a plusieurs
> correspondants"
>             .Body = "Bonjour,"

>            .Send

>         End With

> End Sub

> Mon souci, c'est que seul un des deux destinataires recoit le mail.
> J'ai tenté aussi avec .To suivi de l'adresse mail entre "" , mais cel a
> me fait la même chose.
> Quelqu'un connaitrait il la solution ?
> Merci par avance de vos réponses.
> Cordialement.
> Alex- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Merci Je vais tester
LSteph
Le #20300371
Bonjour,

essaye ceci:

.Recipients.Add ("martin, stephanie; dupont, kelly")

ou encore

.Recipients.Add ("martin, stéphanie; dupont, kelly")

voire même variantes avec

.Recipients.Add ("MARTIN, Stéphanie; DUPONT, kelly")

....



--
lSteph

On 6 oct, 11:39, Alex
Bonjour à Tous,

Je viens à vous car je rencontre un problème sur l'envoi de mail via
Excel lorsque j'ai plusieurs destinataires. J'ai bien installé la
librairie Outlook et j'ai procédé comme suit :

Sub testmail()

Dim Ol As New Outlook.Application
Dim Message As MailItem
Dim Text As Object

Set Ol = New Outlook.Application
    Set Message = Ol.CreateItem(olMailItem)
        With Message
            .Recipients.Add ("MARTIN Stéphanie")
            .Recipients.Add ("DUPONT Kelly")
                        .Subject = "test envoi mail a plusieurs
correspondants"
            .Body = "Bonjour,"

           .Send

        End With

End Sub

Mon souci, c'est que seul un des deux destinataires recoit le mail.
J'ai tenté aussi avec .To suivi de l'adresse mail entre "" , mais cela
me fait la même chose.
Quelqu'un connaitrait il la solution ?
Merci par avance de vos réponses.
Cordialement.
Alex


Publicité
Poster une réponse
Anonyme