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

Automate E-Mail Signatures (Exchange 2007/Outlook)

Users viewing this topic: none

Logged in as: Guest
  Printable Version
All Forums >> [Microsoft Exchange 2007] >> Management >> Automate E-Mail Signatures (Exchange 2007/Outlook) Page: [1]
Login
Message << Older Topic   Newer Topic >>
Limited time MSExchange.org offer! -- 1.Sep.2008 1:00:00 PM
TechGenix and SolarWinds have partnered to provide free copies of SolarWinds Exchange Monitor to all visitors who join the MSExchange.org Forums. SolarWinds Exchange Monitor is a handy desktop dashboard that continuously monitors Microsoft Exchange to deliver real-time insight into Exchange services, mail queue sizes, and host server health. Learn more about Exchange Monitor and the free offer!
Automate E-Mail Signatures (Exchange 2007/Outlook) - 6.Jun.2007 12:22:28 PM   
smartdrv

 

Posts: 3
Joined: 24.May2007
Status: offline 		Hello

Been playing with some of Exchange 2007's features (some are probably in 2003 but I haven't touched them much).

I've learned that I can use hub transport rules to do some cool things like attach a disclaimer to outgoing messages (with all sorts of filtering options like not on internal messages). It's really cool.

This got me thinking of the next level. Signatures. Ideally signatures that will pull the information (names, numbers, titles, address) out of Active Directory. Simple is ok although the ability to toss in a logo could be cool too.

Two thoughts, either totally automated like the disclaimer (which I think would have the advantage of working in Outlook Web Access as well) or via the Outlook (2007 or possibly 2003) client (again either automated or give the user something to click - there is a Signiture button in Outlook)

I'd like to do this in the method that has the least administrative overhead (scripting and policies - something so I don't have to manually touch anything on the clients and it just works)

Any suggestions on where to start? I'm sure that this is something that many of the admins on this forum have probably delt with.

Much thanks as always!
Rob
Post #: 1
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 12.Jul.2007 12:04:01 PM   
Studon

 

Posts: 11
Joined: 31.May2007
Status: offline 		Hello,

I am just looking into doing just that.  If you happen to come across any info on this please let me know or post here.  I will do the same.

We have used a third party app in the past but it was an added cost due to licences and we would like to utilize E2K7 to do this if it is possible.

Good luck in your search and I hope we can find something to facilitate this.

_____________________________

Chris
Systems Administrator
Studon Electric

(in reply to smartdrv)
Post #: 2
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 12.Jul.2007 4:44:11 PM   
a.grogan

 

Posts: 1887
Joined: 12.Apr.2005
From: London
Status: offline 		Hey Guys, have you folks seen this article here http://www.microsoft.com/technet/technetmag/issues/2006/10/HeyScriptingGuy/default.aspx

Its not part of Exchange 2007, but can simply be added into a logon script and then second script in the download package allows your to draw data from AD.

Just a thought,

A

_____________________________

Andy Grogan
MSExchange.org Forums Moderator
For my general ramblings about Exchange please visit my blog:
W: http://telnetport25.wordpress.com/
M: manifoldmaster@gmail.com

(in reply to Studon)
Post #: 3
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 7.Aug.2007 10:09:39 AM   
stuarta

 

Posts: 26
Joined: 7.Aug.2007
Status: offline 		Ok, just downloaded this and looks as though it's exactly what I wanted, but struggling to configure it.

I've managed to pull out most of it, but want to add fax number and web address, and be able to show the difference in fax and phone number.  Also it's got carriage returns between each line and want to put some lines such as title in bold.

On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strName = objUser.FullName
strTitle = objUser.Title
strCompany = objUser.company
strAddress = objUser.streetAddress
strCounty = objUser.St
strPhone = objUser.telephoneNumber
strFax = objUser.faxnumber
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 & ", "
objSelection.TypeParagraph()
objSelection.TypeText strTitle
objSelection.TypeParagraph()
objSelection.TypeText strCompany
objSelection.TypeParagraph()
objSelection.TypeText strAddress
objSelection.TypeParagraph()
objSelection.TypeText strCounty
objSelection.TypeParagraph()
objSelection.TypeText strCompany
objSelection.TypeParagraph()
objSelection.TypeText strPhone
objSelection.TypeParagraph()
objSelection.TypeText strFax
Set objSelection = objDoc.Range()
objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"
objDoc.Saved = True
objWord.Quit

< Message edited by stuarta -- 7.Aug.2007 10:39:30 AM >

(in reply to a.grogan)
Post #: 4
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 16.Aug.2007 11:24:02 AM   
stuarta

 

