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.