Find this post interesting? Do you like interesting things? Maybe you would like my invention, a connectible candle called a WickBrick!
Get one here http://wickbrick.etsy.com/
So got the word that we wanted to roll out a standard email company sig, so I started sniffing around for my options. Of course there are a bunch of options that you could pay for, but I don’t like to pay for things if I don’t have to.
Luckily, the Microsoft scripting guys came to the rescue with this article.
http://technet.microsoft.com/en-us/magazine/cc160913.aspx
The magic is to pull the info from AD with a script and then create an word email signature.
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
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.TypeText strName & ", " & strTitle
objSelection.TypeParagraph()
objSelection.TypeText strDepartment
objSelection.TypeParagraph()
objSelection.TypeText strCompany
objSelection.TypeParagraph()
objSelection.TypeText strPhone
Set objSelection = objDoc.Range()
objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"
objDoc.Saved = True
objWord.Quit
So that is pretty cool, and gives the structure of how to create the signature.
After rolling it out though if a user was not using word as their email editor it would always double space the signature. It makes sense in that the html tag that is used is adding an extra space. FYI if you are creating sig by hand than you should use a shift+enter and then of your lines to avoid this, a so called ‘soft enter’.
So I modified the script to use
objSelection.TypeText(Chr(11)) instead of objSelection.TypeParagraph() thus stopping the annoying double space issue.
Next push this out to the AD with logon scripts to various groups and there you go, standard email signatures.
Filed under: Applied IT, Information Management | Tagged: Active Directory Email Signature, Outlook 2003, Standard Corporate Email Signature | 2 Comments »
