Quelqu'un aurait' il la gentillesse de m'indiquer comment en VBA avec
CDO.MESSAGE(dont petit exemple ci-joint) de définir le codage par défaut,
en l'occurrence LATIN ISO 9 (charset 8859-15)
car ave cette méthode, le symbole "?" (euro) n'est pas pris en compte, si
j'arrive à indiquer le jeux de caractère cela passera
merci de vos idées
Pascal
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = "mon adresseMAIL"
.CC = ""
.BCC =
.From = "EXPEDITEURduMAIL
.Subject = "LE SUJET"
.TextBody = strbody
.Send
End With
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
MichDenis
Pour le plus simple, as-tu tenter de redéfinir cet élément dans Outlook Express : Pour ce faire : Barre des menus / outils / Options / dans l'onglet "Message" tu peux définir "La police et grosseur des caractères que tu veux utiliser pour les messages ou les News.... Le test que j'ai fait était avec la police Arial. Et dans l'onglet "Envoi", paramètres internationaux, j'ai choisi ISO-Latin 9 Dans le même onglet "Envoi", un peu plus bas, "Format d'envoi du courrier" / paramètres de texte brut / tu choisis "MiME" et dans la liste déroulante Base 64 Tu peux faire la même chose pour Format d'envoi des News si tu le désires. (si les intervenants sur MPFE modifiait leurs paramètres, ce serait fini les substitutions du ? pour ?... je crois !!!
Maintenant, tu demandes à ton (tes) interlocuteur d'utiliser les mêmes paramètres... et tu ne devrais plus avoir de problèmes avec ça. Si les gens qui recoivent tes messages ne modifie pas leur configuration, il n'y a point de salut peu importe ce que toi tu fais.
Si tu utilises Microsoft OutLook, tu as sensiblement ces mêmes paramètres à partir de la barre des menus / outils / options / paramètres internationaux et Police...
Il ne te restera plus qu'à utiliser une procédure (macro) utilisant soit Outlook express ou Microsoft Outlook pour l'envoi de tes courriels. À cet effet, l'adresse internet pointant sur le site de Ron de Bruin te donne l'embarras du choix.
'-------------------------------------------------------------- P.S- Je ne suis pas en mesure de tester ce qui suit et je n'ai pas l'intention d'intervenir si tu optes pour cette voie.
Pour un truc plus compliqué...sans assurance de garantie et ce en supposant que les destinataires modifient leurs configurations, il y a ceci :
Pour pouvoir faire ce que tu désires, tu pourrais utiliser un code semblable à celui-ci
Cependant pour ce faire, tu devras télécharger sur le Net ce fichier : smtpsvg.dll Je crois que son obtention doit être payannte... Est-ce que cela en vaut le coût ?
Si tu le trouves, tu dois initialer la base de registre : après copier le fichier dans c:WindowsSystem32
Tu ouvres Menu Démarrer de la barre des tâches, Exécuter et tu tapes : regsvr32.exe c:WindowsSystem32smtpsvg.dll
Et tu pourras ajouter la référence dans Excel via la fenêtre de l'éditeurde texte / barre des menus / Outils / référence...
Tu pourras alors utiliser cette ligne de code : 'Où cette que tu jugeras approprié...pas tester objMail.CustomCharSet = "ISO-8859-2" '----------------------------------- Sub EnvoieMail() Dim Server As ASPTypeLibrary.Server Server.CreateObject ("Mailer") sErrMsg = SendEmail("smtp.cgocable.ca", _ "éditeur.com", _ "", _ "Important message", _ "This is an important message bla bla") End Sub '-----------------------------------
Function SendEmail(sEmailServer, sFromEmail, sToEmail, sSubject, sText) Dim objMail Set objMail = Server.CreateObject("SMTPsvg.Mailer") objMail.FromName = sFromEmail objMail.FromAddress = sFromEmail objMail.CustomCharSet = "ISO-8859-2" objMail.RemoteHost = sEmailServer objMail.AddRecipient sToEmail, sToEmail objMail.Subject = sSubject objMail.BodyText = sText If objMail.SendMail Then SendEmail = "" Else ' Message send failure SendEmail = objMail.Response End If Set objMail = Nothing End Function '-----------------------------------
"Pascal" ,com> a écrit dans le message de news:
Quelqu'un aurait' il la gentillesse de m'indiquer comment en VBA avec CDO.MESSAGE(dont petit exemple ci-joint) de définir le codage par défaut, en l'occurrence LATIN ISO 9 (charset 8859-15) car ave cette méthode, le symbole "?" (euro) n'est pas pris en compte, si j'arrive à indiquer le jeux de caractère cela passera merci de vos idées Pascal
Set iMsg = CreateObject("CDO.Message") With iMsg Set .Configuration = iConf .To = "mon adresseMAIL" .CC = "" .BCC .From = "EXPEDITEURduMAIL .Subject = "LE SUJET" .TextBody = strbody .Send End With
Pour le plus simple, as-tu tenter de redéfinir cet élément dans
Outlook Express : Pour ce faire : Barre des menus / outils / Options /
dans l'onglet "Message" tu peux définir "La police et grosseur des
caractères que tu veux utiliser pour les messages ou les News....
Le test que j'ai fait était avec la police Arial.
Et dans l'onglet "Envoi", paramètres internationaux, j'ai choisi
ISO-Latin 9
Dans le même onglet "Envoi", un peu plus bas,
"Format d'envoi du courrier" / paramètres de texte brut /
tu choisis "MiME" et dans la liste déroulante Base 64
Tu peux faire la même chose pour Format d'envoi des News
si tu le désires. (si les intervenants sur MPFE modifiait leurs
paramètres, ce serait fini les substitutions du ? pour ?... je crois !!!
Maintenant, tu demandes à ton (tes) interlocuteur d'utiliser les
mêmes paramètres... et tu ne devrais plus avoir de problèmes
avec ça. Si les gens qui recoivent tes messages ne modifie pas leur
configuration, il n'y a point de salut peu importe ce que toi tu fais.
Si tu utilises Microsoft OutLook, tu as sensiblement ces mêmes paramètres
à partir de la barre des menus / outils / options / paramètres internationaux
et Police...
Il ne te restera plus qu'à utiliser une procédure (macro) utilisant soit Outlook express
ou Microsoft Outlook pour l'envoi de tes courriels. À cet effet, l'adresse internet
pointant sur le site de Ron de Bruin te donne l'embarras du choix.
'--------------------------------------------------------------
P.S- Je ne suis pas en mesure de tester ce qui suit et je n'ai pas l'intention
d'intervenir si tu optes pour cette voie.
Pour un truc plus compliqué...sans assurance de garantie et ce en supposant que
les destinataires modifient leurs configurations, il y a ceci :
Pour pouvoir faire ce que tu désires, tu pourrais utiliser un code semblable à celui-ci
Cependant pour ce faire, tu devras télécharger sur le Net ce fichier : smtpsvg.dll
Je crois que son obtention doit être payannte... Est-ce que cela en vaut le coût ?
Si tu le trouves, tu dois initialer la base de registre :
après copier le fichier dans c:WindowsSystem32
Tu ouvres Menu Démarrer de la barre des tâches, Exécuter et tu tapes :
regsvr32.exe c:WindowsSystem32smtpsvg.dll
Et tu pourras ajouter la référence dans Excel via la fenêtre de
l'éditeurde texte / barre des menus / Outils / référence...
Tu pourras alors utiliser cette ligne de code :
'Où cette que tu jugeras approprié...pas tester
objMail.CustomCharSet = "ISO-8859-2"
'-----------------------------------
Sub EnvoieMail()
Dim Server As ASPTypeLibrary.Server
Server.CreateObject ("Mailer")
sErrMsg = SendEmail("smtp.cgocable.ca", _
"Adresse@Expéditeur.com", _
"Adresse@Destinatairel.com", _
"Important message", _
"This is an important message bla bla")
End Sub
'-----------------------------------
Function SendEmail(sEmailServer, sFromEmail, sToEmail, sSubject, sText)
Dim objMail
Set objMail = Server.CreateObject("SMTPsvg.Mailer")
objMail.FromName = sFromEmail
objMail.FromAddress = sFromEmail
objMail.CustomCharSet = "ISO-8859-2"
objMail.RemoteHost = sEmailServer
objMail.AddRecipient sToEmail, sToEmail
objMail.Subject = sSubject
objMail.BodyText = sText
If objMail.SendMail Then
SendEmail = ""
Else ' Message send failure
SendEmail = objMail.Response
End If
Set objMail = Nothing
End Function
'-----------------------------------
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
uslmB8lzIHA.3972@TK2MSFTNGP03.phx.gbl...
Quelqu'un aurait' il la gentillesse de m'indiquer comment en VBA avec
CDO.MESSAGE(dont petit exemple ci-joint) de définir le codage par défaut,
en l'occurrence LATIN ISO 9 (charset 8859-15)
car ave cette méthode, le symbole "?" (euro) n'est pas pris en compte, si
j'arrive à indiquer le jeux de caractère cela passera
merci de vos idées
Pascal
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = "mon adresseMAIL"
.CC = ""
.BCC .From = "EXPEDITEURduMAIL
.Subject = "LE SUJET"
.TextBody = strbody
.Send
End With
Pour le plus simple, as-tu tenter de redéfinir cet élément dans Outlook Express : Pour ce faire : Barre des menus / outils / Options / dans l'onglet "Message" tu peux définir "La police et grosseur des caractères que tu veux utiliser pour les messages ou les News.... Le test que j'ai fait était avec la police Arial. Et dans l'onglet "Envoi", paramètres internationaux, j'ai choisi ISO-Latin 9 Dans le même onglet "Envoi", un peu plus bas, "Format d'envoi du courrier" / paramètres de texte brut / tu choisis "MiME" et dans la liste déroulante Base 64 Tu peux faire la même chose pour Format d'envoi des News si tu le désires. (si les intervenants sur MPFE modifiait leurs paramètres, ce serait fini les substitutions du ? pour ?... je crois !!!
Maintenant, tu demandes à ton (tes) interlocuteur d'utiliser les mêmes paramètres... et tu ne devrais plus avoir de problèmes avec ça. Si les gens qui recoivent tes messages ne modifie pas leur configuration, il n'y a point de salut peu importe ce que toi tu fais.
Si tu utilises Microsoft OutLook, tu as sensiblement ces mêmes paramètres à partir de la barre des menus / outils / options / paramètres internationaux et Police...
Il ne te restera plus qu'à utiliser une procédure (macro) utilisant soit Outlook express ou Microsoft Outlook pour l'envoi de tes courriels. À cet effet, l'adresse internet pointant sur le site de Ron de Bruin te donne l'embarras du choix.
'-------------------------------------------------------------- P.S- Je ne suis pas en mesure de tester ce qui suit et je n'ai pas l'intention d'intervenir si tu optes pour cette voie.
Pour un truc plus compliqué...sans assurance de garantie et ce en supposant que les destinataires modifient leurs configurations, il y a ceci :
Pour pouvoir faire ce que tu désires, tu pourrais utiliser un code semblable à celui-ci
Cependant pour ce faire, tu devras télécharger sur le Net ce fichier : smtpsvg.dll Je crois que son obtention doit être payannte... Est-ce que cela en vaut le coût ?
Si tu le trouves, tu dois initialer la base de registre : après copier le fichier dans c:WindowsSystem32
Tu ouvres Menu Démarrer de la barre des tâches, Exécuter et tu tapes : regsvr32.exe c:WindowsSystem32smtpsvg.dll
Et tu pourras ajouter la référence dans Excel via la fenêtre de l'éditeurde texte / barre des menus / Outils / référence...
Tu pourras alors utiliser cette ligne de code : 'Où cette que tu jugeras approprié...pas tester objMail.CustomCharSet = "ISO-8859-2" '----------------------------------- Sub EnvoieMail() Dim Server As ASPTypeLibrary.Server Server.CreateObject ("Mailer") sErrMsg = SendEmail("smtp.cgocable.ca", _ "éditeur.com", _ "", _ "Important message", _ "This is an important message bla bla") End Sub '-----------------------------------
Function SendEmail(sEmailServer, sFromEmail, sToEmail, sSubject, sText) Dim objMail Set objMail = Server.CreateObject("SMTPsvg.Mailer") objMail.FromName = sFromEmail objMail.FromAddress = sFromEmail objMail.CustomCharSet = "ISO-8859-2" objMail.RemoteHost = sEmailServer objMail.AddRecipient sToEmail, sToEmail objMail.Subject = sSubject objMail.BodyText = sText If objMail.SendMail Then SendEmail = "" Else ' Message send failure SendEmail = objMail.Response End If Set objMail = Nothing End Function '-----------------------------------
"Pascal" ,com> a écrit dans le message de news:
Quelqu'un aurait' il la gentillesse de m'indiquer comment en VBA avec CDO.MESSAGE(dont petit exemple ci-joint) de définir le codage par défaut, en l'occurrence LATIN ISO 9 (charset 8859-15) car ave cette méthode, le symbole "?" (euro) n'est pas pris en compte, si j'arrive à indiquer le jeux de caractère cela passera merci de vos idées Pascal
Set iMsg = CreateObject("CDO.Message") With iMsg Set .Configuration = iConf .To = "mon adresseMAIL" .CC = "" .BCC .From = "EXPEDITEURduMAIL .Subject = "LE SUJET" .TextBody = strbody .Send End With
Pascal
bonjour à toi,<br /> je pensais que la propriété textplain de CDO se chargerai de faire plus<br /> simplement<br /> merci de l'info<br /> Pascal<br /> <br /> "MichDenis" <> a écrit dans le message de groupe de<br /> discussion : #<br /> <blockquote class="block0"><br /> <br /> Pour le plus simple, as-tu tenter de redéfinir cet élément dans<br /> Outlook Express : Pour ce faire : Barre des menus / outils / Options /<br /> dans l'onglet "Message" tu peux définir "La police et grosseur des<br /> caractères que tu veux utiliser pour les messages ou les News....<br /> Le test que j'ai fait était avec la police Arial.<br /> Et dans l'onglet "Envoi", paramètres internationaux, j'ai choisi<br /> ISO-Latin 9<br /> Dans le même onglet "Envoi", un peu plus bas,<br /> "Format d'envoi du courrier" / paramètres de texte brut /<br /> tu choisis "MiME" et dans la liste déroulante Base 64<br /> Tu peux faire la même chose pour Format d'envoi des News<br /> si tu le désires. (si les intervenants sur MPFE modifiait leurs<br /> paramètres, ce serait fini les substitutions du ? pour ?... je crois !!!<br /> <br /> Maintenant, tu demandes à ton (tes) interlocuteur d'utiliser les<br /> mêmes paramètres... et tu ne devrais plus avoir de problèmes<br /> avec ça. Si les gens qui recoivent tes messages ne modifie pas leur<br /> configuration, il n'y a point de salut peu importe ce que toi tu fais.<br /> <br /> Si tu utilises Microsoft OutLook, tu as sensiblement ces mêmes paramètres<br /> à partir de la barre des menus / outils / options / paramètres<br /> internationaux<br /> et Police...<br /> <br /> Il ne te restera plus qu'à utiliser une procédure (macro) utilisant soit<br /> Outlook express<br /> ou Microsoft Outlook pour l'envoi de tes courriels. À cet effet, l'adresse<br /> internet<br /> pointant sur le site de Ron de Bruin te donne l'embarras du choix.<br /> <br /> '--------------------------------------------------------------<br /> P.S- Je ne suis pas en mesure de tester ce qui suit et je n'ai pas<br /> l'intention<br /> d'intervenir si tu optes pour cette voie.<br /> <br /> Pour un truc plus compliqué...sans assurance de garantie et ce en<br /> supposant que<br /> les destinataires modifient leurs configurations, il y a ceci :<br /> <br /> Pour pouvoir faire ce que tu désires, tu pourrais utiliser un code<br /> semblable à celui-ci<br /> <br /> Cependant pour ce faire, tu devras télécharger sur le Net ce fichier :<br /> smtpsvg.dll<br /> Je crois que son obtention doit être payannte... Est-ce que cela en vaut<br /> le coût ?<br /> <br /> Si tu le trouves, tu dois initialer la base de registre :<br /> après copier le fichier dans c:WindowsSystem32<br /> <br /> Tu ouvres Menu Démarrer de la barre des tâches, Exécuter et tu tapes :<br /> regsvr32.exe c:WindowsSystem32smtpsvg.dll<br /> <br /> Et tu pourras ajouter la référence dans Excel via la fenêtre de<br /> l'éditeurde texte / barre des menus / Outils / référence...<br /> <br /> Tu pourras alors utiliser cette ligne de code :<br /> 'Où cette que tu jugeras approprié...pas tester<br /> objMail.CustomCharSet = "ISO-8859-2"<br /> '-----------------------------------<br /> Sub EnvoieMail()<br /> Dim Server As ASPTypeLibrary.Server<br /> Server.CreateObject ("Mailer")<br /> sErrMsg = SendEmail("smtp.cgocable.ca", _<br /> "éditeur.com", _<br /> "", _<br /> "Important message", _<br /> "This is an important message bla bla")<br /> End Sub<br /> '-----------------------------------<br /> <br /> Function SendEmail(sEmailServer, sFromEmail, sToEmail, sSubject, sText)<br /> Dim objMail<br /> Set objMail = Server.CreateObject("SMTPsvg.Mailer")<br /> objMail.FromName = sFromEmail<br /> objMail.FromAddress = sFromEmail<br /> objMail.CustomCharSet = "ISO-8859-2"<br /> objMail.RemoteHost = sEmailServer<br /> objMail.AddRecipient sToEmail, sToEmail<br /> objMail.Subject = sSubject<br /> objMail.BodyText = sText<br /> If objMail.SendMail Then<br /> SendEmail = ""<br /> Else ' Message send failure<br /> SendEmail = objMail.Response<br /> End If<br /> Set objMail = Nothing<br /> End Function<br /> '-----------------------------------<br /> <br /> <br /> <br /> <br /> <br /> "Pascal" <,com> a écrit dans le message de news:<br /> <br /> Quelqu'un aurait' il la gentillesse de m'indiquer comment en VBA avec<br /> CDO.MESSAGE(dont petit exemple ci-joint) de définir le codage par défaut,<br /> en l'occurrence LATIN ISO 9 (charset 8859-15)<br /> car ave cette méthode, le symbole "?" (euro) n'est pas pris en compte, si<br /> j'arrive à indiquer le jeux de caractère cela passera<br /> merci de vos idées<br /> Pascal<br /> <br /> Set iMsg = CreateObject("CDO.Message")<br /> With iMsg<br /> Set .Configuration = iConf<br /> .To = "mon adresseMAIL"<br /> .CC = ""<br /> .BCC > .From = "EXPEDITEURduMAIL<br /> .Subject = "LE SUJET"<br /> .TextBody = strbody<br /> .Send<br /> End With<br /> <br /> <br /> <br /> <br /> </blockquote><br />
bonjour à toi,<br />
je pensais que la propriété textplain de CDO se chargerai de faire plus<br />
simplement<br />
merci de l'info<br />
Pascal<br />
<br />
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de<br />
discussion : #Vmdh7yzIHA.3496@TK2MSFTNGP03.phx.gbl...<br />
<blockquote class="block0"><br />
<br />
Pour le plus simple, as-tu tenter de redéfinir cet élément dans<br />
Outlook Express : Pour ce faire : Barre des menus / outils / Options /<br />
dans l'onglet "Message" tu peux définir "La police et grosseur des<br />
caractères que tu veux utiliser pour les messages ou les News....<br />
Le test que j'ai fait était avec la police Arial.<br />
Et dans l'onglet "Envoi", paramètres internationaux, j'ai choisi<br />
ISO-Latin 9<br />
Dans le même onglet "Envoi", un peu plus bas,<br />
"Format d'envoi du courrier" / paramètres de texte brut /<br />
tu choisis "MiME" et dans la liste déroulante Base 64<br />
Tu peux faire la même chose pour Format d'envoi des News<br />
si tu le désires. (si les intervenants sur MPFE modifiait leurs<br />
paramètres, ce serait fini les substitutions du ? pour ?... je crois !!!<br />
<br />
Maintenant, tu demandes à ton (tes) interlocuteur d'utiliser les<br />
mêmes paramètres... et tu ne devrais plus avoir de problèmes<br />
avec ça. Si les gens qui recoivent tes messages ne modifie pas leur<br />
configuration, il n'y a point de salut peu importe ce que toi tu fais.<br />
<br />
Si tu utilises Microsoft OutLook, tu as sensiblement ces mêmes paramètres<br />
à partir de la barre des menus / outils / options / paramètres<br />
internationaux<br />
et Police...<br />
<br />
Il ne te restera plus qu'à utiliser une procédure (macro) utilisant soit<br />
Outlook express<br />
ou Microsoft Outlook pour l'envoi de tes courriels. À cet effet, l'adresse<br />
internet<br />
pointant sur le site de Ron de Bruin te donne l'embarras du choix.<br />
<br />
'--------------------------------------------------------------<br />
P.S- Je ne suis pas en mesure de tester ce qui suit et je n'ai pas<br />
l'intention<br />
d'intervenir si tu optes pour cette voie.<br />
<br />
Pour un truc plus compliqué...sans assurance de garantie et ce en<br />
supposant que<br />
les destinataires modifient leurs configurations, il y a ceci :<br />
<br />
Pour pouvoir faire ce que tu désires, tu pourrais utiliser un code<br />
semblable à celui-ci<br />
<br />
Cependant pour ce faire, tu devras télécharger sur le Net ce fichier :<br />
smtpsvg.dll<br />
Je crois que son obtention doit être payannte... Est-ce que cela en vaut<br />
le coût ?<br />
<br />
Si tu le trouves, tu dois initialer la base de registre :<br />
après copier le fichier dans c:WindowsSystem32<br />
<br />
Tu ouvres Menu Démarrer de la barre des tâches, Exécuter et tu tapes :<br />
regsvr32.exe c:WindowsSystem32smtpsvg.dll<br />
<br />
Et tu pourras ajouter la référence dans Excel via la fenêtre de<br />
l'éditeurde texte / barre des menus / Outils / référence...<br />
<br />
Tu pourras alors utiliser cette ligne de code :<br />
'Où cette que tu jugeras approprié...pas tester<br />
objMail.CustomCharSet = "ISO-8859-2"<br />
'-----------------------------------<br />
Sub EnvoieMail()<br />
Dim Server As ASPTypeLibrary.Server<br />
Server.CreateObject ("Mailer")<br />
sErrMsg = SendEmail("smtp.cgocable.ca", _<br />
"Adresse@Expéditeur.com", _<br />
"Adresse@Destinatairel.com", _<br />
"Important message", _<br />
"This is an important message bla bla")<br />
End Sub<br />
'-----------------------------------<br />
<br />
Function SendEmail(sEmailServer, sFromEmail, sToEmail, sSubject, sText)<br />
Dim objMail<br />
Set objMail = Server.CreateObject("SMTPsvg.Mailer")<br />
objMail.FromName = sFromEmail<br />
objMail.FromAddress = sFromEmail<br />
objMail.CustomCharSet = "ISO-8859-2"<br />
objMail.RemoteHost = sEmailServer<br />
objMail.AddRecipient sToEmail, sToEmail<br />
objMail.Subject = sSubject<br />
objMail.BodyText = sText<br />
If objMail.SendMail Then<br />
SendEmail = ""<br />
Else ' Message send failure<br />
SendEmail = objMail.Response<br />
End If<br />
Set objMail = Nothing<br />
End Function<br />
'-----------------------------------<br />
<br />
<br />
<br />
<br />
<br />
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:<br />
uslmB8lzIHA.3972@TK2MSFTNGP03.phx.gbl...<br />
Quelqu'un aurait' il la gentillesse de m'indiquer comment en VBA avec<br />
CDO.MESSAGE(dont petit exemple ci-joint) de définir le codage par défaut,<br />
en l'occurrence LATIN ISO 9 (charset 8859-15)<br />
car ave cette méthode, le symbole "?" (euro) n'est pas pris en compte, si<br />
j'arrive à indiquer le jeux de caractère cela passera<br />
merci de vos idées<br />
Pascal<br />
<br />
Set iMsg = CreateObject("CDO.Message")<br />
With iMsg<br />
Set .Configuration = iConf<br />
.To = "mon adresseMAIL"<br />
.CC = ""<br />
.BCC > .From = "EXPEDITEURduMAIL<br />
.Subject = "LE SUJET"<br />
.TextBody = strbody<br />
.Send<br />
End With<br />
<br />
<br />
<br />
<br />
</blockquote><br />
bonjour à toi,<br /> je pensais que la propriété textplain de CDO se chargerai de faire plus<br /> simplement<br /> merci de l'info<br /> Pascal<br /> <br /> "MichDenis" <> a écrit dans le message de groupe de<br /> discussion : #<br /> <blockquote class="block0"><br /> <br /> Pour le plus simple, as-tu tenter de redéfinir cet élément dans<br /> Outlook Express : Pour ce faire : Barre des menus / outils / Options /<br /> dans l'onglet "Message" tu peux définir "La police et grosseur des<br /> caractères que tu veux utiliser pour les messages ou les News....<br /> Le test que j'ai fait était avec la police Arial.<br /> Et dans l'onglet "Envoi", paramètres internationaux, j'ai choisi<br /> ISO-Latin 9<br /> Dans le même onglet "Envoi", un peu plus bas,<br /> "Format d'envoi du courrier" / paramètres de texte brut /<br /> tu choisis "MiME" et dans la liste déroulante Base 64<br /> Tu peux faire la même chose pour Format d'envoi des News<br /> si tu le désires. (si les intervenants sur MPFE modifiait leurs<br /> paramètres, ce serait fini les substitutions du ? pour ?... je crois !!!<br /> <br /> Maintenant, tu demandes à ton (tes) interlocuteur d'utiliser les<br /> mêmes paramètres... et tu ne devrais plus avoir de problèmes<br /> avec ça. Si les gens qui recoivent tes messages ne modifie pas leur<br /> configuration, il n'y a point de salut peu importe ce que toi tu fais.<br /> <br /> Si tu utilises Microsoft OutLook, tu as sensiblement ces mêmes paramètres<br /> à partir de la barre des menus / outils / options / paramètres<br /> internationaux<br /> et Police...<br /> <br /> Il ne te restera plus qu'à utiliser une procédure (macro) utilisant soit<br /> Outlook express<br /> ou Microsoft Outlook pour l'envoi de tes courriels. À cet effet, l'adresse<br /> internet<br /> pointant sur le site de Ron de Bruin te donne l'embarras du choix.<br /> <br /> '--------------------------------------------------------------<br /> P.S- Je ne suis pas en mesure de tester ce qui suit et je n'ai pas<br /> l'intention<br /> d'intervenir si tu optes pour cette voie.<br /> <br /> Pour un truc plus compliqué...sans assurance de garantie et ce en<br /> supposant que<br /> les destinataires modifient leurs configurations, il y a ceci :<br /> <br /> Pour pouvoir faire ce que tu désires, tu pourrais utiliser un code<br /> semblable à celui-ci<br /> <br /> Cependant pour ce faire, tu devras télécharger sur le Net ce fichier :<br /> smtpsvg.dll<br /> Je crois que son obtention doit être payannte... Est-ce que cela en vaut<br /> le coût ?<br /> <br /> Si tu le trouves, tu dois initialer la base de registre :<br /> après copier le fichier dans c:WindowsSystem32<br /> <br /> Tu ouvres Menu Démarrer de la barre des tâches, Exécuter et tu tapes :<br /> regsvr32.exe c:WindowsSystem32smtpsvg.dll<br /> <br /> Et tu pourras ajouter la référence dans Excel via la fenêtre de<br /> l'éditeurde texte / barre des menus / Outils / référence...<br /> <br /> Tu pourras alors utiliser cette ligne de code :<br /> 'Où cette que tu jugeras approprié...pas tester<br /> objMail.CustomCharSet = "ISO-8859-2"<br /> '-----------------------------------<br /> Sub EnvoieMail()<br /> Dim Server As ASPTypeLibrary.Server<br /> Server.CreateObject ("Mailer")<br /> sErrMsg = SendEmail("smtp.cgocable.ca", _<br /> "éditeur.com", _<br /> "", _<br /> "Important message", _<br /> "This is an important message bla bla")<br /> End Sub<br /> '-----------------------------------<br /> <br /> Function SendEmail(sEmailServer, sFromEmail, sToEmail, sSubject, sText)<br /> Dim objMail<br /> Set objMail = Server.CreateObject("SMTPsvg.Mailer")<br /> objMail.FromName = sFromEmail<br /> objMail.FromAddress = sFromEmail<br /> objMail.CustomCharSet = "ISO-8859-2"<br /> objMail.RemoteHost = sEmailServer<br /> objMail.AddRecipient sToEmail, sToEmail<br /> objMail.Subject = sSubject<br /> objMail.BodyText = sText<br /> If objMail.SendMail Then<br /> SendEmail = ""<br /> Else ' Message send failure<br /> SendEmail = objMail.Response<br /> End If<br /> Set objMail = Nothing<br /> End Function<br /> '-----------------------------------<br /> <br /> <br /> <br /> <br /> <br /> "Pascal" <,com> a écrit dans le message de news:<br /> <br /> Quelqu'un aurait' il la gentillesse de m'indiquer comment en VBA avec<br /> CDO.MESSAGE(dont petit exemple ci-joint) de définir le codage par défaut,<br /> en l'occurrence LATIN ISO 9 (charset 8859-15)<br /> car ave cette méthode, le symbole "?" (euro) n'est pas pris en compte, si<br /> j'arrive à indiquer le jeux de caractère cela passera<br /> merci de vos idées<br /> Pascal<br /> <br /> Set iMsg = CreateObject("CDO.Message")<br /> With iMsg<br /> Set .Configuration = iConf<br /> .To = "mon adresseMAIL"<br /> .CC = ""<br /> .BCC > .From = "EXPEDITEURduMAIL<br /> .Subject = "LE SUJET"<br /> .TextBody = strbody<br /> .Send<br /> End With<br /> <br /> <br /> <br /> <br /> </blockquote><br />
MichDenis
Il faut moduler le message précédent. Je lui apporte le bémol suivant :<br /> <br /> Après quelques vérifications, semble-t-il qu'il serait possible<br /> d'obtenir ce que tu veux en utilisant cette procédure avec ADO.<br /> et ce sans que ton correspondant modifie son interface.<br /> (si tel est le cas, désolé de t'avoir induit en erreur)<br /> <br /> Pour ton information, la bibliothèque responsable est :<br /> Bibliothèue : CDO<br /> Fichier responsable : c:Windowssystem32cdosys.dll<br /> Référence : Microsoft CDO for Windows 2000 Library<br /> <br /> P.S- Tu n'es pas obligé de l'ajouter car la procédure utilise<br /> une "liaison tardive"<br /> <br /> '-----------------------------------------<br /> Sub test()<br /> <br /> Dim ObjMail As Object<br /> Dim ServeurSMTP As String, Texte As String<br /> Dim Suget As String, Fichier As String<br /> Dim Destinataire As String, Expediteur As String<br /> Dim FichiersJoints As String<br /> Dim AutresDestinataires As String<br /> <br /> '*********** à Définir******************<br /> ServeurSMTP = "smtp. ...à définir"<br /> Sujet = "La raison du message €"<br /> Texte = "Texte du Message €"<br /> 'Si plusieurs fichiers : séparer par un point-virgule<br /> FichiersJoints = "c:classeur1.xls" ' si requis<br /> Destinataire = ""<br /> Expediteur = ""<br /> 'Si plusieurs adresses : séparer par un point-virgule"<br /> AutresDestinataires = ""<br /> '****************************************<br /> <br /> Set ObjMail = CreateObject("CDO.Message")<br /> With ObjMail<br /> .To = Destinataire ' ""<br /> .From = Expediteur<br /> .CC = AutresDestinataires<br /> .Subject = Sujet<br /> .MimeFormatted = True<br /> .GetStream.Charset = cdoISO_8859_15<br /> .BodyPart.Charset = cdoISO_8859_15<br /> .BodyPart.ContentTransferEncoding = "base64"<br /> .TextBody = Texte<br /> If Dir(Fichier) <> "" Then<br /> .AddAttachment FichiersJoints<br /> End If<br /> With .Configuration.Fields<br /> .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2<br /> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ServeurSMTP<br /> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25<br /> .Update<br /> End With<br /> .Send<br /> End With<br /> <br /> End Sub<br /> '-----------------------------------------<br />
Il faut moduler le message précédent. Je lui apporte le bémol suivant :<br />
<br />
Après quelques vérifications, semble-t-il qu'il serait possible<br />
d'obtenir ce que tu veux en utilisant cette procédure avec ADO.<br />
et ce sans que ton correspondant modifie son interface.<br />
(si tel est le cas, désolé de t'avoir induit en erreur)<br />
<br />
Pour ton information, la bibliothèque responsable est :<br />
Bibliothèue : CDO<br />
Fichier responsable : c:Windowssystem32cdosys.dll<br />
Référence : Microsoft CDO for Windows 2000 Library<br />
<br />
P.S- Tu n'es pas obligé de l'ajouter car la procédure utilise<br />
une "liaison tardive"<br />
<br />
'-----------------------------------------<br />
Sub test()<br />
<br />
Dim ObjMail As Object<br />
Dim ServeurSMTP As String, Texte As String<br />
Dim Suget As String, Fichier As String<br />
Dim Destinataire As String, Expediteur As String<br />
Dim FichiersJoints As String<br />
Dim AutresDestinataires As String<br />
<br />
'*********** à Définir******************<br />
ServeurSMTP = "smtp. ...à définir"<br />
Sujet = "La raison du message €"<br />
Texte = "Texte du Message €"<br />
'Si plusieurs fichiers : séparer par un point-virgule<br />
FichiersJoints = "c:classeur1.xls" ' si requis<br />
Destinataire = "Destinataire@hotmail.com"<br />
Expediteur = "Expediteur@hotmail.com"<br />
'Si plusieurs adresses : séparer par un point-virgule"<br />
AutresDestinataires = ""<br />
'****************************************<br />
<br />
Set ObjMail = CreateObject("CDO.Message")<br />
With ObjMail<br />
.To = Destinataire ' "Destinataire@Hotmail.com"<br />
.From = Expediteur<br />
.CC = AutresDestinataires<br />
.Subject = Sujet<br />
.MimeFormatted = True<br />
.GetStream.Charset = cdoISO_8859_15<br />
.BodyPart.Charset = cdoISO_8859_15<br />
.BodyPart.ContentTransferEncoding = "base64"<br />
.TextBody = Texte<br />
If Dir(Fichier) <> "" Then<br />
.AddAttachment FichiersJoints<br />
End If<br />
With .Configuration.Fields<br />
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2<br />
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ServeurSMTP<br />
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25<br />
.Update<br />
End With<br />
.Send<br />
End With<br />
<br />
End Sub<br />
'-----------------------------------------<br />
Il faut moduler le message précédent. Je lui apporte le bémol suivant :<br /> <br /> Après quelques vérifications, semble-t-il qu'il serait possible<br /> d'obtenir ce que tu veux en utilisant cette procédure avec ADO.<br /> et ce sans que ton correspondant modifie son interface.<br /> (si tel est le cas, désolé de t'avoir induit en erreur)<br /> <br /> Pour ton information, la bibliothèque responsable est :<br /> Bibliothèue : CDO<br /> Fichier responsable : c:Windowssystem32cdosys.dll<br /> Référence : Microsoft CDO for Windows 2000 Library<br /> <br /> P.S- Tu n'es pas obligé de l'ajouter car la procédure utilise<br /> une "liaison tardive"<br /> <br /> '-----------------------------------------<br /> Sub test()<br /> <br /> Dim ObjMail As Object<br /> Dim ServeurSMTP As String, Texte As String<br /> Dim Suget As String, Fichier As String<br /> Dim Destinataire As String, Expediteur As String<br /> Dim FichiersJoints As String<br /> Dim AutresDestinataires As String<br /> <br /> '*********** à Définir******************<br /> ServeurSMTP = "smtp. ...à définir"<br /> Sujet = "La raison du message €"<br /> Texte = "Texte du Message €"<br /> 'Si plusieurs fichiers : séparer par un point-virgule<br /> FichiersJoints = "c:classeur1.xls" ' si requis<br /> Destinataire = ""<br /> Expediteur = ""<br /> 'Si plusieurs adresses : séparer par un point-virgule"<br /> AutresDestinataires = ""<br /> '****************************************<br /> <br /> Set ObjMail = CreateObject("CDO.Message")<br /> With ObjMail<br /> .To = Destinataire ' ""<br /> .From = Expediteur<br /> .CC = AutresDestinataires<br /> .Subject = Sujet<br /> .MimeFormatted = True<br /> .GetStream.Charset = cdoISO_8859_15<br /> .BodyPart.Charset = cdoISO_8859_15<br /> .BodyPart.ContentTransferEncoding = "base64"<br /> .TextBody = Texte<br /> If Dir(Fichier) <> "" Then<br /> .AddAttachment FichiersJoints<br /> End If<br /> With .Configuration.Fields<br /> .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2<br /> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ServeurSMTP<br /> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25<br /> .Update<br /> End With<br /> .Send<br /> End With<br /> <br /> End Sub<br /> '-----------------------------------------<br />
Pascal
Michel....EXCELENT<br /> .MimeFormatted = True<br /> .GetStream.Charset = cdoISO_8859_15<br /> .BodyPart.Charset = cdoISO_8859_15<br /> .BodyPart.ContentTransferEncoding = "base64"<br /> .TextBody = Texte<br /> est juste ce que je cherchai<br /> sois mille fois remercié<br /> Pascal<br /> <br /> <br /> <br /> "MichDenis" <> a écrit dans le message de groupe de<br /> discussion : #LCzqH#<br /> <blockquote class="block0"><br /> Il faut moduler le message précédent. Je lui apporte le bémol suivant :<br /> <br /> Après quelques vérifications, semble-t-il qu'il serait possible<br /> d'obtenir ce que tu veux en utilisant cette procédure avec ADO.<br /> et ce sans que ton correspondant modifie son interface.<br /> (si tel est le cas, désolé de t'avoir induit en erreur)<br /> <br /> Pour ton information, la bibliothèque responsable est :<br /> Bibliothèue : CDO<br /> Fichier responsable : c:Windowssystem32cdosys.dll<br /> Référence : Microsoft CDO for Windows 2000 Library<br /> <br /> P.S- Tu n'es pas obligé de l'ajouter car la procédure utilise<br /> une "liaison tardive"<br /> <br /> '-----------------------------------------<br /> Sub test()<br /> <br /> Dim ObjMail As Object<br /> Dim ServeurSMTP As String, Texte As String<br /> Dim Suget As String, Fichier As String<br /> Dim Destinataire As String, Expediteur As String<br /> Dim FichiersJoints As String<br /> Dim AutresDestinataires As String<br /> <br /> '*********** à Définir******************<br /> ServeurSMTP = "smtp. ...à définir"<br /> Sujet = "La raison du message ?"<br /> Texte = "Texte du Message ?"<br /> 'Si plusieurs fichiers : séparer par un point-virgule<br /> FichiersJoints = "c:classeur1.xls" ' si requis<br /> Destinataire = ""<br /> Expediteur = ""<br /> 'Si plusieurs adresses : séparer par un point-virgule"<br /> AutresDestinataires = ""<br /> '****************************************<br /> <br /> Set ObjMail = CreateObject("CDO.Message")<br /> With ObjMail<br /> .To = Destinataire ' ""<br /> .From = Expediteur<br /> .CC = AutresDestinataires<br /> .Subject = Sujet<br /> .MimeFormatted = True<br /> .GetStream.Charset = cdoISO_8859_15<br /> .BodyPart.Charset = cdoISO_8859_15<br /> .BodyPart.ContentTransferEncoding = "base64"<br /> .TextBody = Texte<br /> If Dir(Fichier) <> "" Then<br /> .AddAttachment FichiersJoints<br /> End If<br /> With .Configuration.Fields<br /> .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =<br /> 2<br /> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")<br /> = ServeurSMTP<br /> <br /> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =<br /> 25<br /> .Update<br /> End With<br /> .Send<br /> End With<br /> <br /> End Sub<br /> '-----------------------------------------<br /> <br /> <br /> <br /> <br /> <br /> </blockquote><br />
Michel....EXCELENT<br />
.MimeFormatted = True<br />
.GetStream.Charset = cdoISO_8859_15<br />
.BodyPart.Charset = cdoISO_8859_15<br />
.BodyPart.ContentTransferEncoding = "base64"<br />
.TextBody = Texte<br />
est juste ce que je cherchai<br />
sois mille fois remercié<br />
Pascal<br />
<br />
<br />
<br />
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de<br />
discussion : #LCzqH#zIHA.552@TK2MSFTNGP06.phx.gbl...<br />
<blockquote class="block0"><br />
Il faut moduler le message précédent. Je lui apporte le bémol suivant :<br />
<br />
Après quelques vérifications, semble-t-il qu'il serait possible<br />
d'obtenir ce que tu veux en utilisant cette procédure avec ADO.<br />
et ce sans que ton correspondant modifie son interface.<br />
(si tel est le cas, désolé de t'avoir induit en erreur)<br />
<br />
Pour ton information, la bibliothèque responsable est :<br />
Bibliothèue : CDO<br />
Fichier responsable : c:Windowssystem32cdosys.dll<br />
Référence : Microsoft CDO for Windows 2000 Library<br />
<br />
P.S- Tu n'es pas obligé de l'ajouter car la procédure utilise<br />
une "liaison tardive"<br />
<br />
'-----------------------------------------<br />
Sub test()<br />
<br />
Dim ObjMail As Object<br />
Dim ServeurSMTP As String, Texte As String<br />
Dim Suget As String, Fichier As String<br />
Dim Destinataire As String, Expediteur As String<br />
Dim FichiersJoints As String<br />
Dim AutresDestinataires As String<br />
<br />
'*********** à Définir******************<br />
ServeurSMTP = "smtp. ...à définir"<br />
Sujet = "La raison du message ?"<br />
Texte = "Texte du Message ?"<br />
'Si plusieurs fichiers : séparer par un point-virgule<br />
FichiersJoints = "c:classeur1.xls" ' si requis<br />
Destinataire = "Destinataire@hotmail.com"<br />
Expediteur = "Expediteur@hotmail.com"<br />
'Si plusieurs adresses : séparer par un point-virgule"<br />
AutresDestinataires = ""<br />
'****************************************<br />
<br />
Set ObjMail = CreateObject("CDO.Message")<br />
With ObjMail<br />
.To = Destinataire ' "Destinataire@Hotmail.com"<br />
.From = Expediteur<br />
.CC = AutresDestinataires<br />
.Subject = Sujet<br />
.MimeFormatted = True<br />
.GetStream.Charset = cdoISO_8859_15<br />
.BodyPart.Charset = cdoISO_8859_15<br />
.BodyPart.ContentTransferEncoding = "base64"<br />
.TextBody = Texte<br />
If Dir(Fichier) <> "" Then<br />
.AddAttachment FichiersJoints<br />
End If<br />
With .Configuration.Fields<br />
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =<br />
2<br />
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")<br />
= ServeurSMTP<br />
<br />
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =<br />
25<br />
.Update<br />
End With<br />
.Send<br />
End With<br />
<br />
End Sub<br />
'-----------------------------------------<br />
<br />
<br />
<br />
<br />
<br />
</blockquote><br />
Michel....EXCELENT<br /> .MimeFormatted = True<br /> .GetStream.Charset = cdoISO_8859_15<br /> .BodyPart.Charset = cdoISO_8859_15<br /> .BodyPart.ContentTransferEncoding = "base64"<br /> .TextBody = Texte<br /> est juste ce que je cherchai<br /> sois mille fois remercié<br /> Pascal<br /> <br /> <br /> <br /> "MichDenis" <> a écrit dans le message de groupe de<br /> discussion : #LCzqH#<br /> <blockquote class="block0"><br /> Il faut moduler le message précédent. Je lui apporte le bémol suivant :<br /> <br /> Après quelques vérifications, semble-t-il qu'il serait possible<br /> d'obtenir ce que tu veux en utilisant cette procédure avec ADO.<br /> et ce sans que ton correspondant modifie son interface.<br /> (si tel est le cas, désolé de t'avoir induit en erreur)<br /> <br /> Pour ton information, la bibliothèque responsable est :<br /> Bibliothèue : CDO<br /> Fichier responsable : c:Windowssystem32cdosys.dll<br /> Référence : Microsoft CDO for Windows 2000 Library<br /> <br /> P.S- Tu n'es pas obligé de l'ajouter car la procédure utilise<br /> une "liaison tardive"<br /> <br /> '-----------------------------------------<br /> Sub test()<br /> <br /> Dim ObjMail As Object<br /> Dim ServeurSMTP As String, Texte As String<br /> Dim Suget As String, Fichier As String<br /> Dim Destinataire As String, Expediteur As String<br /> Dim FichiersJoints As String<br /> Dim AutresDestinataires As String<br /> <br /> '*********** à Définir******************<br /> ServeurSMTP = "smtp. ...à définir"<br /> Sujet = "La raison du message ?"<br /> Texte = "Texte du Message ?"<br /> 'Si plusieurs fichiers : séparer par un point-virgule<br /> FichiersJoints = "c:classeur1.xls" ' si requis<br /> Destinataire = ""<br /> Expediteur = ""<br /> 'Si plusieurs adresses : séparer par un point-virgule"<br /> AutresDestinataires = ""<br /> '****************************************<br /> <br /> Set ObjMail = CreateObject("CDO.Message")<br /> With ObjMail<br /> .To = Destinataire ' ""<br /> .From = Expediteur<br /> .CC = AutresDestinataires<br /> .Subject = Sujet<br /> .MimeFormatted = True<br /> .GetStream.Charset = cdoISO_8859_15<br /> .BodyPart.Charset = cdoISO_8859_15<br /> .BodyPart.ContentTransferEncoding = "base64"<br /> .TextBody = Texte<br /> If Dir(Fichier) <> "" Then<br /> .AddAttachment FichiersJoints<br /> End If<br /> With .Configuration.Fields<br /> .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =<br /> 2<br /> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")<br /> = ServeurSMTP<br /> <br /> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =<br /> 25<br /> .Update<br /> End With<br /> .Send<br /> End With<br /> <br /> End Sub<br /> '-----------------------------------------<br /> <br /> <br /> <br /> <br /> <br /> </blockquote><br />
Modeste
Bonsour® Pascal avec ferveur ;o))) vous nous disiez :<br /> <br /> <blockquote class="block0"><br /> Michel....EXCELENT<br /> ;o)))<br /> </blockquote><br /> ça faisait longtemps qu'on ne lui avait plus faite celle-là, au Denis !!!!<br /> <br /> quand à la solution fournie cela illustre parfaitement cette évocation par LSteph : "les bons parpaings"<br /> ;o)))<br /> <br /> --<br /> @+<br /> ;o)))<br /> <br />
Bonsour® Pascal avec ferveur ;o))) vous nous disiez :<br />
<br />
<blockquote class="block0"><br />
Michel....EXCELENT<br />
;o)))<br />
</blockquote><br />
ça faisait longtemps qu'on ne lui avait plus faite celle-là, au Denis !!!!<br />
<br />
quand à la solution fournie cela illustre parfaitement cette évocation par LSteph : "les bons parpaings"<br />
;o)))<br />
<br />
--<br />
@+<br />
;o)))<br />
<br />