RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (Full Version)

All Forums >> [Microsoft Exchange 2007] >> Management



Message

HimyarJ -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (25.Mar.2009 2:57:27 AM)

Hi,

My purpose here is to append the signature (script output) to each mail leaving the organization. I don't want any interference from the users. The signature should be automatically appended to all mails (like the disclaimer). I tried my best to do that but I did not reach any where.

Thanks,



umer_javed -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (25.Mar.2009 3:07:27 AM)

Then you need this software it will solve your problem.

exclaimer mail utilites

www.exclaimer.com




HimyarJ -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (25.Mar.2009 3:29:51 AM)

Thanks Omer for your help and your time :)



umer_javed -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (25.Mar.2009 3:51:04 AM)

any time because to solve this issue i spent nights it would be pleasure for me to help some one to save their time and stress.

Cheers,
Omer



richyrich68 -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (25.Mar.2009 5:05:47 AM)

quote:

ORIGINAL: umer_javed

I'm using this script which works fine with me, I'm pasting it here try this it will work for you as well

........
objShape = objSelection.InlineShapes.AddPicture(\\temp\logo.jpeg)
........
I hope it will solve your problem.

Cheers
omer


Brilliant solution man thanks allot but....I have a question about the logo...
Where is this folder \ file at?
Is it on the server or on the client machine?
Can you shed some more light on this feature please??
I can't get this option to work proparly...

many thanks in advance
Richy



umer_javed -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (26.Mar.2009 2:46:51 AM)

Hi,

Well it does looks brillient, but [:o] it doesn't works for me i've tryed both ways by making a folder into user machine and sharing a folder from server, so end up with a software called exclaimer signature utitlity it works with both outlook and OWA.
www.exclaimer.com

dude if you find any ways to bring the image through the script please do let me know.

Cheers,

omer



UniIFF -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (3.Apr.2009 4:03:05 AM)

quote:

but if you are using OWA then you need to add the signature manualy for each user in their owa signature or you can use the Exclaimer signature utility can buy from www.exclaimer.com


Exchange OWA Signatures can also be scripted. It is not trivial and not documented, and it is totally different between Ex2003 and Ex2007 (thanks, Microsoft!), but I got it to work with VBS scripts in both versions.



yasserkgl -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (10.Apr.2009 11:58:11 AM)

please i want to make my signature format like his format below


i need help please .....


thnaks[:)][:)]









Preena Nayanasudhan
 
Application Support Administrator
ITEC - Corporate
Phone:  (234) 1- 4355435 Ext. 175
Mobile: (234) 9- 342234
Fax:       (234) 3243444
www.itec.com
We'll take it from here…



umer_javed -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (12.Apr.2009 2:18:24 AM)

quote:

ORIGINAL: yasserkgl

please i want to make my signature format like his format below


i need help please .....


thnaks[:)][:)]









Preena Nayanasudhan

Application Support Administrator
ITEC - Corporate
Phone:  (234) 1- 4355435 Ext. 175
Mobile: (234) 9- 342234
Fax:       (234) 3243444
www.itec.com
We'll take it from here…

First of all the fields will be taken from active directory but still you can add some of the items manually into signature like your website disclaimer and much more i am posting only part of the code which will explain that how to minpulate with fonts and how to add text like phone, fax and web sites.

Example:

objSelection.Font.Size = "10"                         ' Mention the font size here
objSelection.Font.Name = "Verdana"            ' Mention the font here "Arial...etc"
objSelection.Font.Bold = true                         ' true will make text bold and false will make text unbold.

objSelection.TypeText strName & ", "

objSelection.Font.Size = "10" 
objSelection.Font.Name = "Verdana"
objSelection.Font.Bold = false
objSelection.TypeText strTitle
objSelection.TypeParagraph()

objSelection.Style = "No Spacing"
objSelection.Font.Size = "8" 
objSelection.Font.Name = "Verdana"
objSelection.TypeText strCompany
objSelection.TypeParagraph()

