Je viens =E0 vous car je rencontre un probl=E8me sur l'envoi de mail via
Excel lorsque j'ai plusieurs destinataires. J'ai bien install=E9 la
librairie Outlook et j'ai proc=E9d=E9 comme suit :
Sub testmail()
Dim Ol As New Outlook.Application
Dim Message As MailItem
Dim Text As Object
Set Ol =3D New Outlook.Application
Set Message =3D Ol.CreateItem(olMailItem)
With Message
.Recipients.Add ("MARTIN St=E9phanie")
.Recipients.Add ("DUPONT Kelly")
.Subject =3D "test envoi mail a plusieurs
correspondants"
.Body =3D "Bonjour,"
.Send
End With
End Sub
Mon souci, c'est que seul un des deux destinataires recoit le mail.
J'ai tent=E9 aussi avec .To suivi de l'adresse mail entre "" , mais cela
me fait la m=EAme chose.
Quelqu'un connaitrait il la solution ?
Merci par avance de vos r=E9ponses.
Cordialement.
Alex
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 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
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
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
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" a écrit dans le message de news:
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
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
"toto@machin..fr;tata@truc.fr;titi@chose.fr"
Cordialement
Pascal
"Alex" <alex-m@orange.fr> a écrit dans le message de news:
10112eca-cdf5-4865-8054-0e7dff35ca38@v20g2000vbs.googlegroups.com...
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
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" a écrit dans le message de news:
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
On 6 oct, 12:11, Daniel.C wrote:
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
On 6 oct, 12:11, Daniel.C <dcolardelle...@gmail.com> wrote:
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 -
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 -
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
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
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