Standardizing Outlook Signatures Company Wide
Today I got an email from someone in our accounting department. The woman had totally butchered
her signature. She had a handwriting font, multiple colors, multiple font sizes…you get the picture. That lead me to wonder, how can we standardize all employee signatures company-wide. I looked in the server side rules on Exchange 2007 and found there was no provision that allowed you to do this. There are some commercial products, such as this one, but I didn’t find anything for free. Next, I started looking for scripts we could add to our usual login scripts that would set a specific signature of our choosing. I found a few scripts online and a few tutorials and started working away at it. I can’t seem to find the website where I got most of my tips to link back to it. In any event, this is what we are now using and it seems to work very well:
On Error Resume Next
Set objSysInfo = CreateObject(”ADSystemInfo”)
strUser = objSysInfo.UserName
Set objUser = GetObject(”LDAP://” & strUser)strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strFax = objUser.faxNumber
strMail = objUser.Mail
strWeb = “www.ourwebsite.com”Set objWord = CreateObject(”Word.Application”)
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.SelectionSet objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignatureSet objSignatureEntries = objSignatureObject.EmailSignatureEntries
objSelection.Font.Name = “Calibri”
objSelection.Font.Size = 8.5
objSelection.Font.Color = RGB(128,128,128)objSelection.TypeText strName & “ | ” & strTitle
objSelection.TypeText “ | Email ”
objSelection.Font.Underline = 1
objSelection.TypeText strMail
objSelection.Font.Underline = 0
objSelection.TypeText “ | Phone ” & strPhone & “ | Fax ” & strFax & “ | ” & strWeb
objSelection.TypeParagraph()
objSelection.Font.Color = RGB(79,129,189)
objSelection.TypeText UCase(strCompany) & “. Our Slogan.”
‘objSelection.TypeText “| Address City, State ZIP | “”Slogan 2″”"Set objSelection = objDoc.Range()
objSignatureEntries.Add “Default Signature”, objSelection
objSignatureObject.NewMessageSignature = “Default Signature”
objSignatureObject.ReplyMessageSignature = “Default Signature”objDoc.Saved = True
objWord.Quit
This script pulls user information our of our active directory store to use for the signature. To use this, you’ll need to save it as a .vbs file. Just double clicking it should render results. It won’t delete any existing signatures you have, just create a new one and make it your default.
Comments
Leave a Reply