objSelection.TypeText strAddress
objSelection.TypeParagraph()
objSelection.TypeText "Tel: " & strPhone                'text in bold will come before the telephone number like "Tel: 009.......etc"
objSelection.TypeParagraph()
objSelection.TypeText "Fax: " & strFax
objSelection.TypeParagraph()
objSelection.TypeText "Mob: " & strMobile

objSelection.TypeText "http://msexchang.org"    'here add your website'

I hope this will help, you just can copy and past and change the font size and font name or you can add more fields if required.

Omer,



yasserkgl -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (12.Apr.2009 3:10:03 AM)

quote:

ORIGINAL: umer_javed

quote:

ORIGINAL: yasserkgl

please i want to make my signature format like his format below


i need help please .....


thnaks[:)][:)]









Preena Nayanasudhan

Application Support Administrator
ITEC - Corporate
Phone:  (234) 1- 4355435 Ext. 175
Mobile: (234) 9- 342234
Fax:       (234) 3243444
www.itec.com
We'll take it from here…

First of all the fields will be taken from active directory but still you can add some of the items manually into signature like your website disclaimer and much more i am posting only part of the code which will explain that how to minpulate with fonts and how to add text like phone, fax and web sites.

Example:

objSelection.Font.Size = "10"                         ' Mention the font size here
objSelection.Font.Name = "Verdana"            ' Mention the font here "Arial...etc"
objSelection.Font.Bold = true                         ' true will make text bold and false will make text unbold.

objSelection.TypeText strName & ", "

objSelection.Font.Size = "10" 
objSelection.Font.Name = "Verdana"
objSelection.Font.Bold = false
objSelection.TypeText strTitle
objSelection.TypeParagraph()

objSelection.Style = "No Spacing"
objSelection.Font.Size = "8" 
objSelection.Font.Name = "Verdana"
objSelection.TypeText strCompany
objSelection.TypeParagraph()

objSelection.TypeText strAddress
objSelection.TypeParagraph()
objSelection.TypeText "Tel: " & strPhone                'text in bold will come before the telephone number like "Tel: 009.......etc"
objSelection.TypeParagraph()
objSelection.TypeText "Fax: " & strFax
objSelection.TypeParagraph()
objSelection.TypeText "Mob: " & strMobile

objSelection.TypeText "http://msexchang.org"    'here add your website'

I hope this will help, you just can copy and past and change the font size and font name or you can add more fields if required.

Omer,


thanks for your help

but i need do edit color to my signature plz tell me how

thanks ..



umer_javed -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (13.Apr.2009 2:23:28 AM)

Here is the solution.

objSelection.Font.Size = "10"
objSelection.Font.Name = "Verdana"
objSelection.Font.Bold = true
objSelection.Font.Color = "&hFF0000"
objSelection.TypeText strName & ", "

VBScript Color Table





CONSTANT
Hex VALUE
COLOR

VBBlack
&h00
Black

VBRed
&hFF
Red

VBGreen
&hFF00
Green

VBYellow
&hFFFF
Yellow

VBBlue
&hFF0000
Blue

VBMagenta
&hFF00FF
Magenta

VBCyan
&hFFFF00
Cyan

VBWhite
&hFFFFFF
White

Cheers,

omer



JP2006 -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (15.Apr.2009 10:55:54 AM)

I just edit my code for you,

this should work, but only if you did enter everything correctly in your AD:



On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName

Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName
strFirstName = objuser.givenName
StrLastName = objuser.sn
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strAddress = objuser.streetAddress
strCity = objuser.l
strState = objuser.st
strZip = objuser.postalCode
strPhone = objUser.telephoneNumber
strFax = objUser.FaxNumber
strMobilePhone = objUser.mobile
strMail = objuser.mail
strLocation = objuser.physicalDeliveryOfficeName
strWeb = objuser.wWWHomePage


Set objWord = CreateObject("Word.Application")
objWord.Visible = False

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objRange = objDoc.Range()

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

objSelection.Font.Size = "10"
objSelection.Font.Name = "Arial"

