Get email address into contact list from email

E

ericm

I wrote a template that will do this with Email Templates for Outlook
(www.emailtemplates.com). Basically you create the template in your
templates folder with the following content:

Title: Add Email To Contacts (FollowUp)

<vbscript>
olFolderContacts = 10

Dim info
Set info = CreateObject("Scripting.Dictionary")

Set oApp = CreateObject("Outlook.Application")
Set oNS = oApp.GetNamespace("MAPI")
Set oFolder = oNS.GetDefaultFolder(olFolderContacts)

Set oCCFolder = oFolder.Folders("FollowUp")
Set oContact = oCCFolder.Items.Add()

oContact.Email1Address = ET.Message("email")
oContact.Email1AddressType = "SMTP"
oContact.Save

ET.Stop
</vbscript>

Then you simply apply this template to any email that you want to add
to the 'FollowUp' folder you create in your contacts. If you want it to
work with every message that you receive you can attach the template to
the rules wizard.

If you need help, let me know and I'll send you the template that I
have.

-Eric

-----
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top