Outlook2010中選擇“開發(fā)工具-->Visual Basic-->模塊”插入一個模塊 （Outlook2007中選擇“工具->宏->宏， 創(chuàng)建一個新的宏”）， 

輸入以下代碼，點擊綠色的執(zhí)行按鈕，即可在d:/Contacts目錄下看到導(dǎo)出的所有聯(lián)系人的vcard文件。

Sub ExportVcards（）

    Dim MyContacts As Outlook.MAPIFolder

    Dim ContItem As Outlook.ContactItem

    Dim FileName As String

    Set MyContacts = application.GetNamespace（"MAPI"）.GetDefaultFolder（olFolderContacts）

    '導(dǎo)出Outlook聯(lián)系人目錄下的聯(lián)系人到":/Contacts/聯(lián)系人"目錄

    On Error Resume Next

    Dim ofso

Set oFso = CreateObject（"Scripting.FileSystemObject"）

oFso.CreateFolder （"d:/Contacts”）

    oFso.CreateFolder （"d:/Contacts/聯(lián)系人"）

    For Each ContItem In MyContacts.Items

        FileName = "d:/Contacts/聯(lián)系人/" & ContItem.FileAs & ".vcf"

        ContItem.SaveAs FileName， olVCard

    Next

    '導(dǎo)出聯(lián)系人目錄下所有文件夾中的聯(lián)系人

    For i = 1 To MyContacts.Folders.Count

        Set Folder = MyContacts.Folders（i）

        On Error Resume Next

        Set oFso = CreateObject（"Scripting.FileSystemObject"）

        oFso.CreateFolder （"d:/Contacts/" & Folder）

        For Each ContItem In MyContacts.Folders（i）.Items

            FileName = "d:/Contacts/" & Folder & "/" & ContItem.FileAs & ".vcf"

            ContItem.SaveAs FileName， olVCard

        Next

    Next i

End Sub