objSelection.Font.Bold = True
objSelection.TypeText strFirstName & " " & strLastName
objSelection.TypeParagraph()
objSelection.Font.Bold = False
objSelection.TypeText strTitle
objSelection.TypeText(Chr(11))
objSelection.TypeText strCompany
objSelection.TypeText(Chr(11)) 
objSelection.TypeText "Phone: " & strPhone
objSelection.TypeText(Chr(11))
objSelection.TypeText "Mobile: " & strMobilePhone
objSelection.TypeText(Chr(11))
objSelection.TypeText "Fax: " & strFax
objSelection.TypeText(Chr(11))
objSelection.Font.Color = "&hFF"
objSelection.TypeText strWeb
objSelection.TypeText(Chr(11))
objSelection.Font.Color = "&h00"
objSelection.TypeText "We'll take it from here..."




objSelection.range, "mailto:" & strMail, , , strMail
objSelection.range, strWeb, , , strCompany
objTable.Columns(1).Width = objWord.InchesToPoints(5)



objSignatureEntries.Add "Signature", objRange
objSignatureObject.NewMessageSignature = "Signature"
objSignatureObject.ReplyMessageSignature = "Signature"

objDoc.Saved = True
objWord.Quit

Should create:


JP2006

System Administrator
Company
Phone: +31 (0)*******
Mobile: 06 11 ** ** **
Fax: +31 (0)*******
www.website.nl
We'll take it from here...



yasserkgl -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (15.Apr.2009 1:20:58 PM)

quote:

ORIGINAL: JP2006

I just edit my code for you,

this should work, but only if you did enter everything correctly in your AD:


--------------------------------------------------------------


JP2006                    bold + book antique+11

System Administrator            book antique+10
Company
Phone: +31 (0)*******        book antique+10
Mobile: 06 11 ** ** **         book antique +10
Fax: +31 (0)*******            book antique   +10
www.website.nl                      book antique   + +10
                 
We'll take it from here...         book antique+ bold + italc+11



please please [:)][:)][:)][:)]

i want to colored all my signature with blue
i want space between my home page and (we'll talke it from here ..)

thanks for you



JP2006 -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (16.Apr.2009 2:13:27 AM)

Okey, also the website text?



yasserkgl -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (16.Apr.2009 2:17:03 AM)

quote:

ORIGINAL: JP2006

Okey, also the website text?


the web site is hyperlink

thanks for your help



JP2006 -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (16.Apr.2009 2:18:49 AM)

That's okey [:)]

Yes the website will be "clickable", but you can also edit the colour [:)]

Edit:

This should work:

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName

Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName
strFirstName = objuser.givenName
StrLastName = objuser.sn
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strAddress = objuser.streetAddress
strCity = objuser.l
strState = objuser.st
strZip = objuser.postalCode
strPhone = objUser.telephoneNumber
strFax = objUser.FaxNumber
strMobilePhone = objUser.mobile
strMail = objuser.mail
strLocation = objuser.physicalDeliveryOfficeName
strWeb = objuser.wWWHomePage

Set objWord = CreateObject("Word.Application")
objWord.Visible = False

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objRange = objDoc.Range()

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

objSelection.Font.Size = "11"
objSelection.Font.Name = "book antique"
objSelection.Font.Color = "&hFF0000"

objSelection.Font.Bold = True
objSelection.TypeText strFirstName & " " & strLastName
objSelection.TypeParagraph()
objSelection.Font.Size = "10"
objSelection.Font.Bold = False
objSelection.TypeText strTitle
objSelection.TypeText(Chr(11))
objSelection.TypeText strCompany
objSelection.TypeText(Chr(11)) 
objSelection.TypeText "Phone: " & strPhone
objSelection.TypeText(Chr(11))
objSelection.TypeText "Mobile: " & strMobilePhone
objSelection.TypeText(Chr(11))
objSelection.TypeText "Fax: " & strFax
objSelection.TypeText(Chr(11))
objSelection.Font.Color = "&hFF"
objSelection.TypeText strWeb
objSelection.TypeText(Chr(11))
objSelection.Font.Color = "&hFF0000"
objSelection.TypeParagraph()
objSelection.Font.Size = "11"
objSelection.Font.Name = "book antique"
objSelection.Font.Color = "&hFF0000"
objSelection.Font.Bold = True
objSelection.Font.Italic = True
objSelection.TypeText "We'll take it from here..."




