Bonjour,
Habituellement, un point virgule entre les destinataires sont suffisants
Tout ce que tu veux savoir sur ce site :
http://www.rondebruin.nl/cdo.htm#Tips
L'exemple comporte 2 adresses fixes + le contenu de la cellule A1 de la
feuille Feuil1
Feuil1 représente la propriété Name de l'objet Feuille et non le no m de
l'onglet.
'-------------------------------------
Sub EnvoiMail_Par_CDO()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As St ring
Expéditeur = "Expé"
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
'FichierAttaché = "Adresse et nom du fichier à joindre"
ServeurSMTP = "smtp.Serveur"
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """"";"""";"" &
Feuil1.Range(""A1"") & """
.Subject = Sujet
.TextBody = TexteMessage
If FichierAttaché <> "" Then
.AddAttachment FichierAttaché
End If
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpo rt")
= 25
.Update
End With
.Send
End With
End Sub
'-------------------------------------
MichD
---------------------------------------------------------------
Bonjour,
Habituellement, un point virgule entre les destinataires sont suffisants
Tout ce que tu veux savoir sur ce site :
http://www.rondebruin.nl/cdo.htm#Tips
L'exemple comporte 2 adresses fixes + le contenu de la cellule A1 de la
feuille Feuil1
Feuil1 représente la propriété Name de l'objet Feuille et non le no m de
l'onglet.
'-------------------------------------
Sub EnvoiMail_Par_CDO()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As St ring
Expéditeur = "Expéditeur@Serveur"
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
'FichierAttaché = "Adresse et nom du fichier à joindre"
ServeurSMTP = "smtp.Serveur"
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """Destinataire1@Serveur"";""Destinataire2@Serveur"";"" &
Feuil1.Range(""A1"") & """
.Subject = Sujet
.TextBody = TexteMessage
If FichierAttaché <> "" Then
.AddAttachment FichierAttaché
End If
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpo rt")
= 25
.Update
End With
.Send
End With
End Sub
'-------------------------------------
MichD
---------------------------------------------------------------
Bonjour,
Habituellement, un point virgule entre les destinataires sont suffisants
Tout ce que tu veux savoir sur ce site :
http://www.rondebruin.nl/cdo.htm#Tips
L'exemple comporte 2 adresses fixes + le contenu de la cellule A1 de la
feuille Feuil1
Feuil1 représente la propriété Name de l'objet Feuille et non le no m de
l'onglet.
'-------------------------------------
Sub EnvoiMail_Par_CDO()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As St ring
Expéditeur = "Expé"
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
'FichierAttaché = "Adresse et nom du fichier à joindre"
ServeurSMTP = "smtp.Serveur"
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """"";"""";"" &
Feuil1.Range(""A1"") & """
.Subject = Sujet
.TextBody = TexteMessage
If FichierAttaché <> "" Then
.AddAttachment FichierAttaché
End If
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpo rt")
= 25
.Update
End With
.Send
End With
End Sub
'-------------------------------------
MichD
---------------------------------------------------------------
Bonjour,
Habituellement, un point virgule entre les destinataires sont suffisants
Tout ce que tu veux savoir sur ce site :
http://www.rondebruin.nl/cdo.htm#Tips
L'exemple comporte 2 adresses fixes + le contenu de la cellule A1 de la
feuille Feuil1
Feuil1 représente la propriété Name de l'objet Feuille et non le nom de
l'onglet.
'-------------------------------------
Sub EnvoiMail_Par_CDO()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As
String
Expéditeur = "Expé"
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
'FichierAttaché = "Adresse et nom du fichier à joindre"
ServeurSMTP = "smtp.Serveur"
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """"";"""";"" &
Feuil1.Range(""A1"") & """
.Subject = Sujet
.TextBody = TexteMessage
If FichierAttaché <> "" Then
.AddAttachment FichierAttaché
End If
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
>
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With
.Send
End With
End Sub
'-------------------------------------
MichD
---------------------------------------------------------------
Bonjour,
Habituellement, un point virgule entre les destinataires sont suffisants
Tout ce que tu veux savoir sur ce site :
http://www.rondebruin.nl/cdo.htm#Tips
L'exemple comporte 2 adresses fixes + le contenu de la cellule A1 de la
feuille Feuil1
Feuil1 représente la propriété Name de l'objet Feuille et non le nom de
l'onglet.
'-------------------------------------
Sub EnvoiMail_Par_CDO()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As
String
Expéditeur = "Expéditeur@Serveur"
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
'FichierAttaché = "Adresse et nom du fichier à joindre"
ServeurSMTP = "smtp.Serveur"
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """Destinataire1@Serveur"";""Destinataire2@Serveur"";"" &
Feuil1.Range(""A1"") & """
.Subject = Sujet
.TextBody = TexteMessage
If FichierAttaché <> "" Then
.AddAttachment FichierAttaché
End If
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
>
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With
.Send
End With
End Sub
'-------------------------------------
MichD
---------------------------------------------------------------
Bonjour,
Habituellement, un point virgule entre les destinataires sont suffisants
Tout ce que tu veux savoir sur ce site :
http://www.rondebruin.nl/cdo.htm#Tips
L'exemple comporte 2 adresses fixes + le contenu de la cellule A1 de la
feuille Feuil1
Feuil1 représente la propriété Name de l'objet Feuille et non le nom de
l'onglet.
'-------------------------------------
Sub EnvoiMail_Par_CDO()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As
String
Expéditeur = "Expé"
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
'FichierAttaché = "Adresse et nom du fichier à joindre"
ServeurSMTP = "smtp.Serveur"
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """"";"""";"" &
Feuil1.Range(""A1"") & """
.Subject = Sujet
.TextBody = TexteMessage
If FichierAttaché <> "" Then
.AddAttachment FichierAttaché
End If
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
>
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With
.Send
End With
End Sub
'-------------------------------------
MichD
---------------------------------------------------------------
| "La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & >
invalid address"
Si tu n'es pas familier avec ce type d'adresse : Feuil1.Range( A1 )
utilise plutôt ceci :
Worksheets("NomDelaDiteFeuille").Range("A1")
NomDelaDiteFeuille : C'est le nom de l'onglet où
est l'adresse de courriel à récupérer
A1 : La cellule où est inscrite l'adresse.
La procédure que je t'ai envoyée a été testée ce matin même
et elle fonctionne correctement
MichD
| "La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & >
invalid address"
Si tu n'es pas familier avec ce type d'adresse : Feuil1.Range( A1 )
utilise plutôt ceci :
Worksheets("NomDelaDiteFeuille").Range("A1")
NomDelaDiteFeuille : C'est le nom de l'onglet où
est l'adresse de courriel à récupérer
A1 : La cellule où est inscrite l'adresse.
La procédure que je t'ai envoyée a été testée ce matin même
et elle fonctionne correctement
MichD
| "La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & >
invalid address"
Si tu n'es pas familier avec ce type d'adresse : Feuil1.Range( A1 )
utilise plutôt ceci :
Worksheets("NomDelaDiteFeuille").Range("A1")
NomDelaDiteFeuille : C'est le nom de l'onglet où
est l'adresse de courriel à récupérer
A1 : La cellule où est inscrite l'adresse.
La procédure que je t'ai envoyée a été testée ce matin même
et elle fonctionne correctement
MichD
| "La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & >
invalid address"
Si tu n'es pas familier avec ce type d'adresse : Feuil1.Range( A1 )
utilise plutôt ceci :
Worksheets("NomDelaDiteFeuille").Range("A1")
NomDelaDiteFeuille : C'est le nom de l'onglet où
est l'adresse de courriel à récupérer
A1 : La cellule où est inscrite l'adresse.
La procédure que je t'ai envoyée a été testée ce matin même
et elle fonctionne correctement
MichD
| "La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & >
invalid address"
Si tu n'es pas familier avec ce type d'adresse : Feuil1.Range( A1 )
utilise plutôt ceci :
Worksheets("NomDelaDiteFeuille").Range("A1")
NomDelaDiteFeuille : C'est le nom de l'onglet où
est l'adresse de courriel à récupérer
A1 : La cellule où est inscrite l'adresse.
La procédure que je t'ai envoyée a été testée ce matin même
et elle fonctionne correctement
MichD
| "La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & >
invalid address"
Si tu n'es pas familier avec ce type d'adresse : Feuil1.Range( A1 )
utilise plutôt ceci :
Worksheets("NomDelaDiteFeuille").Range("A1")
NomDelaDiteFeuille : C'est le nom de l'onglet où
est l'adresse de courriel à récupérer
A1 : La cellule où est inscrite l'adresse.
La procédure que je t'ai envoyée a été testée ce matin même
et elle fonctionne correctement
MichD
A ) Pourquoi veux-tu envoyer ton message 2 fois au même destinataire?
Destinataire = Feuil1.Range("A1")
Et tu utilises la même adresse dans CC
B ) L'envoi du courriel à l'adresse qu'utilise l'expéditeur ne foncti onne
pas
cela ne provoque pas d'erreur, mais l'expéditeur ne reçoit pas l e
message.
C ) Tu as effectivement le SMTP de ton programme de courriel
Je ne peux pas corriger l'erreur, je n'ai aucun problème à exécuter cette
procédure sans erreur.
MichD
---------------------------------------------------------------
"ThierryP" a écrit dans le message de groupe de discussion :
Merci pour le retour, mais oui je suis familier avec ce type de notation,
même si je n'ai pas tes connaissances !
J'ai fait un strict copier/coller de ta procédure dans un classeur vier ge en
adaptant à ma configuration, voilà ce que ça donne (avec toujours l a même
erreur) :
'-------------------------------------
ub EnvoiMail_Par_CDO()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As St ring
Expéditeur = ""
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
On Error GoTo Erreur
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """"";"""";"" &
Feuil1.Range(""A1"") & """ 'Avec mon adresse en A1
.Subject = Sujet
.TextBody = TexteMessage
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) =
"mails.9services.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusernam e")
= ""
.Item("http://schemas.microsoft.com/cdo/configuration/sendpasswor d")
= "mon_mot_de_passe"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverp ort")
= 25
.Update
End With
.Send
End With
Exit Sub
Erreur:
Debug.Print Err.Source & Err.Description
End Sub
'------------------------------------------------------
Et le debug me renvoie toujours cette erreur :
"VBAProject Le serveur a rejeté une ou plusieurs adresses de destinatai res.
La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & > in valid
address"
Comme je ne vois pas les guillemets autour de A1, on dirait que VBA ne va
pas chercher l'adresse en A1, mais interprète littéralement Feuil1. e tc..
Je suis sous Excel 2002, y aurait-il une différence avec 2010 ou 2013 ? ????
Merci de ta patience.....
ThierryP
Le vendredi 15 février 2013 15:03:33 UTC+1, MichD a écrit :
> | "La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & >
>
> invalid address"
>
>
>
> Si tu n'es pas familier avec ce type d'adresse : Feuil1.Range( A1 )
>
> utilise plutôt ceci :
>
> Worksheets("NomDelaDiteFeuille").Range("A1")
>
>
>
> NomDelaDiteFeuille : C'est le nom de l'onglet où
>
> est l'adresse de courriel à récupérer
>
>
>
> A1 : La cellule où est inscrite l'adresse.
>
>
>
> La procédure que je t'ai envoyée a été testée ce matin même
>
> et elle fonctionne correctement
>
>
>
>
>
>
>
> MichD
>
A ) Pourquoi veux-tu envoyer ton message 2 fois au même destinataire?
Destinataire = Feuil1.Range("A1")
Et tu utilises la même adresse dans CC
B ) L'envoi du courriel à l'adresse qu'utilise l'expéditeur ne foncti onne
pas
cela ne provoque pas d'erreur, mais l'expéditeur ne reçoit pas l e
message.
C ) Tu as effectivement le SMTP de ton programme de courriel
Je ne peux pas corriger l'erreur, je n'ai aucun problème à exécuter cette
procédure sans erreur.
MichD
---------------------------------------------------------------
"ThierryP" a écrit dans le message de groupe de discussion :
18ded10e-b803-4136-994e-7f746d0e5b96@googlegroups.com...
Merci pour le retour, mais oui je suis familier avec ce type de notation,
même si je n'ai pas tes connaissances !
J'ai fait un strict copier/coller de ta procédure dans un classeur vier ge en
adaptant à ma configuration, voilà ce que ça donne (avec toujours l a même
erreur) :
'-------------------------------------
ub EnvoiMail_Par_CDO()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As St ring
Expéditeur = "moi@mon_domaine.com"
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
On Error GoTo Erreur
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """untel@mon_domaine.com"";""user2@mon_domaine.com"";"" &
Feuil1.Range(""A1"") & """ 'Avec mon adresse en A1
.Subject = Sujet
.TextBody = TexteMessage
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) =
"mails.9services.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusernam e")
= "moi@mon_domaine.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpasswor d")
= "mon_mot_de_passe"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverp ort")
= 25
.Update
End With
.Send
End With
Exit Sub
Erreur:
Debug.Print Err.Source & Err.Description
End Sub
'------------------------------------------------------
Et le debug me renvoie toujours cette erreur :
"VBAProject Le serveur a rejeté une ou plusieurs adresses de destinatai res.
La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & > in valid
address"
Comme je ne vois pas les guillemets autour de A1, on dirait que VBA ne va
pas chercher l'adresse en A1, mais interprète littéralement Feuil1. e tc..
Je suis sous Excel 2002, y aurait-il une différence avec 2010 ou 2013 ? ????
Merci de ta patience.....
ThierryP
Le vendredi 15 février 2013 15:03:33 UTC+1, MichD a écrit :
> | "La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & >
>
> invalid address"
>
>
>
> Si tu n'es pas familier avec ce type d'adresse : Feuil1.Range( A1 )
>
> utilise plutôt ceci :
>
> Worksheets("NomDelaDiteFeuille").Range("A1")
>
>
>
> NomDelaDiteFeuille : C'est le nom de l'onglet où
>
> est l'adresse de courriel à récupérer
>
>
>
> A1 : La cellule où est inscrite l'adresse.
>
>
>
> La procédure que je t'ai envoyée a été testée ce matin même
>
> et elle fonctionne correctement
>
>
>
>
>
>
>
> MichD
>
A ) Pourquoi veux-tu envoyer ton message 2 fois au même destinataire?
Destinataire = Feuil1.Range("A1")
Et tu utilises la même adresse dans CC
B ) L'envoi du courriel à l'adresse qu'utilise l'expéditeur ne foncti onne
pas
cela ne provoque pas d'erreur, mais l'expéditeur ne reçoit pas l e
message.
C ) Tu as effectivement le SMTP de ton programme de courriel
Je ne peux pas corriger l'erreur, je n'ai aucun problème à exécuter cette
procédure sans erreur.
MichD
---------------------------------------------------------------
"ThierryP" a écrit dans le message de groupe de discussion :
Merci pour le retour, mais oui je suis familier avec ce type de notation,
même si je n'ai pas tes connaissances !
J'ai fait un strict copier/coller de ta procédure dans un classeur vier ge en
adaptant à ma configuration, voilà ce que ça donne (avec toujours l a même
erreur) :
'-------------------------------------
ub EnvoiMail_Par_CDO()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As St ring
Expéditeur = ""
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
On Error GoTo Erreur
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """"";"""";"" &
Feuil1.Range(""A1"") & """ 'Avec mon adresse en A1
.Subject = Sujet
.TextBody = TexteMessage
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) =
"mails.9services.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusernam e")
= ""
.Item("http://schemas.microsoft.com/cdo/configuration/sendpasswor d")
= "mon_mot_de_passe"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverp ort")
= 25
.Update
End With
.Send
End With
Exit Sub
Erreur:
Debug.Print Err.Source & Err.Description
End Sub
'------------------------------------------------------
Et le debug me renvoie toujours cette erreur :
"VBAProject Le serveur a rejeté une ou plusieurs adresses de destinatai res.
La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & > in valid
address"
Comme je ne vois pas les guillemets autour de A1, on dirait que VBA ne va
pas chercher l'adresse en A1, mais interprète littéralement Feuil1. e tc..
Je suis sous Excel 2002, y aurait-il une différence avec 2010 ou 2013 ? ????
Merci de ta patience.....
ThierryP
Le vendredi 15 février 2013 15:03:33 UTC+1, MichD a écrit :
> | "La réponse du serveur était : 550 5.5.0 < & Feuil1.Range( A1 ) & >
>
> invalid address"
>
>
>
> Si tu n'es pas familier avec ce type d'adresse : Feuil1.Range( A1 )
>
> utilise plutôt ceci :
>
> Worksheets("NomDelaDiteFeuille").Range("A1")
>
>
>
> NomDelaDiteFeuille : C'est le nom de l'onglet où
>
> est l'adresse de courriel à récupérer
>
>
>
> A1 : La cellule où est inscrite l'adresse.
>
>
>
> La procédure que je t'ai envoyée a été testée ce matin même
>
> et elle fonctionne correctement
>
>
>
>
>
>
>
> MichD
>
Un dernier test :
'-------------------------------------------
Sub EnvoiMail()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As St ring
Expéditeur = ""
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
'FichierAttaché = "Adresse et nom du fichier à joindre"
ServeurSMTP = "smtp.serveur"
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """"";"""" ;"""
& Feuil1.Range("A1") & """"
.Subject = Sujet
.TextBody = TexteMessage
If FichierAttaché <> "" Then
.AddAttachment FichierAttaché
End If
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpo rt")
= 25
.Update
End With
.Send
End With
End Sub
'-------------------------------------------
MichD
---------------------------------------------------------------
Un dernier test :
'-------------------------------------------
Sub EnvoiMail()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As St ring
Expéditeur = "NOM@fournisseur"
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
'FichierAttaché = "Adresse et nom du fichier à joindre"
ServeurSMTP = "smtp.serveur"
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """Destinataire1@Fournisseur"";""Destinataire2@Fournisseur"" ;"""
& Feuil1.Range("A1") & """"
.Subject = Sujet
.TextBody = TexteMessage
If FichierAttaché <> "" Then
.AddAttachment FichierAttaché
End If
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpo rt")
= 25
.Update
End With
.Send
End With
End Sub
'-------------------------------------------
MichD
---------------------------------------------------------------
Un dernier test :
'-------------------------------------------
Sub EnvoiMail()
Dim Destinataire As String, Expéditeur As String, Sujet As String
Dim TexteMessage As String, FichierAttaché As String, ServeurSMTP As St ring
Expéditeur = ""
Destinataire = Feuil1.Range("A1")
Sujet = "Test envoi"
TexteMessage = "Le texte du message"
'FichierAttaché = "Adresse et nom du fichier à joindre"
ServeurSMTP = "smtp.serveur"
'Construction et envoi
With CreateObject("CDO.Message")
.From = Expéditeur
.To = Destinataire
.CC = """"";"""" ;"""
& Feuil1.Range("A1") & """"
.Subject = Sujet
.TextBody = TexteMessage
If FichierAttaché <> "" Then
.AddAttachment FichierAttaché
End If
With .Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
ServeurSMTP
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpo rt")
= 25
.Update
End With
.Send
End With
End Sub
'-------------------------------------------
MichD
---------------------------------------------------------------
Bonjour,
Ca semble être la partie .CC qui pose problème.
essaye comme ça :
.CC = """"";"""";""" &
Feuil1.Range("A1") & """"
en recollant tout sur une ligne.
j-p
Bonjour,
Ca semble être la partie .CC qui pose problème.
essaye comme ça :
.CC = """untel@mon_domaine.com"";""user2@mon_domaine.com"";""" &
Feuil1.Range("A1") & """"
en recollant tout sur une ligne.
j-p
Bonjour,
Ca semble être la partie .CC qui pose problème.
essaye comme ça :
.CC = """"";"""";""" &
Feuil1.Range("A1") & """"
en recollant tout sur une ligne.
j-p