Script pour signatures outlook erreur

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Script pour signatures outlook erreur

youssefduafg

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 & " FirstName: " & uFirstName & " Name: " & uName & " Title: " & uTitle & " Telephone: " & uTelephone & " Mobile: " & uMobile & " Street: " & uStreet & " Postal code: " & uPostal & " 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

Publicité

josephm

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

Message cité 1 fois

youssefduafg

josephm a écrit :

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.

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();

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 windows	Script pour tester méthodes casino
[Résolu] VB script : Conversion Str en Int	Affichage message erreur mot de passe
Un script pour deux pages	login/mot de passe dans script ftp dans dos
[VB] Erreur si utilisation d'un ContextMenuStrip	Problème MFC en VBA (erreur -2147417848 (80010108) )
Plus de sujets relatifs à : Script pour signatures outlook erreur

Page générée en 0.054 secondes