Récupérer le contenu d'une variable quotée

Bonjour à tous,

A partir d'un script principal, je génère un fichier script secondaire (envoi de mail), jusque là, pas de pb. Dans le script principal, j'ai une variable, dont je dois écrire le contenu dans le fichier secondaire, ce contenu devant être quoté au final, et c'est là que je bloque:

script principal:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

MAIL_CMD.WriteLine "objMail.From = ""user@domaine.fr""" ' <=pas de pb MAIL_CMD.WriteLine "objMail.To = ""user1@domaine.fr""" '<=pas de pb 'et dans le corps du mail, je veux donc ajouter le contenu d'une variable TOTO, 'égale par ex à 5 MAIL_CMD.WriteLine "objMail.TextBody = ""TOTO""" '<=je bloque là   une fois le script secondaire généré: objMail.From = "user@domaine.fr" objMail.To = "user1@domaine.fr" objMail.TextBody = "TOTO" <= je ne récupère pas 5, mais toujours le nom de 'la variable TOTO

---

Merci d'avance pour vos idées.
PW

Bonjour, pour utiliser le contenu de la variable et pas son nom il suffit de sortir la variable des " .

Code:

---

MAIL_CMD.WriteLine "objMail.TextBody = """ & TOTO & """" '<=je bloque là

---

Bonjour bbil

et merci, tellement évident maintenant!!

PW

:salut:
Astuce : En VBScript, il y a plusieurs activités qui peuvent conduire à la nécessité de produire des chaînes qui ont des guillemets (") . Souvent cela se produit en raison de la nécessité de lancer une commande externe où les espaces sont présents dans un chemin.
Voila une petite fonction très simple qu'on peut l'utiliser sans douleur

Code:

---

1 2 3

Function qq(strIn) qq = Chr(34) & strIn & Chr(34) End Function

---

Exemple d'utilisation de cette fonction:
Par exemple vous voulez que les utilisateurs soient en mesure d'entrer dans le chemin et le nom d'un fichier zip et vous affichera une liste des fichiers de l'archive. Pour cela, en utilisant par exemple 7-Zip l'utilitaire de compression avec sa ligne de commande.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Dim strArchivePath Dim strCMD   strArchivePath = InputBox("Entrez le chemin de l'archive") strCMD = qq("C:\Program Files\7-zip\7z.exe") & " l " & qq(strArchivePath) WScript.Echo strCMD   Function qq(strIn) qq = Chr(34) & strIn & Chr(34) End Function

---