Rob's Blog

Ah… there are a few lines which, thanks to my stylesheet, are broken across several lines when they should be on one. Line breaks are very important to VBScript!

Please go here to download the script in its working format.

Rob

Ray,

Yes. Just change t, f, e & w to telephone, fax, email & web. You can display anything you like inside the ” “. It’s a string.

HTH

Woter

Thanks Rob, thats exactly what I have been looking for! :-)

I would like to insert a company logo, could you point me in the right direction please?

Thanks again!

Al

Hi

This is really good and thanks very much for providing this.

Do u have any scripts for configuring Outlook profile?

Sorry, ignore my last comment, I was being dim lol.

One other question, how would I specify the font, size, and style of the rich text? I have searched the internet tirelessly for about an hour and a half and I can’t seem to find an answer.

On our network all emails are either rich text or plain text (if sent or replied from a blackberry).

Works great but how do you tell Outlook to use the Default signature for New messages and Replies/Forwards? It created it just fine but didn’t set it as the signature to use. I need that code if you know it.

Great script man! Can you help me in a small problem? I don’t know how to insert empty lines… i’m a script newbie :(
I tried with htmlfile.writeline, but also writeblanklines but with no result…

For those of you who want to set this automatically (Which, if you’re going to script it as a GPO, you will definitely want to) this is the solution, it may sound a bit silly, but hey, it’s VBS :)

You have create a Word object. For some reason, Microsoft have put all of the signature apis into Word, rather than Outlook. Just put in the following code:

Set objWord = CreateObject(“Word.Application”)
objWord.Visible = false
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
objSignatureObject.NewMessageSignature = “Default”

Change “Default” to the name of the file, if you have changed it.

I personally dislike full sized signatures in reply emails, so one extra thing I have done, is modified the above script (That you very much for that by the way, I didn’t realise you could use HTML, makes life so much easier.. I just have to figure out how to embed images now) to create two seperate files, one for new emails, and one for replies, and added the following line to my little snippet above:

objSignatureObject.ReplyMessageSignature = “Default – Reply”

Just copy and paste the “Now we create the Rich Text signature” and “And finally, the HTML signature” – changing the “Default.htm” and “Default.rtf” to “Default – Reply.htm” and “Default – Reply.rtf” and you’ll be set.

Hi there,

This script would be very handy since I have to configure almost 150 signatures in a client company. They have several offices in several different cities so the solution would be to run something on each computer to generate the individual signature. Can this script be run in each Outlook client? Can anyone please explain how can we run this script, as many other users also have this doubt?
Thanks.

[quote]
For those of you who want to set this automatically (Which, if you’re going to script it as a GPO, you will definitely want to) this is the solution, it may sound a bit silly, but hey, it’s VBS :)

You have create a Word object. For some reason, Microsoft have put all of the signature apis into Word, rather than Outlook. Just put in the following code:

Set objWord = CreateObject(”Word.Application”)
objWord.Visible = false
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
objSignatureObject.NewMessageSignature = “Default”

Change “Default” to the name of the file, if you have changed it.

I personally dislike full sized signatures in reply emails, so one extra thing I have done, is modified the above script (That you very much for that by the way, I didn’t realise you could use HTML, makes life so much easier.. I just have to figure out how to embed images now) to create two seperate files, one for new emails, and one for replies, and added the following line to my little snippet above:

objSignatureObject.ReplyMessageSignature = “Default – Reply”

Just copy and paste the “Now we create the Rich Text signature” and “And finally, the HTML signature” – changing the “Default.htm” and “Default.rtf” to “Default – Reply.htm” and “Default – Reply.rtf” and you’ll be set.
[/quote]

I couldnt get this to work for me. I even declared the new variables. I can choose the signature but it doesnt automatically make it the default for new msgs or replies. Is it still working for you?

If you need to set the default signature, and dont have Word installed on all your systems you can create a registry key that will set the default signatures.

Dim objWSHShell
Dim objWSHNetwork
Dim objLDAPUser

