Creating a standard company email signature for outlook 2003

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/

WickBrick

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.