objSelection.range, "mailto:" & strMail, , , strMail
objSelection.range, strWeb, , , strCompany
objTable.Columns(1).Width = objWord.InchesToPoints(5)



objSignatureEntries.Add "Signature", objRange
objSignatureObject.NewMessageSignature = "Signature"
objSignatureObject.ReplyMessageSignature = "Signature"

objDoc.Saved = True
objWord.Quit

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

JP2006

System Administrator
Company
Phone: +31 (0)*************
Mobile: 06 ****
Fax: +31 *********
www.website.nl

We'll take it from here...

(In your signature, all the text is blue but the 'www.website.nl' text is red)

You can now just copy and paste this in a notepad document and save it as 'signature.vbs' ... If you now open this file (or call it with a loginscript)

EDIT2:

You can also use your logo, if you've got a smaller one somewhere :P:

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName

Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName
strFirstName = objuser.givenName
StrLastName = objuser.sn
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strAddress = objuser.streetAddress
strCity = objuser.l
strState = objuser.st
strZip = objuser.postalCode
strPhone = objUser.telephoneNumber
strFax = objUser.FaxNumber
strMobilePhone = objUser.mobile
strMail = objuser.mail
strLocation = objuser.physicalDeliveryOfficeName
strWeb = objuser.wWWHomePage
strLogo = "http://www.kgllogistics.com/Images/1.gif"

Set objWord = CreateObject("Word.Application")
objWord.Visible = False

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objRange = objDoc.Range()

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

objSelection.Font.Size = "11"
objSelection.Font.Name = "book antique"
objSelection.Font.Color = "&hFF0000"

objSelection.Font.Bold = True
objSelection.TypeText strFirstName & " " & strLastName
objSelection.TypeParagraph()
objSelection.Font.Size = "10"
objSelection.Font.Bold = False
objSelection.TypeText strTitle
objSelection.TypeText(Chr(11))
objSelection.TypeText strCompany
objSelection.TypeText(Chr(11)) 
objSelection.TypeText "Phone: " & strPhone
objSelection.TypeText(Chr(11))
objSelection.TypeText "Mobile: " & strMobilePhone
objSelection.TypeText(Chr(11))
objSelection.TypeText "Fax: " & strFax
objSelection.TypeText(Chr(11))
objSelection.Font.Color = "&hFF"
objSelection.TypeText strWeb
objSelection.TypeText(Chr(11))
objSelection.Font.Color = "&hFF0000"
objSelection.TypeParagraph()
objSelection.Font.Size = "11"
objSelection.Font.Name = "book antique"
objSelection.Font.Color = "&hFF0000"
objSelection.Font.Bold = True
objSelection.Font.Italic = True
objSelection.TypeText "We'll take it from here..."
objSelection.TypeText(Chr(11))
objShape = objSelection.InlineShapes.AddPicture(strLogo)



objSelection.range, "mailto:" & strMail, , , strMail
objSelection.range, strWeb, , , strCompany
objTable.Columns(1).Width = objWord.InchesToPoints(5)



objSignatureEntries.Add "Signature", objRange
objSignatureObject.NewMessageSignature = "Signature"
objSignatureObject.ReplyMessageSignature = "Signature"

objDoc.Saved = True
objWord.Quit

-----------------------------------
Now your company logo is beneath your signature [8D]
You can edit the logo-path with this part:
strLogo = "http://www.kgllogistics.com/Images/1.gif"

and if you change this part of the script:

objSignatureObject.NewMessageSignature = "Signature"
objSignatureObject.ReplyMessageSignature = "Signature"