Dim strRegKey
Dim strNewSignature
Dim strReplySignature

Set objWSHShell = CreateObject(“WScript.Shell”)
Set objWSHNetwork = CreateObject(“WScript.Network”)
Set objLDAPUser = GetObject(“LDAP://” & GetUserDN(objWSHNetwork.UserName,objWSHNetwork.UserDomain))

strDisplayName = objLDAPUser.DisplayName

strRegKey = “HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\MailSettings\”
strNewSignature = strDisplayName
strReplySignature = strDisplayName & ” Reply”

FUNCTION GetUserDN(BYVAL UN, BYVAL DN)
Set ObjTrans = CreateObject(“NameTranslate”)
objTrans.init 1, DN
objTrans.set 3, DN & “\” & UN
strUserDN = objTrans.Get(1)
GetUserDN = strUserDN
END FUNCTION

objWSHShell.RegWrite strRegkey & “NewSignature”, strNewSignature , “REG_SZ”
objWSHShell.RegWrite strRegkey & “ReplySignature”, strReplySignature , “REG_SZ”

Not sure what happened up there with the code. Again, I am using

htmlfile.WriteLine(” img src=”www.ourcompany.com./logo.jpg” />”)

to set the image. No errors, but it does not render at all.

< taken out before img src because it kept trying to run the code in this post.

Helllo, thank you for the script, i How a question, how can I integrate the script for webmail , to the users that dont have outlook configure,

Thank you

Hello All,

I am also using the same script for auto signature but we are facing an issue from a quite long time now- users reported that when they login , they have the autosignature in outlook by defualt but after sometime they disappear of its own and they have to select it again form signature drop down menu.

I have pushed this vbs via group policy.

Please let me know wht can be done :(

Can you use windows variables within this script? i.e %username%

I am presuming that you can

For some reason I get the following error when running the basic script on a useraccount from a Active Directory policy:

permission denied: ‘createobject’ code 800A0046

Spent most of the day figuring this one out, still no clue…
Anyone want to share thoughts on this on? Thanx in advance!!

The script looks like this:

Set objUser = CreateObject(“WScript.Network”)
userName = objUser.UserName
domainName = objUser.UserDomain

FUNCTION GetUserDN(BYVAL UN, BYVAL DN)
Set ObjTrans = CreateObject(“NameTranslate”)
objTrans.init 1, DN
objTrans.set 3, DN & “\” & UN
strUserDN = objTrans.Get(1)
GetUserDN = strUserDN
END FUNCTION

Set objLDAPUser = GetObject(“LDAP://” & GetUserDN(userName,domainName))

‘Prepare to create some files
Dim objFSO, objWsh, appDataPath, pathToCopyTo, plainTextFile, plainTextFilePath, richTextFile, richTextFilePath, htmlFile, htmlFilePath
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objWsh = CreateObject(“WScript.Shell”)
appDataPath = objWsh.ExpandEnvironmentStrings(“%APPDATA%”)
pathToCopyTo = appDataPath & “\Microsoft\Signatures\”

‘Create the plain text signature
plainTextFilePath = pathToCopyTo & “Default.txt”
Set plainTextFile = objFSO.CreateTextFile(plainTextFilePath, TRUE)
plainTextFile.WriteLine(objLDAPUser.DisplayName)
plainTextFile.WriteLine(objLDAPUser.title)
plainTextFile.WriteLine(“”)
plainTextFile.WriteLine(objLDAPUser.company)
plainTextFile.WriteLine(“”)
plainTextFile.WriteLine(“tel: ” & objLDAPUser.telephoneNumber)
plainTextFile.WriteLine(“fax: ” & objLDAPUser.facsimileTelephoneNumber)
plainTextFile.WriteLine(“mob: ” & objLDAPUser.mobile)
plainTextFile.WriteLine(“”)
plainTextFile.Write(objLDAPUser.wWWHomePage)
plainTextFile.WriteLine(“”)
plainTextFile.Close

‘Create the Rich Text signature
richTextFilePath = pathToCopyTo & “Default.rtf”
Set richTextFile = objFSO.CreateTextFile(richTextFilePath, TRUE)
richTextFile.WriteLine(“{\rtf1\ansi\ansicpg1252\deff0\deflang2057{\fonttbl{\f0\fswiss\fcharset0 Arial;}}”)
richTextFile.WriteLine(“\viewkind4\uc1\pard\f0\fs20 \par”)
richTextFile.WriteLine(objLDAPUser.DisplayName & “\par”)
richTextFile.WriteLine(objLDAPUser.title & “\par”)
richTextFile.WriteLine(“\par”)
richTextFile.WriteLine(objLDAPUser.company & “\par”)
richTextFile.WriteLine(“\par”)
richTextFile.WriteLine(“tel: ” & objLDAPUser.telephoneNumber & “\par”)
richTextFile.WriteLine(“fax: ” & objLDAPUser.facsimileTelephoneNumber & “\par”)
richTextFile.WriteLine(“mob: ” & objLDAPUser.mobile & “\par”)
richTextFile.WriteLine(“\par”)
richTextFile.WriteLine(objLDAPUser.wWWHomePage & “\par”)
richTextFile.WriteLine(“\par”)
richTextFile.Write(“}”)
richTextFile.Close

‘Create the HTML signature
htmlFilePath = pathToCopyTo & “Default.htm”
Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)
htmlfile.WriteLine(“”)
htmlfile.WriteLine(“”)
htmlfile.WriteLine(“”)
htmlfile.WriteLine(“” & objLDAPUser.DisplayName & “”)
htmlfile.WriteLine(“” & objLDAPUser.title & “”)
htmlfile.WriteLine(“”)
htmlfile.WriteLine(“tel: ” & objLDAPUser.telephoneNumber & “”)
htmlfile.WriteLine(“fax: ” & objLDAPUser.facsimileTelephoneNumber & “”)
htmlfile.WriteLine(“mob: ” & objLDAPUser.mobile & “”)
htmlfile.WriteLine(“” & objLDAPUser.wWWHomePage & ““)
htmlfile.WriteLine(“”)
htmlfile.WriteLine(“”)
htmlfile.Write(“”)

Hi, Great work on the script. Im a newb to this too but i have 1 more Q. I have 100 computer on the domain using outlook 2003 and signautres configured. Do you have a script that could run automatically for just 1 line of the signature which changes every 3 months. its really a pain to go edit all of these at once. Thanks again. really will appreciate the help.

Hi Rob,

please tell me about process for this script. I copied all codes and save into the stagging server but when I tried with same script then Its prompt “Run time error: Path not found” and same has been done into the XP machine with out member server machine “C:\WINDOWS\system32>cscript.exe //nologo sign.vbs
C:\WINDOWS\system32\sign.vbs(7, 1) (null): The specified domain either does not
exist or could not be contacted.”

Could you provide me steps to run this scripts. I just have little knowledge for script.

I really don’t know to how to run or where I need to keep this script and again how to run?

Could u help me?

Many Thanks ,
Simon D

Great script, thanks for creating this is at saved me many hours! One question, what is the proper syntax for the richtextfile if I wanted to have a line of text at the bottom in BOLD and with a font size of 7.5?

Thanks!

This script is great.
Great job to those who made it!

Awesome piece of work, thank you!

Hi,
I am having issues with editing the html portion of this script to force bold, italics, and spaces between items .

I’ve been using this script for over a year — it’s brilliant. I’ve created a GPO that runs it at logon and it’s been working perfectly, however, I’ve noticed it doesn’t work for my Windows 7-based machines at logon (but I can run it manually on Windows 7 and it works).

Don’t suppose anyone can think of a reason why?

You are by far a legend. You have saved us a lot of work!

Thank you!

Rob,
I have created vbscipt similar to above for outlook signature. However I have a htm file with a letterhead stationary template. how would I go about writing script to set this within outlook 2003? Any help would be great