Aller au contenu

9project

Membres
 Afficher le profil  Afficher son activité

  • Compteur de contenus

    5

  • Inscription

  • Dernière visite

9project's Achievements

Junior Member

Junior Member (3/12)

0

Réputation sur la communauté

  1. 9project

    VBS configuration Outlook

    9project a répondu à un(e) sujet de 9project dans Programmation

    Avec mes maigres qualités en scripts, j'ai trouvé un moyen de contourner mon soucis en rusant un peu... Lorsque je lance outlook et que je crée un mail ou en réponse à, ma signature est en place. Set FSO = CreateObject("Scripting.FileSystemObject" ) Set oshell = createobject("wscript.shell") WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Office\12.0\Common\MailSettings\NewSignature", "%Userprofile%\Application Data\Microsoft\Signatures\Signature.htm", "REG_EXPAND_SZ" WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Office\12.0\Common\MailSettings\ReplySignature", "%Userprofile%\Application Data\Microsoft\Signatures\Signature.htm", "REG_EXPAND_SZ" WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Office\12.0\Common\General\Signatures", "Signatures", "REG_SZ" WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrrentVersion\Explorer\TypedPaths\url3", "%userprofile%\Application Data\Microsoft\Signatures", "REG_SZ" Quelqu'un aurait une réponse pour forcer le HTML dans outlook? Cordialement. 9project
  2. 9project
    Bonjour à tous, Actuellement je mets en place une automatisation de signature ( Voir sujet ici) J'aimerai y apporter des modifications quant au fonctionnement d'outlook. - Forcer le format des courriers au format HTML - Ajouter mon fichier Signature.htm comme signature par défaut dans outlook. J'ai créer un script permettant de modifier la base de registre pour ensuite l'insérer au début du script mentionné dans le sujet ci-dessus. Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Office\10.0\Common\MailSettings\NewSignature", "Signature", "REG_EXPAND_SZ" WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Office\10.0\Common\MailSettings\ReplySignature", "Signature", "REG_EXPAND_SZ" WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Office\10.0\Common\General\Signatures", "Signatures", "REG_SZ" WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrrentVersion\Explorer\TypedPaths\url3", "%userprofile%\Application Data\Microsoft\Signatures", "REG_SZ" Malheureusement pour moi cela ne répond pas à ma demande qu'est de forcer au format HTML et d'ajouter le .htm en y indiquant le chemin. En ouvrant outlook, il ne trouve pas le fichier. Je sais qu'il y a eu des scripts qui répondent completement à ma demande mais je n'arrive pas à les interpréter et à modifier mon script en y ajoutant les informations nécessaires à son bon fonctionnement. J'espère que cela est compréhensible. Merci de votre aide. Cordialement. 9project
  3. 9project
    Malgré le fait qu'il ne soit pas complet tu as résolu ma question et je t'en remercie! Pour ce qui est du code complet le voici dans son intégralité si jamais cela peut dépanner : '--------------------------------------------------------------------------------------------------------- 'Définition de la signature Outlook via paramètres utilisateur Active Directory ' ' ### PREMIER SCRIPT ### LE SECOND SE TROUVE A LA FIN DE CELUI-CI ### '--------------------------------------------------------------------------------------------------------- ' ' ' Test l'existence d'un fichier Set FSO = CreateObject("Scripting.FileSystemObject" ) Set oshell = createobject("wscript.shell") If FSO.FileExists (oshell.expandenvironmentstrings("%userprofile%") &"\Application Data\Microsoft\Signatures\Signature.htm" ) Then wscript.Quit Else 'Définition des variables et vérification de l'existance du dossier ....\Microsoft\Signatures set netw=createobject("wscript.network") Set FileSystem = wscript.CreateObject("Scripting.FileSystemObject") set oshell = createobject("wscript.shell") if not FileSystem.folderexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures") then FileSystem.CreateFolder(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures") End If Set OutPutFileHtml = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Signature.htm", True) 'Send START Message 'wscript.Echo "Creation signature Outlook en cours ... Veuillez patientez, s'il vous plait" 'Définition des OU Active Directory ' ' ' '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! '!!!! xxxx = A définir suivant votre configuration AD !!!!! '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ' ' ' Set oContainer=GetObject("LDAP:// ou=Users, dc=domaine, dc=com") EnumerateUsers oContainer ' ' 'Message de fin de procédure sur Erreur ' wscript.Echo "Erreur: utilisateur inconnu ou mauvaise definition Active Directory ..." wscript.Quit 'Sub Programme de recherche "EnumerateUsers" Sub EnumerateUsers(oCont) Dim oUser strCOMPANY ="COMPANY A" strCOMPANY2 = "COMPANY B" strCOMPANY3 = "COMPANY C" For Each oUser In oCont Select Case LCase(oUser.Class) Case "user" If oUser.sAMAccountName=netw.username Then 'Affichage des paramètres de l'utilisateur BtnCode = 6 If BtnCode=6 then 'Création du fichier au format HTML OutPutFileHtml.WriteLine "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" OutPutFileHtml.WriteLine "<HTML><HEAD>" OutPutFileHtml.WriteLine "<meta http-equiv=Content-Type content=""text/html; charset=windows-1252"">" OutPutFileHtml.WriteLine "<meta name=ProgId content=Word.Document>" OutPutFileHtml.WriteLine "<meta name=Generator content=""Microsoft Word 10"">" OutPutFileHtml.WriteLine "<meta name=Originator content=""Microsoft Word 10"">" OutPutFileHtml.WriteLine "<link href=""David_fichiers/filelist.xml"" rel=""File-List"">" OutPutFileHtml.WriteLine "<link href=""David_fichiers/editdata.mso"" rel=""Edit-Time-Data"">" OutPutFileHtml.WriteLine "<!--[if !mso]>" OutPutFileHtml.WriteLine "<style>" OutPutFileHtml.WriteLine "<!--" OutPutFileHtml.WriteLine "/* Style Definitions */" OutPutFileHtml.WriteLine "p.MsoNormal, li.MsoNormal, div.MsoNormal" OutPutFileHtml.WriteLine "{mso-style-parent:"";" OutPutFileHtml.WriteLine "margin:0cm;" OutPutFileHtml.WriteLine "margin-bottom:.0001pt;" OutPutFileHtml.WriteLine "mso-pagination:widow-orphan;" OutPutFileHtml.WriteLine "font-size:12.0pt;" OutPutFileHtml.WriteLine "font-family:""Times New Roman"";" OutPutFileHtml.WriteLine "mso-fareast-font-family:""Times New Roman"";}" OutPutFileHtml.WriteLine "a:link, span.MsoHyperlink" OutPutFileHtml.WriteLine "{color:blue;" OutPutFileHtml.WriteLine "text-decoration:underline;" OutPutFileHtml.WriteLine "text-underline:single;}" OutPutFileHtml.WriteLine "a:visited, span.MsoHyperlinkFollowed" OutPutFileHtml.WriteLine "{color:blue;" OutPutFileHtml.WriteLine "text-decoration:underline;" OutPutFileHtml.WriteLine "text-underline:single;}" OutPutFileHtml.WriteLine "p" OutPutFileHtml.WriteLine "{mso-margin-top-alt:auto;" OutPutFileHtml.WriteLine "margin-right:0cm;" OutPutFileHtml.WriteLine "mso-margin-bottom-alt:auto;" OutPutFileHtml.WriteLine "margin-left:0cm;" OutPutFileHtml.WriteLine "mso-pagination:widow-orphan;" OutPutFileHtml.WriteLine "font-size:12.0pt;" OutPutFileHtml.WriteLine "font-family:""Times New Roman"";" OutPutFileHtml.WriteLine "mso-fareast-font-family:""Times New Roman"";}" OutPutFileHtml.WriteLine "@page Section1" OutPutFileHtml.WriteLine "{size:595.3pt 841.9pt;" OutPutFileHtml.WriteLine "margin:70.85pt 70.85pt 70.85pt 70.85pt;" OutPutFileHtml.WriteLine "mso-header-margin:35.4pt;" OutPutFileHtml.WriteLine "mso-footer-margin:35.4pt;" OutPutFileHtml.WriteLine "mso-paper-source:0;}" OutPutFileHtml.WriteLine "div.Section1" OutPutFileHtml.WriteLine "{page:Section1;}" OutPutFileHtml.WriteLine "-->" OutPutFileHtml.WriteLine "</style>" OutPutFileHtml.WriteLine "</head>" OutPutFileHtml.WriteLine "<body lang=FR link=blue vlink=blue style='tab-interval:35.4pt'>" OutPutFileHtml.WriteLine "<div class=Section1>" OutPutFileHtml.WriteLine "<p> </p>" OutPutFileHtml.WriteLine "<BR>" OutPutFileHtml.WriteLine "<SPAN lang=fr>" OutPutFileHtml.WriteLine "<span style='font-family:Arial; font-size: 10pt;'>Cordialement</SPAN></SPAN><BR><BR>" 'Si l'utilisateur fait partit de COMPANY A If oUser.company <> strCOMPANY And oUser.company <> strCOMPANY3 Then OutPutFileHtml.WriteLine "<table class=""MsoNormalTable"" width=""400"" cellspacing=""0"" cellpadding=""0"" border=""0"" style=""width:300.0pt;mso-cellspacing:0cm;mso-padding-alt:0cm 0cm 0cm 0cm"">" OutPutFileHtml.WriteLine "<tbody>" OutPutFileHtml.WriteLine "<tr style='mso-yfti-irow:0;mso-yfti-lastrow:yes'>" OutPutFileHtml.WriteLine "<td width=400 style='width:300.0pt;padding:0cm 0cm 0cm 0cm'>" OutPutFileHtml.WriteLine "<table class=""MsoNormalTable"" width=""400"" cellspacing=""0"" cellpadding=""0"" border=""0"" style=""width:300.0pt;mso-cellspacing:0cm;mso-padding-alt:0cm 0cm 0cm 0cm"">" OutPutFileHtml.WriteLine "<tbody>" OutPutFileHtml.WriteLine "<tr style='mso-yfti-irow:0'>" OutPutFileHtml.WriteLine "<td width=127 style='width:95.25pt;padding:0cm 0cm 0cm 0cm'>" OutPutFileHtml.WriteLine "<img id=""_x0000_i1025"" width=""133"" height=""51"" src=""http://www.mondomaine.fr/logomail.jpg"">" OutPutFileHtml.WriteLine "</td>" OutPutFileHtml.WriteLine "<td width=273 style='width:204.75pt;padding:0cm 0cm 0cm 0cm'>" OutPutFileHtml.WriteLine "<strong><span style='font-family:Arial; font-size: 10pt;'>" & oUser.givenname & " " & oUser.sn &"</span></strong><br>" OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial; color:black'>" & oUser.title & "</span><br>" OutPutFileHtml.WriteLine "<a href=""mailto:" OutPutFileHtml.WriteLine oUser.mail OutPutFileHtml.WriteLine """ span><span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.mail & "<br>" OutPutFileHtml.WriteLine "</span></a><span style='font-size:9.0pt;font-family:Arial;color:black'>Tél." OutPutFileHtml.WriteLine "" & oUser.telephoneNumber & "</span>" OutPutFileHtml.WriteLine "</td>" OutPutFileHtml.WriteLine "</tr>" OutPutFileHtml.WriteLine "<tr style='mso-yfti-irow:1;mso-yfti-lastrow:yes;height:67.5pt'>" OutPutFileHtml.WriteLine "<td colspan=2 valign=bottom style='padding:0cm 0cm 0cm 0cm;height:67.5pt'>" OutPutFileHtml.WriteLine "<b><span style='font-size:9.0pt;font-family:Arial;" OutPutFileHtml.WriteLine "color:#FF6600'>" & oUser.company & "</span><span style='font-size:" OutPutFileHtml.WriteLine "9.0pt;font-family:Arial;color:#009EE0'> </span></b><br>" OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.streetAddress & " - BP " & oUser.postOfficeBox & " - " & oUser.postalCode & " "& oUser.l & "<br>" OutPutFileHtml.WriteLine "Tél : " & oUser.ipPhone & " - Fax : " & oUser.facsimileTelephoneNumber & "</span><o:p></o:p><br>" OutPutFileHtml.WriteLine "<a href=""http://www.mondomaine.com%20"" span><span" OutPutFileHtml.WriteLine " style='font-size:9.0pt;font-family:Arial;color:black'>www.mondomaine.com" OutPutFileHtml.WriteLine "</span></a>" OutPutFileHtml.WriteLine "</td>" OutPutFileHtml.WriteLine "</tr>" OutPutFileHtml.WriteLine "</tbody>" OutPutFileHtml.WriteLine "</table>" OutPutFileHtml.WriteLine "<p class=MsoNormal><o:p></o:p></p>" OutPutFileHtml.WriteLine "</td>" OutPutFileHtml.WriteLine "</tr>" OutPutFileHtml.WriteLine "</tbody>" OutPutFileHtml.WriteLine "</table>" OutPutFileHtml.WriteLine "<p class=MsoNormal></p>" End If 'Si l'utilisateur fait partit de COMPANY B If oUser.company <> strCOMPANY2 And oUser.company <> strCOMPANY3 Then OutPutFileHtml.WriteLine "<table width=""440"" border=""0"" cellspacing=""0"" cellpadding=""0"">" OutPutFileHtml.WriteLine "<tr>" OutPutFileHtml.WriteLine "<td width=""40""> </td>" OutPutFileHtml.WriteLine "<td width=""400""><table width=""400"" border=""0"" cellspacing=""0"" cellpadding=""0"">" OutPutFileHtml.WriteLine "<tr>" OutPutFileHtml.WriteLine "<td width=""127""><img src=""http://www.mondomaine.fr/logomail.jpg"" width=""120"" height=""80""></td>" OutPutFileHtml.WriteLine "<td width=""273"" valign=""left""><span Style=""Font: bold 12px Arial; color:black;"">" & oUser.givenname & " " & oUser.sn &"</span><br>" OutPutFileHtml.WriteLine "<span style=""Font: 12px Arial; color:black;"">" & oUser.title & "</span><br>" OutPutFileHtml.WriteLine "<a href=""mailto:" OutPutFileHtml.WriteLine oUser.mail OutPutFileHtml.WriteLine """ span><span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.mail & "</a><br>" OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial;color:black'>Tél : " & oUser.telephoneNumber & "</SPAN>" OutPutFileHtml.WriteLine "</td>" OutPutFileHtml.WriteLine "</tr>" OutPutFileHtml.WriteLine "<tr valign=""bottom"">" OutPutFileHtml.WriteLine "<td height=""90"" colspan=""2""><span Style=""Font: bold 12px Arial; color:#009EE0;"">Texte </span><br>" OutPutFileHtml.WriteLine "<span Style=""Font: 12px Arial; color:black;"">" & oUser.streetAddress & " - BP " & oUser.postOfficeBox & " - " & oUser.postalCode & " "& oUser.l & "<br>" OutPutFileHtml.WriteLine "Tél : " & oUser.ipPhone & " - Fax : " & oUser.facsimileTelephoneNumber & "</span><br>" OutPutFileHtml.WriteLine "<a href=""http://www.mondomaine.com"" span Style=""Font: 12px Arial; color:black; text-decoration:underline;"">www.mondomaine.com </a> </p></td>" OutPutFileHtml.WriteLine "</tr>" OutPutFileHtml.WriteLine "</table></td>" OutPutFileHtml.WriteLine "</tr>" OutPutFileHtml.WriteLine "</table>" End If 'Si l'utilisateur fait partit de COMPANY C If oUser.company <> strCOMPANY And oUser.company <> strCOMPANY2 Then OutPutFileHtml.WriteLine "<b><span style='font-size:11.0pt; font-family:Arial; color:#009ad8'>" & oUser.givenname & " " & oUser.sn &"</span></b></span><BR>" OutPutFileHtml.WriteLine "<span style='font-size:9.0pt; font-family:Arial;color:black'>" & oUser.title & "</SPAN><BR>" OutPutFileHtml.WriteLine "<span style='font-size:9.0pt; font-family:Arial;color:black'>COMPANY C</SPAN><BR>" OutPutFileHtml.WriteLine "<A href=""mailto:" OutPutFileHtml.WriteLine oUser.mail OutPutFileHtml.WriteLine """><span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.mail & "</A></SPAN></SPAN><BR>" OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial;color:black'>Tél : " & oUser.telephoneNumber & "</SPAN><BR>" OutPutFileHtml.WriteLine "<BR>" OutPutFileHtml.WriteLine "<IMG SRC=""http://www.mondomaine.fr/logomail.jpg""></a>" OutPutFileHtml.WriteLine "<BR>" OutPutFileHtml.WriteLine "<BR>" OutPutFileHtml.WriteLine "<b><span style='font-size:9.0pt; font-family:Arial; color:#000'>" & oUser.company & "</SPAN></b><BR>" OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.streetAddress & " - BP " & oUser.postOfficeBox & "</SPAN><BR>" OutPutFileHtml.WriteLine "<span style='font-size:9.0pt;font-family:Arial;color:black'>" & oUser.postalCode & " " & oUser.l & "</SPAN><BR>" OutPutFileHtml.WriteLine " <A href=""http://www.mondomaine.com""><SPAN" OutPutFileHtml.WriteLine " lang=fr><U><span style='font-size:9.0pt; font-family:Arial; color:black; text-decoration:" OutPutFileHtml.WriteLine " none;'>www.mondomaine.com</SPAN></U></SPAN></A><BR>" OutPutFileHtml.WriteLine " <A href=""http://www.mondomaine.com""><SPAN" OutPutFileHtml.WriteLine " lang=fr><U><span style='font-size:9.0pt; font-family:Arial; color:black; text-decoration:" OutPutFileHtml.WriteLine " none;'>www.mondomaine.com</SPAN></U></SPAN></A>" End If OutPutFileHtml.WriteLine " </DIV></BODY></HTML>" OutPutFileHtml.Close 'Message de FIN normale de la procédure ' wscript.Echo "Définition signature terminée" wscript.Quit else 'Message de d'ABANDON de la procédure ' wscript.Echo "Procédure annulée" wscript.Quit End If End If Case "organizationalunit", "container" EnumerateUsers oUser End Select Next End Sub End If wscript.Quit Encore Merci pour ton aide! Cordialement. 9project
  4. 9project
    Salut! Merci pour ta réponse. J'ai commenté les lignes commencant par "WScript.Echo" et je n'ai plus de boîtes de dialogue. Pour ce qui est de la ligne BtnCode si je l'enlève mon html n'est plus alimenté en données...
  5. 9project
    Bonjour à tous, J'ai actuellement un script qui me permet de générer trois signatures mail au format html en fonction de l'appartenance de l'utilisateur. Le soucis c'est que ce script attend une validation manuelle des informations récupérées dans l'AD et que j'aimerai que, lorsque je lance mon vbs, tout ce fasse automatiquement sans que j'ai à cliquer où que ce soit. Je ne suis pas développeur du tout et là je sèche... Le but étant d'intégrer ce script dans une GPO. Autrement le script fonctionne parfaitement sauf ce soucis. Voici le début du code en question: '--------------------------------------------------------------------------------------------------------- 'Définition de la signature Outlook via paramètres utilisateur Active Directory ' ' ### PREMIER SCRIPT ### LE SECOND SE TROUVE A LA FIN DE CELUI-CI ### '--------------------------------------------------------------------------------------------------------- ' ' ' Test l'existence d'un fichier Set FSO = CreateObject("Scripting.FileSystemObject" ) Set oshell = createobject("wscript.shell") If FSO.FileExists (oshell.expandenvironmentstrings("%userprofile%") &"\Application Data\Microsoft\Signatures\Signature.htm" ) Then Wscript.Echo "Le fichier existe." Else 'Définition des variables et vérification de l'existance du dossier ....\Microsoft\Signatures set netw=createobject("wscript.network") Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject") set oshell = createobject("wscript.shell") if not FileSystem.folderexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures") then FileSystem.CreateFolder(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures") End If Set OutPutFileHtml = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Signature.htm", True) 'Send START Message WScript.Echo "Creation signature Outlook en cours ... Veuillez patientez, s'il vous plait" 'Définition des OU Active Directory ' ' ' '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! '!!!! xxxx = A définir suivant votre configuration AD !!!!! '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ' ' ' Set oContainer=GetObject("LDAP:// ou=Users, dc=domaine, dc=com") EnumerateUsers oContainer ' ' 'Message de fin de procédure sur Erreur WScript.Echo "Erreur: utilisateur inconnu ou mauvaise definition Active Directory ..." WScript.Quit 'Sub Programme de recherche "EnumerateUsers" Sub EnumerateUsers(oCont) Dim oUser strCOMPANY ="Company A" strCOMPANY2 = "Company B" strCOMPANY3 = "Company C" For Each oUser In oCont Select Case LCase(oUser.Class) Case "user" If oUser.sAMAccountName=netw.username Then 'Affichage des paramètres de l'utilisateur BtnCode = oshell.Popup("Prénom: " & oUser.givenname & chr(13) & "Nom: " & oUser.sn & chr(13) & "Adresse: " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l & chr(13) & "Société :" & oUser.company & chr (13) & "Tél : " & oUser.telephoneNumber & chr(13) & "Port : " & oUser.mobile & chr(13) & "Mail: " & oUser.mail & chr(13) & chr(13), 0, "Voulez-vous continuer: ?", 4 + 64) If BtnCode=6 then Merci pour votre aide. Cordialement. 9project
×
×
  • Créer...