Discussion :

[l.escavia]

Bonjour,
Je réalise actuellement une application en HTA permettant de créer à partir des informations de l'AD une signature outlook dans différents formats (html, txt et rtf). La création des deux premiers fichier se passent très bien, mais pour le format RTF le fichier se crée mais n'est pas du tout complet, il manque certaines informations (nom, prénom par exemple) et l'adresse mail est coupé c'est à dire que j'ai juste @gmail.com.
Le code est assez long donc voici les parties qui seront utiles selon moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'Création du fichier rtf'
        rtfContents = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}}"
        rtfContents = rtfContents & "{\colortbl ;\red255\green0\blue0;\red0\green0\blue0;\red0\green0\blue255;}"
        rtfContents = rtfContents & "{\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\sa200\sl276\slmult1\cf1\lang12\f0\fs22\par\par"
        rtfContents = rtfContents & Txt_prenom.value & Txt_nom.value & "\par"
        rtfContents= rtfContents & "\cf2\i" & Txt_titre.value & "\par" 
        rtfContents= rtfContents & Txt_poste.Value & "\par\par"
        rtfContents= rtfContents & "\i0" & Txt_mail.value & "\par"
        rtfContents= rtfContents & "\cf1{\field{\*\fldinst{HYPERLINK'www.google.fr'}}{\fldrslt{\ul\cf3 www.google..fr}}}\cf2\f0\fs22\par\par"
        rtfContents= rtfContents & Txt_Add.Value & "\par"
        rtfContents= rtfContents & Txt_Code.Value & Txt_Ville.Value & "\par"
        rtfContents= rtfContents & "Tel : " & Txt_Tel.value & "\par\i\par\i0  \cf0\par}"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Récupération des infos de l\'AD
strNom = objItem.Get("sn")
strPrenom = objItem.Get("givenName")
strMail = objItem.Get("mail")
strStreetAddress = objItem.Get("streetAddress")
strCodePostal = objItem.Get("postalCode")
strPoste = objItem.Get("Department")
strTel = objItem.Get("telephoneNumber")
strTitre = objItem.Get("title")
strVille = objItem.Get("l")
 
'62    Ecriture des infos
Txt_nom.value= strNom
Txt_prenom.value= strPrenom
Txt_mail.value = strMail
Txt_Add.value = strStreetAddress
Txt_Code.value = strCodePostal
Txt_Poste.value = strPoste
Txt_tel.value = strTel
Txt_titre.value = strTitre
Txt_Ville.value = strVille
End Sub

Merci d'avance à ceux qui essayeront de m'aider.

[omen999]

bonjour,

comme il s'agit d'un vbscript de HTA, tous les objets "Txt_xxx" sont des objets DHTML mais
de quel type ?

(je suppose que tu as déjà vérifié que les différentes variables strXXX renvoyaient bien une chaine non vide...)

[l.escavia]

Bonjour,
Je pense que ça ne peut être que des string non ? (je débute dans tout ça donc si il existe une méthode pour vérifier je veux bien tester) et bien sûr mais variable ne sont pas vide pas car elles "fonctionnement" pour le fichier .html et .txt.

[ProgElecT]

Salut

Dans la variable rtfContents le codage RTF n'est pas bon.

Essais de coller le contenu de la variable dans un éditeur pouvant générer du RTF, tu verras que cela ne fonctionne pas.

Moi je ferais un exemple de rédaction complet de ce que tu veux en définitif, dans un éditeur supportant le RTF, je sauvegarderait en .rtf, j'ouvrirais dans un éditeur style notepad.

A partir de là, tu récupères tout le formatage voulut, tu remplaces les parties texte par tes différents input type="text".

[l.escavia]

Merci je vais essayer cette méthode mais je ne comprends juste pas de quel input type text tu parles.

[omen999]

mais je ne comprends juste pas de quel input type text tu parles.

ProgElect suppose que ton HTA contient un certain nombres d'objets DHTML de type INPUT TEXT
ça se présente dans ton code HTA sous cette forme (exemple pour l'objet Txt_nom) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<INPUT TYPE="TEXT" NAME="Txt_nom" SIZE="20,5" MAXLENGTH="250">

[ProgElecT]

Re

Ne pas se décourager, l’explication est plus longue que la manipe.

La trame de mise en page à l'aide de l'éditeur WordPad

le fichier sauvegarder .rtf de WordPad ouvert avec par exemple NotePad

{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}
{\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}
{\*\generator Riched20 10.0.17134}\viewkind4\uc1
\pard\sa200\sl276\slmult1\f0\fs22\lang12 Txt_prenom.value \b Txt_nom.value\b0\par
\cf1\b\fs24 Txt_titre.value\par
\cf0\b0 Txt_poste.Value\par
\cf2\b Txt_mail.value\par
\pard\sa200\sl276\slmult1\tx1278\cf3\b0\i Txt_Add.Value\par
\cf0\b\i0\f1 Txt_Code.Value Txt_Ville.Value\f0 \par
\b0\f2 Txt_Tel.value\fs22\par
}

