Automatically add contacts from a vCard attachment

[humble]

Is it possible to take a vCard attached in an email and automatically import
it as a new contact.

I have some code that loops through each mail in a folder and gets the
attachment, but I don't seem to be able to save it as a contact.

Any ideas - Current vba code shown below
Thanks

Jon

Sub importAddresses()
Dim myNameSpace As NameSpace
Dim myFolder As MAPIFolder
Dim myContact As ContactItem
Dim myTempContact As ContactItem
Dim myItem As MailItem
Dim myAttachment As Attachment

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
For i = 1 To myNameSpace.Folders.Count
Set thisFolder = myNameSpace.Folders.Item(i)
For j = 1 To thisFolder.Folders.Count
sTemp = thisFolder.Folders.Item(j).Name
If sTemp = "Temp" Then
Set myFolder = thisFolder.Folders.Item(j)
MsgBox (myFolder.Items.Count)
For k = 1 To myFolder.Items.Count
Set myItem = myFolder.Items.Item(k)
If myItem.Attachments.Count = 1 Then
MsgBox (myItem.Attachments.Item(1).FileName)
Else
MsgBox ("There are " + Str(myItem.Attachments.Count)
+ " Attachments for " + myItem.Subject)
End If
Next
End If
Next
Next
End Sub

 

[Sue Mosher [MVP]]

Once you save the .vcf attachment as a file, you should be able to use code like that at http://www.outlookcode.com/codedetail.aspx?id=212
--
Sue Mosher, Outlook MVP
Outlook and Exchange solutions at http://www.slipstick.com
Author of
Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers