手机电话薄txt转vCard方法.docVIP

Txt 转vCard方法 最近换手机，原手机卡里支持导出.txt格式的电话簿，而新手机里支持vcard格式的电话簿，手机里有上百个号，SIM卡一次也复制不完，并且SIM卡复制只支持一个号码，对于有手机号和座机的就处理不了。在网上找转换方法，所得甚少，终于在一点一点的尝试中，终于找到一种方法。想着大家也有可能遇到这样的问题，现在共享出来，希望能够节省大家的时间。 具体方法如下： 手机导出电话薄到内存卡，格式为逗号分 *.txt格式，将*.txt拷贝到电脑上重命名为*.csv格式 导入到outlook。打开outlook 2007，选择导入导出： 选择从另一个程序导入 点击下一步，选择逗号分隔的值（windows）: 选择重命名的*.csv格式文件 点击下一步，选择联系人目标文件夹 点击完成，当然可选映射自定义字段进行字段映射。 建立的联系人列表 批量保存为*.vcf文件。（如果联系人较少，可手动一个一个保存） 在outlook2007中选择 宏-宏，名字随意起，复制以下代码到代码编辑器。 Sub phonebook() 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 在outlook2007 工具-宏-安全性中，选择不执行宏安全检查。 在电脑C盘根目录下新建Contacts文件夹。运行之前编译的代码 运行正确后，在C盘Contacts目录下可以看到所有输出的*.vcf格式联系方式。 合成一个vcf文件。Outlook输出的文件是以单个人为一个文件，比较麻烦，生产一个文件方便使用，当然如果不合成的话导入到手机中也可以用。 合成方法：窗口键 + R调出运行窗口 键入 cmd 回车 将盘符改为你的vcards文件所在的盘，比如你的vcards文件在c盘的contacts文件夹内，如下键入c:回车 键入cd \contacts 回车 键入copy /B *.vcf all_in_one.vcf （将该目录下所有的VCF文件合并成一个文件) 然后就变成一个vcards文件了。 将all_in_one.vcf重命名为自己喜欢的名字，支持中文，如电话薄.vcf。将此文件拷贝到手机中，在手机的联系人种选择从ST卡导入，即可完成操作。 哈哈，搞定。^-^