asked on

Convert ALL CSV Outlook 2010 Contacts into VCF for imac address book

I would like to be able to convert all ( 400+ ) Contacts on my PC to VCF files to add to my iMAC / iCloud Address book.
I can do them individually but I wish to do a bulk conversion.

duncanb7

Probably, you need to do it on VBA instead of doing manually convert
outlook contacts into vcf format.
And the following code is just providing your starting since that might have
a lot of issue caused by different system. You need to solve & debug it by yourself

Hope understand your question completely.If not , please pt it out

Duncan

'Option Explicit

Sub Export_PAB_to_vcfs()

Dim myOlApp As Outlook.Application
Dim objContact As ContactItem

Set myOlApp = New Outlook.Application

Set olns = myOlApp.GetNamespace("MAPI")

' Set MyFolder to the default contacts folder.
Set myFolder1 = olns.Folders("Sean O'Reilly")
Set myfolder = myFolder1.Folders("Contacts")

' Get the number of items in the folder.
NumItems = myfolder.Items.Count

' Loop through all of the items in the folder.
For i = 1 To NumItems
    Debug.Print myfolder.Items(i).Class
    If myfolder.Items(i).Class = 40 Then
        Set objContact = myfolder.Items(i)
        Debug.Print TypeName(objContact) + ":" + objContact.FullName
        If Not TypeName(objContact) = "Nothing" Then
            If Not objContact.FullName = "" Then
              strname = "H:\Personal\Contacts\" & TrimALL(objContact.FullName) & ".vcf"
             objContact.SaveAs strname, olVCard
            End If
        End If
    End If
Next

MsgBox "All Contacts Exported!"

End Sub

Sub TrimALL()
' need to trim all non-printable char

End Sub

Open in new window

Rob

Been asked before https://www.experts-exchange.com/questions/21726846/Exporting-all-Outlook-contacts-to-a-single-VCF-file.html

Dan Craciun

You can install Thunderbird with the MoreFunctionsForAddressBook add-on, import automatically your Outlook contacts and then export them as vcf (Address Book->right click Imported Contacts->More Functions for Address Book->Export->As vCard)
No script needed...

HTH,
Dan