regarding the Create Contacts From Messages code

[mr_malkovich]

hey all. How would I modify the code referenced in this article below to create contact forms using a customized form I created (112607.fdm)?

Create Contacts From Messages

 

[Diane Poremsky]

This is where the contact form is opened:
Set oContact = colItems.Add(olContactItem)

So, you just need to change that to use a template:
Set oContact = Application.CreateItemFromTemplate("C:\path\to\template.oft")

Or if you are using a published form, you need to use items.add:
Set Items = Session.GetDefaultFolder(olFolderContacts).Items
Set oContact= Items.Add("ipm.contact.myform")

 

[mr_malkovich]

Thanks for your reply Diane. And sorry for clogging up your forum the last day or two. Just having a minor technical meltdown here.
The form is located in the Personal Forms Library. It's 112607.fdm. How should I modify that?

 

[Diane Poremsky]

When it's published , it should have a name (message class) like ipm.contacts.something. This is the name you'll use with items.add.

 

[mr_malkovich]

Hi, I altered your code per your instructions then ran it on a test inbox sub-folder of three messages. The code is below, with the portion I altered in bold. If the contact forms were created, I cannot find them. The three messages already have corresponding contact forms in the Contacts folder. Is that why the contact forms may not have been created?



Public Sub AddAddressesToContacts()
Dim folContacts As Outlook.MAPIFolder
Dim colItems As Outlook.Items
Dim oContact As Outlook.ContactItem
Dim oMail As Outlook.MailItem
Dim obj As Object
Dim oNS As Outlook.NameSpace

Dim response As VbMsgBoxResult

Dim bContinue As Boolean

Dim sSenderName As String

On Error Resume Next

Set oNS = Application.GetNamespace("MAPI")
Set folContacts = oNS.GetDefaultFolder(olFolderContacts)
Set colItems = folContacts.Items

For Each obj In Application.ActiveExplorer.Selection
If obj.Class = olMail Then
Set oContact = Nothing

bContinue = True
sSenderName = ""

Set oMail = obj

sSenderName = oMail.SentOnBehalfOfName
If sSenderName = ";" Then
sSenderName = oMail.SenderName
End If

Set oContact = colItems.Find("[FullName] = '" & sSenderName & "'")

If Not (oContact Is Nothing) Then
response = MsgBox("This appears to be an existing contact: " & sSenderName & ". Do you still want to add it as a new contact?", vbQuestion + vbYesNo, "Contact Adder")
If response = vbNo Then
bContinue = False
End If
End If

If bContinue Then
Set oContact = Application.CreateItemFromTemplate("IPM.contact.112607")
With oContact
.Body = oMail.Subject

.Email1Address = oMail.SenderEmailAddress
.Email1DisplayName = sSenderName
.Email1AddressType = oMail.SenderEmailType

.FullName = oMail.SenderName

.Save
End With
End If
End If
Next

Set folContacts = Nothing
Set colItems = Nothing
Set oContact = Nothing
Set oMail = Nothing
Set obj = Nothing
Set oNS = Nothing
End Sub

 

[Diane Poremsky]

No, you should have either created duplicates or received the duplicate contact exists message, if that option is enabled. Try adding .display above save and see if a form pops up. (It didn't here, will review the code next)

 

[Diane Poremsky]

That was easy to fix - change the create line to this:
Set oContact = folContacts.Items.Add("IPM.contact.112607")

When you use published forms, you need to use items.add not createfromtemplate.

 

[mr_malkovich]

Excellent, thank you. Can this code be set so that the new contacts are created in a folder other than Contacts? That way I can clean up the contacts a bit before I throw them in general population.

Also, has anyone modified this code to do things like search signatures for info to automatically input into the contact form too?

Thanks again. You might have added a couple of years of free time to my life.

 

[Diane Poremsky]

This sets the folder: Set folContacts = oNS.GetDefaultFolder(olFolderContacts)
To use a subfolder of contacts, use Set folContacts = oNS.GetDefaultFolder(olFolderContacts).Folders("folder name")
More information here - Working with VBA and non-default Outlook Folders

I don't have any code samples that look for the signatures - the problem would be in formatting. The code samples I have use regex to look for specific patterns and everyone uses different patterns for personal information. There are add-ins that do it - but because they are com add-ins, they can do a lot more things, faster, which makes searching for all of the common (and uncommon) address and phone formats easier as well as do a better job of identifying what is a signature when there are multiple signatures in a message (ie, in a long thread) or a disclaimer tacked on the end.