Solved

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

Posted on 2011-03-03
5
632 Views
Last Modified: 2017-02-03
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
Comment
Question by:David_Pazos
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
5 Comments
 
LVL 2

Expert Comment

by:Xav720
ID: 35029527
look for exclaimer. They have a good solution for signature
http://www.exclaimer.com/
1
 
LVL 76

Accepted Solution

by:
David Lee earned 250 total points
ID: 35029569
Hi, David.

This script generates an Outlook signature from account information in Active Directory.  Is that what you're looking for?
0
 
LVL 11

Assisted Solution

by:yelbaglf
yelbaglf earned 250 total points
ID: 35031674
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
 

Author Comment

by:David_Pazos
ID: 35034951
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
 

Author Comment

by:David_Pazos
ID: 35035178
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

Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
This article describes how to import an Outlook PST file to Office 365 using a third party product to avoid Microsoft's Azure command line tool, saving you time.
Office 365 is currently available in five editions. Three of them are for business use: Office 365 Business Essentials, Office 365 Business, and Office 365 Business Premium. Two of them are for home/personal use: Office 365 Home and Office 365 Perso…
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

751 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question