Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 673
  • Last Modified:

How create an automatic signature in Outlook with Automatic Update of Name fields, Email fields, etc

Hello,

Actually, we use several macros to send preformated emails to our clients. The thing is to update, is quite a mess and I was wondering if we could automated a bit more this thing. Each macros contains the user first name and last name and his own email address. I was wondering if it could be anyway to create an automatic macro which will go for that information instead of modify that thing for each user?

I've been trying to create a macro which loads a word signature file with auto fields which works great for the username but not for the email address.
Any suggestions?
Please don't hesitate to ask me questions if you need more details.
David
0
David_Pazos
Asked:
David_Pazos
2 Solutions
 
Xav720Commented:
look for exclaimer. They have a good solution for signature
http://www.exclaimer.com/
1
 
David LeeCommented:
Hi, David.

This script generates an Outlook signature from account information in Active Directory.  Is that what you're looking for?
0
 
yelbaglfCommented:
We use something like this here...

On Error Resume Next

Dim objFSO

Set objFSO = CreateObject("scripting.filesystemobject")

Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strName = objUser.cn
strTitle = objUser.title
strCompany = objUser.company
strPhone = objUser.telephoneNumber

Set objWord = GetObject(, "Word.Application")
If objWord Is Nothing Then
    Set objWord = CreateObject("Word.Application")
    blnWeOpenedWord = True
End If
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObjects = objWord.EmailOptions.EmailSignature

Set objSignatureEntries = objSignatureObjects.EmailSignatureEntries

objSelection.Font.Name = "Verdana"
objSelection.Font.Size = "10"
objSelection.Font.Color = RGB(31,73,125)
objSelection.TypeText (Chr(11)) & "Thanks," & (Chr(11)) & (Chr(11))
objSelection.Font.Bold = True
objSelection.TypeText strName & (Chr(11))
objSelection.TypeText strTitle & (Chr(11))
objSelection.Font.Bold = False
objSelection.TypeText strPhone & (Chr(11)) & (Chr(11))
objSelection.TypeText strCompany & (Chr(11))
Set objLink = objSelection.Hyperlinks.Add(objSelection.Range, "http://www.domain.com",,"Company","www.link.com")


Set objSelection = objDoc.Range()

objSignatureEntries.Add "Domain_Sig", objSelection
objSignatureObjects.NewMessageSignature = "Domain_Sig"
objSignatureObjects.ReplyMessageSignature = "Domain_Sig"

objDoc.Close 0
If blnWeOpenedWord Then
    objWord.Quit
End If

Open in new window

0
 
David_PazosAuthor Commented:
Hi to all and thanks for your replies!

Your suggestions are almost what I'm looking for. In fact, I've several different signatures and macros per people and I just would like a script that fills the name and the email address in an existing signature each time they create a new email. So I just left that file on every profiles without having to create through GPO or startup that file.

it may be in word directly or and in outlook VBA.
what you suggest?
Kindly Regards
David
0
 
David_PazosAuthor Commented:
Hi,

finally, with a part of your code, I could manage to do what I wanted with the macros VBA in Outlook. Now I'm trying to do the same on Word but I'll probably create a new question for that.

Thanks for your help guys, I'll give to both of you the points.

Kindly Regards,
David
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now