by David Reniers (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Tue 3rd March 2009
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This short piece of code will loop through all your Microsoft Outlook folders and export all contacts as VCF files. Also will create a CSV
API Declarations
Dim I, J As Integer
Dim OLApp As Outlook.Application
Dim OLNS As Outlook.NameSpace
Dim OLFolders As Outlook.Folders
Dim OLFolder1 As Outlook.MAPIFolder
Dim OLFolder2 As Outlook.MAPIFolder
Dim OLContact As Outlook.ContactItem
Dim FSO As Scripting.FileSystemObject
VBcoders
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OLApp = New Outlook.Application
Set OLNS = OLApp.GetNamespace("MAPI")
Set OLFolders = OLNS.Folders
'CREATE DATA FOLDER IF DOESN'T ALREADY EXIST
If FSO.FolderExists(App.Path & "\Data") = False Then FSO.CreateFolder App.Path & "\Data"
'LOOP THROUGH ALL FOLDERS IN OUTLOOK AND EXPORT ALL CONTACTS
Open App.Path & "\Data\_Contacts.csv" For Output As #1
Print #1, "First Name, Last Name, Company, Job Title, Business Phone, Mobile Phone, Home Phone, Other Phone, Email Address 1, Email Address2"
For Each OLFolder1 In OLFolders
For I = 1 To OLFolder1.Folders.Count
Set OLFolder2 = OLFolder1.Folders(I)
If OLFolder2.DefaultItemType = olContactItem Then
For J = 1 To OLFolder2.Items.Count
Set OLContact = OLFolder2.Items(J)
With OLContact
Print #1, .FirstName & "," & .LastName & "," & .CompanyName & "," & .JobTitle & "," & .BusinessTelephoneNumber & "," & .MobileTelephoneNumber & "," & .HomeTelephoneNumber & "," & .OtherTelephoneNumber & "," & .Email1Address & "," & .Email2Address
If .LastName = "" Then
OLContact.SaveAs App.Path & "\Data\" & .FirstName & ".vcf", olVCard
Else
OLContact.SaveAs App.Path & "\Data\" & .FirstName & " " & .LastName & ".vcf", olVCard
End If
End With
Next
End If
Next
Next
Close #1
End Sub
No comments have been posted about This short piece of code will loop through all your Microsoft Outlook folders and export all contac. Why not be the first to post a comment about This short piece of code will loop through all your Microsoft Outlook folders and export all contac.