Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1896 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Script pour signatures outlook erreur

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Script pour signatures outlook erreur

n°2307707
youssefdua​fg
Posté le 14-11-2017 à 10:20:05  profilanswer
 

Bonjour a tous,
Je cherchais un script pour creer une signature outlook automaitque a partir des informations enrengistrés sur l'active Directory  
J'ai modifié mais j'ai une erreur car j'ai essayé de créer une instruction Si ou il va récupérer l'adresse postale dans l'ad avec objUser.StreetAddress et si l'adresse correspond il récupère l'image et la place dans vLogoImage.
Tout me semble bon mais lors de l’exécution du script il m'affiche une erreur.
Si quelqu'un s'y connait et peut m'aider je le remercie.
Ps le code est dans spoilier et en gras ce que j'ai modifié.

Spoiler :

' **********************************************************************
' Title       : FirmaDitta.vbs
' Description : This VB script automatically creates custom signatures
'               for Microsoft Outlook, from Active Directory, using COM objects
' Author      : Joseph MICACCIA
' Date        : 2016.08.24
' Version     : 1.0
' **********************************************************************
 
On Error Resume Next
 
' Function to send emails via SMTP server
Function SendMail(sFrom, sTo, sSubject, sHtmlBody)
                Dim objMail,objConfig,objFields
                Set objMail = CreateObject("CDO.Message" )
                Set objConfig = CreateObject("CDO.configuration" )
                Set objFields = objConfig.Fields
                With objFields
                .Item("http://schemas.microsoft.com/cdo/configuration/SendUsing" )= 2
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" )= "smtp.sfrbusinessteam.fr"
                .Item("http://schemas.microsoft.com/cdo/configuration/SMTPServerPort" )= 25
                .Update
                End With
                With objMail
                Set .Configuration = objConfig
                .From = sFrom
                .To = sTo
                .Cc = sCc
                .Bcc = sBcc
                .Subject = sSubject
                .HTMLBody = sHtmlBody
                .Send
                End With
End Function
 
' # Get user's data from Active Directory
Set objSysInfo  = CreateObject("ADSystemInfo" )
sUtente   = objSysInfo.UserName
Set objUser  = GetObject("LDAP://" & sUtente)
uFirstName   = objUser.givenName
uName    = objUser.sn
uTitle    = objUser.Title
uTelephone   = "Tel. : " & objUser.TelephoneNumber
if Len(objUser.Mobile)>0 then
  uMobile   = " - Mob. : " & objUser.Mobile
 else
  uMobile   = ""
 end if
uMail   = objUser.mail
uStreet   = objUser.StreetAddress
uPostal   = objUser.PostalCode
uCity    = objUser.l
 
' # Send email to administrator
sHtmlBody = sUtente & "<br/>FirstName: " & uFirstName & "<br/>Name: " & uName & "<br/>Title: " &  uTitle & "<br/>Telephone: " & uTelephone & "<br/>Mobile: " & uMobile & "<br/>Street: " & uStreet & "<br/>Postal code: " & uPostal & "<br/>City: " & uCity
sSubject = "Signature automatique pour [" & uFirstName & " " & uName & "]"
Call SendMail("Automatic script <yafker@printemps.fr>", "Admin <yafker@printemps.fr>", sSubject, sHtmlBody)
 
' # Log to file
Set objFSO = CreateObject("Scripting.FileSystemObject" )
'Set myLog  = objFSO.OpenTextFile("t:\my.log", 8, True)
Set myLog  = objFSO.OpenTextFile(Wscript.ScriptFullName & ".log", 8, True)
'curDate =  Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & Time
curDate =  Date & " " & Time
myLog.Write curDate & " * " & sSubject & vbCrlf
myLog.Close
 
