OVH Cloud OVH Cloud

Caractères accentués

14 réponses
Avatar
Alain
Bonjour à tous,

Je dois envoyer, à partir d'un script, un message avec des pièces jointes.
J'utilise donc les objects "CDO.Message".

Pour indiquer le nom des pièces jointes, j'utilise la commande:
mon_message.AddAttachment mon_path

Malheureusement, la variable mon_path contient des caractères accentués et
VBScript me donne un message d'erreur.

Il m'est impossible de changer mon path car il m'est imposé par mon
Administrateur réseau.

Avez-vous une solution ?

Merci d'avance,
Alain.

4 réponses

1 2
Avatar
Glenn Gagné
Bonjour Gilles,

Est-ce que vous savez s'il est possible d'envoyer également un message avec
authentification SMTP ?

Alain,

À quel endroit retrouve-t-on la liste des paramètres possible sur le site de
Microsoft ?

Merci

Glenn

"Gilles LAURENT [MVP]" a écrit dans le message de
news:
"Alain" a écrit dans le message de
news:%
| Le message d'erreur est:
| The specified protocol is unknown
| Code 800C000D
| Source CFO.Message.1
|
| ANSI ? Je suppose; j'ai créé mon script avec Notepad et Windows le
| reconnaît bien comme un script.

Ok

| Voici la partie du code qui pose problème:
| message_vw.AddAttachment """" & fichier.Path & """"

Que vaut la propriété Path de l'objet fichier ?
Il faut absolument que ce soit le chemin complet vers le fichier

| J'initialise mon message avant avec:
| set message_vw = CreateObject("CDO.Message")
|

message_vw.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi

guration/sendusing")
| = 2

SMTP

|

message_vw.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi

guration/smtpserver")
| = "mail3.issep.be"

Serveur SMTP
Que donne la commande :
> telnet mail3.issep.be 25

|

message_vw.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi

guration/smtpserverport")
| = 25

Port SMTP

| message_vw.Configuration.Fields.Update
|
| Je dois bien avouer que je ne comprends pas ce code d'initialisation.
| Je l'ai recopié d'un autre script.
|
| Merci pour votre assistance,
| Alain.

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr




Avatar
Gilles LAURENT [MVP]
"Glenn Gagné" a écrit dans le message de
news:%
| Bonjour Gilles,

Bonjour Glenn,

| Est-ce que vous savez s'il est possible d'envoyer également un
| message avec authentification SMTP ?

Avec les champs de configuration suivants :

http://schemas.microsoft.com/cdo/configuration/smtpauthenticate
0 - Anonymous
1 - Basic (clear-text)
2 - NTLM

Si Basic (clear-text) alors :
http://schemas.microsoft.com/cdo/configuration/sendusername
http://schemas.microsoft.com/cdo/configuration/sendpassword

CDO for Windows 2000
http://msdn2.microsoft.com/en-us/library/ms527568.aspx

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Avatar
Jean
Path="serveur-datdse cellule qualit? de l'airRDRC...ABC.xls"

J'ai fait un msgbox fichier.Path et j'obtiens la chaîne ci-avant avec un
"?" à la place du "é".


L'affichage de msgbox dépend de la police de caractères système en
cours.
Il faudrait voir le code du caractère (à l'aide de la fonction Asc de
vbscript par ex.)
Si la valeur est différente de 233, essayez en entrant ALT + code
(précédé d'un zéro-0 si inférieur à 1000) dans votre éditeur de script
(même si il ne supporte pas l'affichage du caractère).

Le chemin réel est "serveur-datdse cellule qualité de
l'airRDRC...ABC.xls"
Je suppose que c'est là le problème.
Avant, j'avais un autre chemin, sans accent, et ça marchait bien.
Malheureusement, il m'est impossible de changer cette partie du chemin.


Sinon, pourquoi ne pas essayer avec un nom court, à l'aide des
propriétés ShortName et ShortPath de FSO ?

Amicalement,

--
Jean - JMST
Belgium

Avatar
Alain
Alain,

À quel endroit retrouve-t-on la liste des paramètres possible sur le site
de
Microsoft ?

Merci

Glenn



Glenn,

Je ne sais pas, j'ai recopié le code ad hoc d'une autre macro existante d'un
collègue.

Alain.

1 2