• RSS
  • Twitter
  • FaceBook

Exchange Server Forums

Forums | Register | Login | My Profile | Inbox | RSS RSS icon | My Subscription | My Forums | Address Book | Member List | Search | FAQ | Ticket List | Log Out

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

Users viewing this topic: none

Logged in as: Guest
  Printable Version
All Forums >> [Microsoft Exchange 2007] >> Management >> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) Page: <<   < prev  1 [2] 3   next >   >>
Login
Message << Older Topic   Newer Topic >>
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 25.Mar.2009 2:57:27 AM   
HimyarJ

 

Posts: 4
Joined: 22.Mar.2009
Status: offline
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,

(in reply to umer_javed)
Post #: 21
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 25.Mar.2009 3:07:27 AM   
umer_javed

 

Posts: 18
Joined: 27.Aug.2008
Status: offline
Then you need this software it will solve your problem.

exclaimer mail utilites

www.exclaimer.com


(in reply to HimyarJ)
Post #: 22
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 25.Mar.2009 3:29:51 AM   
HimyarJ

 

Posts: 4
Joined: 22.Mar.2009
Status: offline
Thanks Omer for your help and your time :)

(in reply to umer_javed)
Post #: 23
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 25.Mar.2009 3:51:04 AM   
umer_javed

 

Posts: 18
Joined: 27.Aug.2008
Status: offline
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

(in reply to HimyarJ)
Post #: 24
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 25.Mar.2009 5:05:47 AM   
richyrich68

 

Posts: 1
Joined: 25.Mar.2009
Status: offline
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

(in reply to umer_javed)
Post #: 25
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 26.Mar.2009 2:46:51 AM   
umer_javed

 

Posts: 18
Joined: 27.Aug.2008
Status: offline
Hi,

Well it does looks brillient, but  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

(in reply to richyrich68)
Post #: 26
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 3.Apr.2009 4:03:05 AM   
UniIFF

 

Posts: 1
Joined: 3.Apr.2009
Status: offline
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.

(in reply to umer_javed)
Post #: 27
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 10.Apr.2009 11:58:11 AM   
yasserkgl

 

Posts: 35
Joined: 9.Apr.2009
Status: offline
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…

(in reply to smartdrv)
Post #: 28
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 12.Apr.2009 2:18:24 AM   
umer_javed

 

Posts: 18
Joined: 27.Aug.2008
Status: offline
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,

(in reply to yasserkgl)
Post #: 29
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 12.Apr.2009 3:10:03 AM   
yasserkgl

 

Posts: 35
Joined: 9.Apr.2009
Status: offline
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 ..

(in reply to umer_javed)
Post #: 30
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 13.Apr.2009 2:23:28 AM   
umer_javed

 

Posts: 18
Joined: 27.Aug.2008
Status: offline
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

(in reply to yasserkgl)
Post #: 31
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 15.Apr.2009 10:55:54 AM   
JP2006

 

Posts: 16
Joined: 15.Apr.2009
Status: offline
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...

< Message edited by JP2006 -- 15.Apr.2009 10:59:53 AM >

(in reply to smartdrv)
Post #: 32
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 15.Apr.2009 1:20:58 PM   
yasserkgl

 

Posts: 35
Joined: 9.Apr.2009
Status: offline
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

< Message edited by yasserkgl -- 15.Apr.2009 1:59:34 PM >

(in reply to JP2006)
Post #: 33
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 16.Apr.2009 2:13:27 AM   
JP2006

 

Posts: 16
Joined: 15.Apr.2009
Status: offline
Okey, also the website text?

(in reply to yasserkgl)
Post #: 34
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 16.Apr.2009 2:17:03 AM   
yasserkgl

 

Posts: 35
Joined: 9.Apr.2009
Status: offline
quote:

ORIGINAL: JP2006

Okey, also the website text?


the web site is hyperlink

thanks for your help

(in reply to JP2006)
Post #: 35
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 16.Apr.2009 2:18:49 AM   
JP2006

 

Posts: 16
Joined: 15.Apr.2009
Status: offline
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
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"


< Message edited by JP2006 -- 16.Apr.2009 3:00:58 AM >

(in reply to yasserkgl)
Post #: 36
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 16.Apr.2009 3:20:52 AM   
yasserkgl

 

Posts: 35
Joined: 9.Apr.2009
Status: offline
thanks for your help

(in reply to JP2006)
Post #: 37
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 16.Apr.2009 3:28:06 AM   
JP2006

 

Posts: 16
Joined: 15.Apr.2009
Status: offline
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

(in reply to yasserkgl)
Post #: 38
Outlook signature automation free tool - SignatureOne - 26.May2009 9:44:47 AM   
snirh

 

Posts: 1
Joined: 26.May2009
Status: offline
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

(in reply to JP2006)
Post #: 39
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 18.Jun.2009 12:56:49 PM   
Grant Lui

 

Posts: 9
Joined: 26.Feb.2009
Status: offline
Hi Oma,

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

Thanks

(in reply to umer_javed)
Post #: 40

Page:   <<   < prev  1 [2] 3   next >   >> << Older Topic    Newer Topic >>
All Forums >> [Microsoft Exchange 2007] >> Management >> RE: Automate E-Mail Signatures (Exchange 2007/Outlook) Page: <<   < prev  1 [2] 3   next >   >>
Jump to:

New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts


Follow TechGenix on Twitter