' # Create the Word document using COM objects
vBack2Line  = chr(11)
vColorBlack  = RGB(0,0,0) '6299648
vColorGray  = RGB(128,128,128) '8418944
'vCompanyName = "Printemps"
'vCompanyUrl  = "www.printemps.com"
'vCompanyLink = "http://www.printemps.com"
If objUser.Streetaddress ="98 rue de la victoire" Then
 vLogoImage = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/SIEGE/Signature%20Printemps%20-%20Si%C3%A8ge%20Victoire.jpg"
 Else If  objUser.Streetaddress ="haussman" Then
 vLogoImage = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/HAUSSMANN/Signature%20Printemps%20-%20ouverture%20dimanche.jpg"
 Else  
 vLogoImage ="https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/HAUSSMANN/Signature%20Printemps%20-%20ouverture%20dimanche%20-%20Anglais.jpg"
 End if

Set objWord = CreateObject("Word.Application" )
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
objSelection.Font.Name = "Printania Sans"
objSelection.Font.Size = 10
objSelection.TypeParagraph()
objSelection.Font.Color = vColorBlack
'objSelection.TypeText "Cordialement,"
objSelection.TypeText vBack2Line
objSelection.Font.Bold = True 'youssef
objSelection.TypeText uFirstName & " "
'objSelection.Font.Bold = True
objSelection.TypeText uName
objSelection.Font.Bold = False
objSelection.Font.Name = "Printania Sans Light"
objSelection.Font.Size = 10
objSelection.TypeText vBack2Line
objSelection.TypeText uTitle
objSelection.TypeText vBack2Line
objSelection.Font.Color = vColorGray
objSelection.TypeText uTelephone & uMobile
objSelection.Font.Color = vColorGray
objSelection.TypeText vBack2Line
objSelection.TypeText uMail'youssef
objSelection.TypeText vBack2Line
objSelection.TypeText uStreet & " - " & uPostal & " " & uCity
'objSelection.TypeText vBack2Line
'objSelection.TypeText vBack2Line
'Set objLink = objSelection.Hyperlinks.Add(objSelection.Range, vCompanyLink,,, vCompanyUrl)
'objLink.Range.Font.Color = vColorBlue
'objLink.Range.Font.Name = "Printania Sans Light"  
'objLink.Range.Font.Size = 10  
'ObjLink.Range.Font.Bold = true
objSelection.TypeText vBack2Line
objSelection.InlineShapes.AddPicture(vLogoImage)
Set objSelection = objDoc.Range()
 
' # Set the signature for new mail
TitleNew=vCompanyName & " New"
objSignatureEntries.Add TitleNew, objSelection
objSignatureObject.NewMessageSignature = TitleNew
 
' # Set the signature for reply
TitleReply=vCompanyName & " Reply"
objSignatureEntries.Add TitleReply, objSelection
objSignatureObject.ReplyMessageSignature = TitleReply
 
' # Save the document
objDoc.Saved = True
objWord.Quit
 
Dim WshShell
Set WshShell  = CreateObject("WScript.Shell" )
WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Office\14.0\Common\MailSettings\NewSignature", TitleNew, "REG_EXPAND_SZ"  
WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Office\14.0\Common\MailSettings\ReplySignature", TitleReply, "REG_EXPAND_SZ"  
'WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Office\14.0\Common\General\Signatures", "Signatures", "REG_SZ"
'WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrrentVersion\Explorer\TypedPaths\url3", "%userprofile%\Application Data\Microsoft\Signatures", "REG_SZ"
'Set objSysInfo = nothing  

mood
Publicité
Posté le 14-11-2017 à 10:20:05  profilanswer
 

n°2316955
josephm
Posté le 14-06-2018 à 14:48:24  profilanswer
 

Bonjour youssefduafg,
 
Je fais suite à votre demande. Je suis l'auteur de ce script et je peux vous aider à l'adapter en fonction de vos besoins.  
 
Merci de préciser l'erreur qui s'affiche après vos modifications.  
 
Je reste à votre écoute, soit sur ce site, soit directement via le formulaire de contact du site où vous avez trouvé le script.
 
A bientôt,
Cordialement

n°2317186
youssefdua​fg
Posté le 21-06-2018 à 10:27:23  profilanswer
 

josephm a écrit :

Bonjour youssefduafg,
 
Je fais suite à votre demande. Je suis l'auteur de ce script et je peux vous aider à l'adapter en fonction de vos besoins.  
 
