Outlook - Automatic Outlook Signature with .vbs collecting data from AD Environment

There's a very useful way to setting up an automatic Signature inside Microsoft Outlook.

This way is implementing a .vbs on each client that get the user information in AD and automatic create the relative signatures with the right images and formatting model.

The script could be put inside NETLOGON share or local PC/Client depending upon the requirements.

Here is the .vbs and the link to the original article:

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
objSelection.Style = “No Spacing”
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

‘Name of Staff
objSelection.Font.Name = “Calibri”
objSelection.Font.Bold = True
objSelection.Font.Size = “12″
objSelection.Font.Color = RGB(15,36,62)
objSelection.TypeText strName
objSelection.TypeText(Chr(11))

‘Role of Staff
objSelection.Font.Name = “Calibri”
objSelection.Font.Bold = False
objSelection.Font.Size = “11″
objSelection.Font.Color = 0
objSelection.TypeText strTitle
objSelection.TypeText(Chr(11))

‘Company Logo (stored in network share accessed by everyone)
objSelection.InlineShapes.AddPicture(“\\servername\netlogon\signature.jpg”)
objSelection.TypeParagraph()

‘Company Contact details
objSelection.Font.Color = RGB(38,38,38)
objSelection.TypeText “Tel +44 (0) 744 525 5214″
objSelection.TypeText(Chr(11))
objSelection.TypeText “Fax +44 (0) 744 524 2244″
objSelection.TypeText(Chr(11))
objSelection.Font.Color = RGB(23,54,93)
objLink = objSelection.Hyperlinks.Add(objSelection.Range,“http://www.sujeeth.net/”,,“Sujeeth Home Page”,“www.sujeeth.net”)
objSelection.TypeParagraph()
objSelection.TypeParagraph()

‘environment message
objSelection.Font.Name = “Webdings”
objSelection.Font.Size = “14″
objSelection.Font.Color = RGB(115,155,63)
objSelection.TypeText “P “
objSelection.Font.Name = “Calibri”
objSelection.Font.Size = “9″
objSelection.TypeText “Please consider the environment before printing this e-mail.”

Set objSelection = objDoc.Range()

objSignatureEntries.Add “Standard Signature”, objSelection
objSignatureObject.NewMessageSignature = “Standard Signature”
objSignatureObject.ReplyMessageSignature = “Standard Signature”

objDoc.Saved = True
objWord.Quit
———————-

http://technobuff.wordpress.com/2009/08/21/set-up-outlook-signature-with-logo-hyperlink-and-active-directory-information/