我有个问题，希望导出outlook的联系人为vcard格式。
用了如下的宏：

Sub ExportVcards()
Dim MyContacts As Outlook.MAPIFolder
Dim ContItem As Outlook.ContactItem
Dim FileName As String

Set MyContacts = Application.GetNamespace(“MAPI”).GetDefaultFolder(olFolderContacts)
‘取得默认的联系人文件夹

For Each ContItem In MyContacts.Items ‘遍历所有联系人
FileName = “c:\Contacts\” & ContItem.FileAs & “.vcf”
ContItem.SaveAs FileName, olVCard
‘导出vfs文件

Next
End Sub

但是，它只能读默认联系人，我的联系人在和“联系人”并列的不同文件夹里，如“同学”、“同事”等，这个怎样办呢？