Merci de préciser l'erreur qui s'affiche après vos modifications.  
 
Je reste à votre écoute, soit sur ce site, soit directement via le formulaire de contact du site où vous avez trouvé le script.
 
A bientôt,
Cordialement


Bonjour JosphM
 
Depuis je me suis inspiré de ton script et d'autres script mais j'ai toujours besoin d'aide pour le finir si vous êtes disponible cette semaine ou ce week end merci de m'envoyer un message privée
 
 
 
Mon nouveau script ou j'aimerais intégrer des fenêtres personnalisé au couleurs de mon entreprise  et textbox de saisie pour faire modifier certaines variables par l’utilisateur.
Voici un processus qui explique mon besoin.
 
https://image.noelshack.com/minis/2018/25/4/1529569577-yoyo.png

Spoiler :

#variables
#$pathPictures = ""  #chemin de l'image sur le réseau
#$PathSignaturesLine = "" # chemin de la ligne de la signature sur le réseau
#erreur ligne 34 41 200
 
$CompanyName = 'Printemps' #Nom de la compagnie pour nommer le fichier
$AppData=(Get-Item env:appdata).value # valeur du chemin local vers le dossier appdata
$SigPath = '\Microsoft\Signatures' #dossier ou se trouve la signature Outlook  
$LocalSignaturePath = $AppData+$SigPath  # chemin complet vers la signature Outlook
$SiteWeb = "www.printemps.fr" #url du site web
 
#Get Active Directory information for current user  
$UserName = $env:username  
$Filter = "(&(objectCategory=User)(samAccountName=$UserName))"  
$Searcher = New-Object System.DirectoryServices.DirectorySearcher  
$Searcher.Filter = $Filter  
$ADUserPath = $Searcher.FindOne()  
$ADUser = $ADUserPath.GetDirectoryEntry()  
$ADDisplayName = $ADUser.DisplayName
$ADFirstName = $ADUser.givenName #Prenom
$ADName =  $ADUser.sn #NOM
$ADEmailAddress = $ADUser.mail  
$ADTitle = $ADUser.title  
$ADTelePhoneNumber = $ADUser.TelephoneNumber
 
$ADMobile = $ADUser.mobile  
$ADDescription = $ADUser.description
$company = $ADUser.StreetAddress
 
# Configuration de la signature par defaut pour tout nouveau message  
$MSWord = New-Object -com word.application  
$EmailOptions = $MSWord.EmailOptions  
$EmailSignature = $EmailOptions.EmailSignature  
$EmailSignatureEntries = $EmailSignature.EmailSignatureEntries  
$EmailSignature.NewMessageSignature=$ADDisplayName  
$MSWord.Quit()  
 
# Configuration de la signature par defaut pour les reponses ou transfert de message  
$MSWord = New-Object -com word.application  
$EmailOptions = $MSWord.EmailOptions  
$EmailSignature = $EmailOptions.EmailSignature  
$EmailSignatureEntries = $EmailSignature.EmailSignatureEntries  
$EmailSignature.ReplyMessageSignature=    $selection.typeText("Réponse" + $ADDisplayName)
$MSWord.Quit()  
[ref]$SaveFormat = "microsoft.office.interop.word.WdSaveFormat" -as [type]
$word = New-Object -ComObject word.application
$word.visible = $false
$doc = $word.documents.add()
 
