piertomjack
Messages postés4Date d'inscriptionvendredi 18 avril 2008StatutMembreDernière intervention21 avril 2008
-
18 avril 2008 à 14:05
piertomjack
Messages postés4Date d'inscriptionvendredi 18 avril 2008StatutMembreDernière intervention21 avril 2008
-
21 avril 2008 à 16:13
bonjour,
j'aimerais savoir s'il est possible d'insérer du html avec vbs? en fait je réaliser un script de signature automatique (pour une entreprise)(on donne à chaque utilisateur un pc, et on lance le script pour générer la signature), et pour l'instant, j'ai réussi à récupérer les données, à créer un fichier htm et afficher les données avec le minimum de mise en page ( police + taille de caractères + image). Cependant le résultat est très loin de celui voulu car j'aimerais pouvoir décaler mon texte sur la droite, une sorte de mise en boite en quelque sorte...
piertomjack
Messages postés4Date d'inscriptionvendredi 18 avril 2008StatutMembreDernière intervention21 avril 2008 19 avril 2008 à 19:33
le problème, c'est que ça m'affiche le code html dans la signature, ça ne l'interprète pas... la ou j'aimerais afficher un texte sur la droite comme dans ton exemple : ça m'affiche :
Email:
j'ai réussi en faisant deux tableaux à améliorer la chose, mais il n'y a rien a faire, si je pouvais faire ça avec du html, ce serait mieux....
Set objWord = CreateObject("Word.Application")
objWord.Visible = true
Set objDoc = objWord.Documents.Add()
objSelection.TypeText "______________________"
objSelection.TypeParagraph()
Set objDoc = objWord.Documents.Add()
Set objRange = objDoc.Range()
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
IF (strPhone=" " OR strphone = Null OR IsEmpty(strPhone)) THEN strPhone2 = InputBox("Veuillez entrer votre numero de téléphone cliquez sur ""annuler"" pour laisser le champs vide") ELSE strPhone2=strPhone
IF (strMobilePhone=" " OR strMobilePhone = Null OR IsEmpty(strMobilePhone)) THEN strMobilePhone2 = InputBox("Veuillez entrer votre numero de téléphone portable cliquez sur ""annuler"" pour laisser le champs vide") ELSE strMobilePhone2=strMobilePhone
IF (strFax=" " OR strFax = Null OR IsEmpty(strFax)) THEN strFax2 = InputBox("Veuillez entrer votre numero de Fax cliquez sur ""annuler"" pour laisser le champs vide") ELSE strFax2=strFax
Dim objFSO, objWsh, appDataPath, pathToCopyTo, plainTextFile, plainTextFilePath, richTextFile, richTextFilePath, htmlFile, htmlFilePath
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWsh = CreateObject("WScript.Shell")
appDataPath = objWsh.ExpandEnvironmentStrings("%APPDATA%")
pathToCopyTo = appDataPath & "\Microsoft\Signatures"
'HTML signature
htmlFilePath = pathToCopyTo & "Default.htm"
Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)
htmlfile.WriteLine("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">")
htmlfile.WriteLine("<META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">")
htmlfile.WriteLine("<META content=""MSHTML 6.00.6000.16640"" name=GENERATOR></HEAD>")