Txt 转vCard 方法
最近换手机，原手机卡里支持导出.txt 格式的电话簿，而新手机里支持vcard 格式的电话簿， 手机里有上百个号，SIM 卡一次也复制不完，并且SIM 卡复制只支持一个号码，对于有手机 appcpa号和座机的就处理不了。 在网上转换方法，所得甚少，终于在一点一点的尝试中，终于 到一种方法。想着大家也有可能遇到这样的问题，现在共享出来，希望能够节省大家的时间。 具体方法如下：
1、钣金专用工具 手机导出电话薄到内存卡，格式为逗号分 *.txt 格式，将*.txt 拷贝到电脑上重命名为*.csv 格式
2、 导入到outlook。打开outlook 2007，选择导入导出： 选择从另一个程序导入 点击下一步，选择逗号分隔的值（windows）: 选择重命名的*.csv 格式文件智能婴儿床 点击下一步，选择联系人目标文件夹 点击完成，当然可选映射自定义字段进行字段映射。 建立的联系人列表 3、 批量保存为*.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 格式。
4、 合成一个vcf 文件。Outlook 输出的文件是以单个人为一个文件，比较麻烦，生产一个文 件方便使用，当然如果不合成的话导入到手机中也可以用。 合成方法：窗口键 + R 调出运行窗口 键入 cmd 回车 将盘符改为你的vcards 文件所 在的盘，比如你的 vcards 文件在 c 盘的 contacts 文件夹内，如下键入 c:回车 键入 cd \contacts 回车 键入copy /B *.vcf all_in_one.vcf （将该目录下所有的VCF 文件 合并成一个文件) 然后就变成一个vcards 文件了。
5、 将 all_in_one.vcf 重命名为自己喜欢的名字，支持中文，如电话薄.vcf。将此文件拷贝到 手机中，在手机的联系人种选择从ST 卡导入，即可完成操作。快速厌氧胶 哈哈，搞定。^-^
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议