$selection = $word.selection
$selection.font.color = 0
#selection du logo  
switch ($company)
    {
         "" #Par défault
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/HAUSSMANN/Signature%20Printemps%20-%20ouverture%20dimanche%20-%20Anglais.jpg"}
           #$PathSignaturesLine = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/SIEGE/Signature%20Printemps%20-%20Si%C3%A8ge%20Victoire.jpg" }
         
         "102 rue de Provence" #Printemps Siège
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/SIEGE/Signature%20Printemps%20-%20Si%c3%a8ge%20Provence.jpg"}
 
         "Siège Anjou" #Siège Anjou  
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/SIEGE/Signature%20Printemps%20-%20Si%c3%a8ge%20Anjou.jpg"}
 
         "98 rue de la Victoire" #Siège Victoire
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/SIEGE/Signature%20Printemps%20-%20Si%C3%A8ge%20Victoire.jpg"}
               #$PathSignaturesLine = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/SIEGE/Signature%20Printemps%20-%20Si%C3%A8ge%20Victoire.jpg" }
 
         "C. Cial Alma" #Printemps Rennes
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Alma.jpg"}
 
         "104, rue Eugène Colas" #Printemps Deauville
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Deauville.jpg" }
 
         "C.Cial Avenue de l'université" #Printemps Toulon Grand Var  
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Grand%20var.jpg" }
 
         "64 boulevard Haussmann" #Printemps Haussman
            {  $pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/HAUSSMANN/Signature%20Printemps%20-%20ouverture%20dimanche.jpg" }
     
         "30 avenue d'Italie"  #Printemps Italie 2
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Italie%202.jpg" }
 
         "32, avenue René Coty" #Printemps Le Havre
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Le%20Havre.jpg" }
             
         "CC La Valentine Chem. Sablière" #Printemps Marseille les terasses du port  
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Les%20Terrasses%20du%20port.jpg" }
             
         "39-45 rue nationale" #Printemps Lille
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Lille.jpg" }
             
         "99, rue de Rivoli" #Printemps Du Louvre
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Louvre.jpg" }
             
         "42, rue de la République" #Printemps Lyon  
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Lyon.jpg" }
             
         "16 rue Serpenoise" #Printemps Metz  
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Metz.jpg" }
             
         "2, avenue Foch" #Printemps Nancy
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Nancy.jpg" }
             
         "21-25 cours de Vincennes" #Printemps Nation  
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Nation.jpg" }
             
         "1-5 Rue de la Quenouille" #Printemps Outlet Miramas
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Outlet%20Miramas.jpg" }
             
         "Avenue du Général de Gaulle" #Printemps Parly 2
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Parly%202.jpg" }
             
         "137, Avenue des Alpes" #Polygone Riviera cagnes sur mer
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Polygone%20Riviera.jpg" }
             
         "4 rue du Gros Horloge" #Printemps Rouen  
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Rouen.jpg" }
             
         "1 à 5 rue de la Haute Montée" #Printemps Strasbourg
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Strasbourg.jpg" }
             
         "CC La Valentine Chem. Sablière" #Marseille  
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Valentine.jpg" }
             
         "2 Avenue de l'Europe" #Printemps Vélizy 2
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/CHAINE/Signature%20Printemps%20-%20Velizy%202.jpg" }
 
         "Parc d'activité de l'Alouette"  #Printemps Logisitque cd2
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/PRINTEMPS%20LOGISTIQUE/Signature%20Printemps%20-%20Logistique.jpg" }
       
         "65 AV DES CHAMPS ELYSEES"  #Champs elyzé pas d'image signature  
            {$pathPictures = "https://printempso365.sharepoint.com/sites/planete/PublishingImages/COMMUNICATION/MODELES-ET-CHARTES/SIGNATURES/HAUSSMANN/Signature%20Printemps%20-%20ouverture%20dimanche%20-%20Anglais.jpg" }      
    }
 
#$selection.ParagraphFormat.linespacing = 0
#$selection.style = "0 pt" #"No Spacing"
$selection.paragraphs.spaceafter = 0  
#Insertion du prenom suivi du nom en majuscule
$selection.font.Name = "Printania Sans"
$selection.font.size = 10
$selection.font.bold = 1
$selection.font.Italic = 0
$selection.typeText("$ADFirstName" + " " + ($ADName.tostring()).ToUpper() )
 
#$selection.ParagraphFormat.linespacing = 12
#insertion du titre de la fonction
$selection.TypeParagraph()
$selection.font.Name = "Printania Sans Light"
$selection.font.size = 10
$selection.font.bold = 0
$selection.font.Italic = 0
$selection.typeText($ADTitle)
$string5 = ("  " )
 
If ($string5 -match '|'){$selection.TypeText($Matches[0])}
$selection.font.name = "Printania Sans Light"
$selection.TypeText($string5 -replace '|')
 
 
#insertion du telephone
if ($ADTelePhoneNumber.ToString() -ne "" )
{
     
    $selection.TypeParagraph()
    $selection.font.Name = "Printania Sans Light"
    $selection.font.size = 10
    $selection.font.color = 0
    $selection.font.bold = 0
    $selection.font.Italic = 0
    $selection.typeText("Tel : +33 (0)" + $ADTelePhoneNumber)
}
 
#insertion du Mobile
if ($ADMobile.ToString() -ne "" )
{
    $selection.TypeParagraph()
    $selection.font.Name = "Printania Sans Light"
    $selection.font.size = 10
    $selection.font.bold = 0
    $selection.font.Italic = 0
    $selection.typeText("Mobile : +33 (0)" + $ADMobile)
}
 
#insertion du mail
if ($ADEmailAddress.ToString() -ne "" )
{
    $selection.TypeParagraph()
    $selection.font.Name = "Printania Sans Light"  
    $selection.font.size = 10
    $selection.font.bold = 0
    $selection.font.Italic = 0
    $selection.typeText("E-Mail : " )
    #Add hyperlink in the document
    $hlink = $doc.Hyperlinks.Add($selection.Range, "mailto:"+"$ADEmailAddress",'',"mailto:"+"$ADEmailAddress","$ADEmailAddress" )
    #Format the hyperlink
        $hlink.Range.Font.Name = 'Printania Sans Light'
        $hlink.Range.Font.Size = 10
    $selection.TypeParagraph()
}
 
#insertion de la ligne pour la signature
#$selection.TypeParagraph()
#$selection.InlineShapes.AddPicture($PathSignaturesLine)
 
#Insertion de l'image dans le word
#$selection.TypeParagraph()
$selection.InlineShapes.AddPicture($pathPictures)  
#$selection.TypeParagraph()
 
If (-not (Test-Path "$LocalSignaturePath" ))  
    {  
        New-Item -ItemType Directory "$LocalSignaturePath"  
    }
$wdTypes = Add-Type -AssemblyName 'Microsoft.Office.Interop.Word' -Passthru
$wdSaveFormat = $wdTypes | Where {$_.Name -eq "wdSaveFormat"}
 
#save as DOCX
$path = "$LocalSignaturePath"+ '\' + "$ADDisplayName" + ".docx"
$doc.saveas([ref] "$path", [ref]$saveFormat::wdFormatDocument);
$doc.saveas("$path", $saveFormat::wdFormatDocumentDefault);
 
#save as HTML
$path = "$LocalSignaturePath"+ '\' + "$ADDisplayName" + ".htm"
$doc.saveas([ref]$path, [ref]$wdSaveFormat::wdFormatHTML);
$doc.saveas($path, $wdSaveFormat::wdFormatHTML);
 
#save as RTF
$path = "$LocalSignaturePath"+ '\' + "$ADDisplayName" + ".rtf"
$doc.saveas([ref]$path, [ref]$wdSaveFormat::wdFormatRTF);
$doc.saveas($path, $wdSaveFormat::wdFormatRTF);
     
#Save TXT    
$path = "$LocalSignaturePath"+ '\' + "$ADDisplayName" + ".txt"
$doc.saveas([ref]$path, [ref]$wdSaveFormat::wdFormatText);
$doc.saveas($path, $wdSaveFormat::wdFormatText);  
$doc.close();
$word.Quit();


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Script pour signatures outlook erreur

 

Sujets relatifs
erreur avec free()Script JAVA sous Google SHEETS
script pour changer les paramètres windowsScript pour tester méthodes casino
[Résolu] VB script : Conversion Str en IntAffichage message erreur mot de passe
Un script pour deux pageslogin/mot de passe dans script ftp dans dos
[VB] Erreur si utilisation d'un ContextMenuStripProblème MFC en VBA (erreur -2147417848 (80010108) )
Plus de sujets relatifs à : Script pour signatures outlook erreur


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR