FYI, I posted this awhile ago. Doesn't pull info from AD, but allows Outlook
regardless of location to automatically have their signatures added.
We have not tested it with 2010 yet, FYI. It requires someone to create a jpg
signature and store them in a place on the network that it will automatically
insert it.
We then do Disclaimers through Transport Rules or Sunbelts Ninja depending if
its 2003/07/10 Exchange
"Previous Message"______________________________________________________________
One of my guys wrote a script which inserts a jpg signature into Outlook
automatically. The jpg must the same as the objUser.sAMAccountName name and it
works pretty well in 2007, haven't tried it 2010. Usernames with a . between
the names doesn't work, but that's just programming I am sure.
Here is the code, he's on a project right now so I can get him to make sure
this is all of it, but its all Greek to me. This is part of a larger script so
some of this maybe not required.
Replace %networkpath% with the actual path to the folders containing the
signatures.
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
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
Set objShape = objSelection.InlineShapes.AddPicture("%networkpath%"&
objUser.sAMAccountName &".jpg")
Set objSelection = objDoc.Range()
'######################## Outlook Signatures#######################
If objFSO.FileExists( chr(34)
&"\\%networkpath%\<file:///\\%25networkpath%25\>"& objUser.sAMAccountName
&".jpg"& chr(34)) Then
Set objSelection = objDoc.Range()
objSelection.TypeParagraph()
objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"
objDoc.Saved = True
objWord.Quit
End If
Greg Sweers
CEO
ACTS360.com<http://www.acts360.com/>
P.O. Box 1193
Brandon, FL 33509
813-657-0849 Office
813-758-6850 Cell
813-341-1270 Fax
From: Paul Hutchings [mailto:[email protected]]
Sent: Friday, November 12, 2010 8:36 AM
To: MS-Exchange Admin Issues
Subject: Disclaimer Software (Pulls info out of AD?)
We may be looking for software to help automate/standardise email signatures.
Right now the legal text is appended by our edge gateway (as you'll see on this
message), but actual Outlook signatures are set by each person individually.
What's the best way to put in place a corporate Outlook signature that is still
unique to the message sender i.e. name/job title/phone number/email is
automatically populated?
I know there are seldom technical solutions to people problems, but people
don't do it or forget.
Thanks,
Paul
________________________________
MIRA Ltd
Watling Street, Nuneaton, Warwickshire, CV10 0TU, England
Registered in England and Wales No. 402570
VAT Registration GB 114 5409 96
The contents of this e-mail are confidential and are solely for the use of the
intended recipient. If you receive this e-mail in error, please delete it and
notify us either by e-mail, telephone or fax. You should not copy, forward or
otherwise disclose the content of the e-mail as this is prohibited.
---
To manage subscriptions click here:
http://lyris.sunbelt-software.com/read/my_forums/
or send an email to
[email protected]<mailto:[email protected]>
with the body: unsubscribe exchangelist
---
To manage subscriptions click here:
http://lyris.sunbelt-software.com/read/my_forums/
or send an email to [email protected]
with the body: unsubscribe exchangelist
