Trying to get VBscript to insert a signature across all verison of Outlook
Sue and/or anyone,
I have a script that I want to use to install a signature into All versions of Outlook. It works great in 2000. But not in 20020 or 2003. Can you help me configure this script to install a sig for all Outlook clients even if we have a mixed env. of 2000, 2002, and 2003????
Here is the script I have:
On Error Resume Next
strName = InputBox("Please Provide Your Name, First Name then Last")
strTitle = InputBox("Please Provide Your Job Title")
strCompany = InputBox("Please Provide Your Company")
strPhone = InputBox("Please Provide Your Full Phone Number in This Format (804)274-1200")
strMail = InputBox("Please Provide Your e-Mail Address")
strWeb = "
http://www.callfcu.org"
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 strCompany
objSelection.TypeParagraph()
objSelection.TypeText strPhone
objSelection.TypeParagraph()
objSelection.TypeText strMail
objSelection.TypeParagraph()
objSelection.TypeText strWeb
Set objSelection = objDoc.Range()
objSignatureEntries.Add "MyDefaultSig", objSelection
objSignatureObject.NewMessageSignature = "MyDefaultSig"
objSignatureObject.ReplyMessageSignature = "MyDefaultSig"
objDoc.Saved = True
objWord.Quit
Thanks a million for any and all help!!!!!!!!!!!!!
JL