Posts: 26
Joined: 7.Aug.2007
Status: offline 		ok managed this now

On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strName = objUser.FullName
strTitle = objUser.Title
strCompany = objUser.company
strAddress = objUser.streetAddress
strCounty = objUser.St
strPhone = objUser.telephoneNumber
strFax = objUser.faxnumber
strWeb = onjuser.wwwhomepage
Set objWord = CreateObject("Word.Application")
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 = "Calibri"

objSelection.TypeText "Kind Regards"
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.Font.Bold = true
objSelection.TypeText strName & ", "
objSelection.Font.Bold = false
objSelection.TypeParagraph()
objSelection.TypeText strTitle
objSelection.TypeParagraph()
objSelection.Font.Bold = true
objSelection.TypeText strCompany
objSelection.Font.Bold = false
objSelection.TypeParagraph()
objSelection.TypeText strAddress
objSelection.TypeParagraph()
objSelection.TypeText strCounty
objSelection.TypeParagraph()
objSelection.TypeText strCompany
objSelection.TypeParagraph()
objSelection.TypeText "(t) " & strPhone
objSelection.TypeParagraph()
objSelection.TypeText strFax
Set objSelection = objDoc.Range()
objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"
objDoc.Saved = True
objWord.Quit


Need to take the space out between the name and title and also spaces in the address.  If I take the objSelection.TypeParagraph() it just appears on one line.

I want it to appear as


Name
Title

Company Name
Address1
Address2
Town
Post Code

< Message edited by stuarta -- 16.Aug.2007 11:25:40 AM >

(in reply to stuarta)
Post #: 5
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 3.Mar.2008 5:50:02 PM   
felipeg007

 

Posts: 54
Joined: 9.Aug.2006
Status: offline
This should fix your spacing issue.

objSelection.Style = "No Spacing"
 
 

(in reply to stuarta)
Post #: 6
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 16.May2008 2:42:10 AM   
hupakyee

 

Posts: 1
Joined: 16.May2008
Status: offline 		Hi, I'm new to Exchange 2007 and was interested with Automated signature, can you please advice where can get info in details for this?

(in reply to felipeg007)
Post #: 7
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 16.Jun.2008 10:50:52 AM   
felipeg007

 

Posts: 54
Joined: 9.Aug.2006
Status: offline 		Below is a signature i use. it grabs all the info from AD.

___________________________________________________


On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strName = objUser.FullName
strTitle = objUser.Title
strCompany = objUser.company
strAddress = objUser.streetAddress
strCounty = objUser.St
strPostal = objUser.postalCode
strPhone = objUser.telephoneNumber
strFax = objUser.faxnumber
strWeb = objUser.wwwhomepage

Set objWord = CreateObject("Word.Application")
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.Color = "669999"
objSelection.Style = "No Spacing"
objSelection.TypeText "Thank you,"
objSelection.TypeParagraph()
objSelection.Font.Bold = true
objSelection.TypeText strName 
objSelection.Font.Bold = false
objSelection.TypeParagraph()
objSelection.TypeText strTitle
objSelection.TypeText "   |   " 
objSelection.Font.Bold = true
objSelection.Hyperlinks.Add objSelection.range, strWeb, , , strCompany
'objSelection.TypeText strCompany
objSelection.Font.Bold = false
objSelection.TypeParagraph()
objSelection.TypeText strAddress & ", "
objSelection.TypeText strCounty  & " "
objSelection.TypeText strPostal
objSelection.TypeText "   |   "
objSelection.TypeText "Office & Fax: " & strPhone
objSelection.ClearFormatting()
Set objSelection = objDoc.Range()
objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"
objDoc.Saved = True
objWord.Quit

< Message edited by felipeg007 -- 16.Jun.2008 10:52:47 AM >

(in reply to hupakyee)
Post #: 8
RE: Automate E-Mail Signatures (Exchange 2007/Outlook) - 2.Nov.2008 10:46:34 AM   
pepinho

 

Posts: 5
Joined: 2.Nov.2008
Status: online
quote:

ORIGINAL: felipeg007

Below is a signature i use. it grabs all the info from AD.

Hello.

I am interested too on automating the Outlook 2007 signatures in my Exchange 2007 environment. Could you explain how do you "inject" the output from your VBS script in the Outlook 2007 signature configuration.

I am at a loss about how to use the script...

(in reply to felipeg007)
Post #: 9

Page:   [1] << Older Topic    Newer Topic >>
All Forums >> [Microsoft Exchange 2007] >> Management >> Automate E-Mail Signatures (Exchange 2007/Outlook) Page: [1]
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