out look怎么批量导出电话本，变成vcf格式的，注意！是批量，一个个的就不要说了

第一种方法：

步骤一：打开Microsoft Outlook，点击菜单→工具→宏→Visual Basic编辑器

步骤二：输入一段写好的代码（具体代码最后面）

步骤三：点击执行，这样就可以把全部的联系人导出至某个指定的文件夹（指定的文件夹地址是在附录里的代码里修改）

步骤四：使用vcfEncoding工具进行转换，这样就可以把全部的联系人文件保存到本地指定文件夹里了。（比如有500个联系人，就相当于有500个文件，后缀名为.vcf）。

步骤五：如果是nokia手机，可以把全部的联系人文件复制至手机卡的:\others\Contacts文件夹下→打开手机的名片夹，再点击复制名片，即可。

（vcfEncoding上网找)

第二种方法：

步骤一：打开Microsoft Outlook，点击菜单→文件→导入导出文件

步骤二：导出文件，选择excel表格式，保存到一个指定的xls文件

步骤三：使用vcfeditor(另一个工具，更方便）,导入刚才保存的文件

步骤四：再使用分开联系人保存。

步骤五：把全部文件复制至手机卡，如E:\others\Contacts文件夹下。

步骤六：打开手机的名片夹，点击“复制名片”，即可。

(vcfeditor在网上搜，有很多）

注：如果是Nokia手机，在复制文件时，要切换连接模式为pc套件为大容量存储，而在复制名片时，再切换回pc套件模式。（经本人多次使用，觉得方法二更好更方便）

方法一代码：

outlook中. 工具->宏, 创建一个新的宏, 名称任意, 输入:

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 = "d:\Contacts\" & ContItem.FileAs & ".vcf"

ContItem.SaveAs FileName, olVCard

Next

End Sub

注意上面的”c:/Contacts”为输出到的目的文件夹.

然后运行, 如果失败, 请检查”c:/Contacts”文件夹是否存在 (不存在则要先创建), 以及outlook中, 工具->安全性, 是否有权限运行宏.