you can edit the way the signature will be added (for example; if you don't want the signature to be added when you replay a message, you change it to this:

objSignatureObject.NewMessageSignature = "Signature"
objSignatureObject.ReplyMessageSignature = "None"



yasserkgl -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (16.Apr.2009 3:20:52 AM)

thanks for your help



JP2006 -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (16.Apr.2009 3:28:06 AM)

Yw,

one last thing;

If you would like an other signature for 'Reply mails' (like just your name and company)
you can use this:

===================================


On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName

Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName
strFirstName = objuser.givenName
StrLastName = objuser.sn
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strAddress = objuser.streetAddress
strCity = objuser.l
strState = objuser.st
strZip = objuser.postalCode
strPhone = objUser.telephoneNumber
strFax = objUser.FaxNumber
strMobilePhone = objUser.mobile
strMail = objuser.mail
strLocation = objuser.physicalDeliveryOfficeName
strWeb = objuser.wWWHomePage

Set objWord = CreateObject("Word.Application")
objWord.Visible = False

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objRange = objDoc.Range()

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

objSelection.Font.Size = "11"
objSelection.Font.Name = "book antique"
objSelection.Font.Color = "&hFF0000"

objSelection.Font.Bold = True
objSelection.TypeText strFirstName & " " & strLastName
objSelection.TypeParagraph()
objSelection.Font.Size = "10"
objSelection.Font.Bold = False
objSelection.TypeText strTitle
objSelection.TypeText(Chr(11))
objSelection.TypeText strCompany
objSelection.TypeText(Chr(11))
objSelection.TypeText "Phone: " & strPhone
objSelection.TypeText(Chr(11))
objSelection.TypeText "Mobile: " & strMobilePhone
objSelection.TypeText(Chr(11))
objSelection.TypeText "Fax: " & strFax
objSelection.TypeText(Chr(11))
objSelection.Font.Color = "&hFF"
objSelection.TypeText strWeb
objSelection.TypeText(Chr(11))
objSelection.Font.Color = "&hFF0000"
objSelection.TypeParagraph()
objSelection.Font.Size = "11"
objSelection.Font.Name = "book antique"
objSelection.Font.Color = "&hFF0000"
objSelection.Font.Bold = True
objSelection.Font.Italic = True
objSelection.TypeText "We'll take it from here..."




objSelection.range, "mailto:" & strMail, , , strMail
objSelection.range, strWeb, , , strCompany
objTable.Columns(1).Width = objWord.InchesToPoints(5)



objSignatureEntries.Add "Signature", objRange
objSignatureObject.NewMessageSignature = "Signature"
objSignatureObject.ReplyMessageSignature = "None"

objDoc.Saved = True



Part2



Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName

Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.FullName
strFirstName = objuser.givenName
StrLastName = objuser.sn
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strAddress = objuser.streetAddress
strCity = objuser.l
strState = objuser.st
strZip = objuser.postalCode
strPhone = objUser.telephoneNumber
strFax = objUser.FaxNumber
strMobilePhone = objUser.mobile
strMail = objuser.mail
strLocation = objuser.physicalDeliveryOfficeName
strWeb = objuser.wWWHomePage

Set objWord = CreateObject("Word.Application")
objWord.Visible = False

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objRange = objDoc.Range()

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

objSelection.Font.Size = "11"
objSelection.Font.Name = "book antique"
objSelection.Font.Color = "&hFF0000"

objSelection.TypeParagraph()

objSelection.Font.Bold = True
objSelection.TypeText strFirstName & " " & strLastName
objSelection.TypeParagraph()
objSelection.Font.Size = "10"
objSelection.Font.Bold = False
objSelection.TypeText strTitle
objSelection.TypeText(Chr(11))
objSelection.TypeText strCompany


objSignatureEntries.Add "Signature2", objRange
objSignatureObject.NewMessageSignature = "Signature"
objSignatureObject.ReplyMessageSignature = "Signature2"

objDoc.Saved = True


objWord.Quit

=======================================

Which will create this by a reply message:

JP2006

System Administrator
Company



snirh -> Outlook signature automation free tool - SignatureOne (26.May2009 9:44:47 AM)

Hi,
There is a free tool for automation of outlook signatures from AD, it called SignatureOne and it's free...
http://www.smart-x.com/?CategoryID=226&ArticleID=189&sng=1



Grant Lui -> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) (18.Jun.2009 12:56:49 PM)

Hi Oma,

Unfortunately... it is still directing me to a FAQ page... do you have other information ?

Thanks



Page: <<   < prev  1 [2] 3   next >   >>