Repérer les INPUT TYPE="TEXT"

{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}
{\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}
{\*\generator Riched20 10.0.17134}\viewkind4\uc1
\pard\sa200\sl276\slmult1\f0\fs22\lang12 Txt_prenom.value \b Txt_nom.value\b0\par
\cf1\b\fs24 Txt_titre.value\par
\cf0\b0 Txt_poste.Value\par
\cf2\b Txt_mail.value\par
\pard\sa200\sl276\slmult1\tx1278\cf3\b0\i Txt_Add.Value\par
\cf0\b\i0\f1 Txt_Code.Value Txt_Ville.Value\f0 \par
\b0\f2 Txt_Tel.value\fs22\par
}

Ajouter un " + & + un espace devant chaque Txt_????.Value, Ajouter un espace + & + " à la fin de chaque Txt_????.Value.

{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}
{\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}
{\*\generator Riched20 10.0.17134}\viewkind4\uc1
\pard\sa200\sl276\slmult1\f0\fs22\lang12 " & Txt_prenom.value & " \b "& Txt_nom.value &"\b0\par
\cf1\b\fs24 "& Txt_titre.value &"\par
\cf0\b0 "& Txt_poste.Value &"\par
\cf2\b "& Txt_mail.value &"\par
\pard\sa200\sl276\slmult1\tx1278\cf3\b0\i "& Txt_Add.Value &"\par
\cf0\b\i0\f1 "& Txt_Code.Value &" "& Txt_Ville.Value &"\f0 \par
\b0\f2 "& Txt_Tel.value &"\fs22\par
}

Ajouter un " en début et fin de chaque phrases.

"{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}"
"{\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}"
"{\*\generator Riched20 10.0.17134}\viewkind4\uc1"
"\pard\sa200\sl276\slmult1\f0\fs22\lang12 " & Txt_prenom.value & " \b "& Txt_nom.value &"\b0\par"
"\cf1\b\fs24 "& Txt_titre.value &"\par"
"\cf0\b0 "& Txt_poste.Value &"\par"
"\cf2\b "& Txt_mail.value &"\par"
"\pard\sa200\sl276\slmult1\tx1278\cf3\b0\i "& Txt_Add.Value &"\par"
"\cf0\b\i0\f1 "& Txt_Code.Value &" "& Txt_Ville.Value &"\f0 \par"
"\b0\f2 "& Txt_Tel.value &"\fs22\par"
"}"

Maintenant il suffit de mettre tous sa dans la variable rtfContents

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
rtfContents = "{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}"
rtfContents = rtfContents + "{\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}"
rtfContents = rtfContents + "{\*\generator Riched20 10.0.17134}\viewkind4\uc1"
rtfContents = rtfContents + "\pard\sa200\sl276\slmult1\f0\fs22\lang12 " & Txt_prenom.value & " \b "& Txt_nom.value &"\b0\par"
rtfContents = rtfContents + "\cf1\b\fs24 "& Txt_titre.value &"\par"
rtfContents = rtfContents + "\cf0\b0 "& Txt_poste.Value &"\par"
rtfContents = rtfContents + "\cf2\b "& Txt_mail.value &"\par"
rtfContents = rtfContents + "\pard\sa200\sl276\slmult1\tx1278\cf3\b0\i "& Txt_Add.Value &"\par"
rtfContents = rtfContents + "\cf0\b\i0\f1 "& Txt_Code.Value &" "& Txt_Ville.Value &"\f0 \par"
rtfContents = rtfContents + "\b0\f2 "& Txt_Tel.value &"\fs22\par"
rtfContents = rtfContents + "}"

ou bien comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
rtfContents = "{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1036{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset0 MS Sans Serif;}{\f2\fnil\fcharset0 Arial;}}" _
	& "{\colortbl ;\red0\green77\blue187;\red0\green176\blue80;\red255\green0\blue0;}" _
	& "{\*\generator Riched20 10.0.17134}\viewkind4\uc1" _
	& "\pard\sa200\sl276\slmult1\f0\fs22\lang12 " & Txt_prenom.value & " \b "& Txt_nom.value &"\b0\par" _
	& "\cf1\b\fs24 "& Txt_titre.value &"\par" _
	& "\cf0\b0 "& Txt_poste.Value &"\par" _
	& "\cf2\b "& Txt_mail.value &"\par" _
	& "\pard\sa200\sl276\slmult1\tx1278\cf3\b0\i "& Txt_Add.Value &"\par" _
	& "\cf0\b\i0\f1 "& Txt_Code.Value &" "& Txt_Ville.Value &"\f0 \par" _
	& "\b0\f2 "& Txt_Tel.value &"\fs22\par" _
	& "}"

Tout cela peut se faire très vite avec remplacer tout de l'éditeur:
Txt_ par " & Txt_
Value par Value & "