手机电话薄txt转vCard方法

手机电话薄txt转vCard方法
Txt 转vCard 方法
最近换手机，原手机卡里支持导出.txt 格式的电话簿，而新手机里支持vcard 格式的电话簿，手机里有上百个号，SIM 卡一次也复制不完，并且SIM 卡复制只支持一个号码，对于有手机号和座机的就处理不了。

在网上找转换方法，所得甚少，终于在一点一点的尝试中，终于找到一种方法。

想着大家也有可能遇到这样的问题，现在共享出来，希望能够节省大家的时间。

具体方法如下：
1、手机导出电话薄到内存卡，格式为逗号分*.txt 格式，将*.txt 拷贝到电脑上重命名为*.csv 格式
2、导入到outlook。

打开outlook 2007，选择导入导出：选择从另一个程序导入点击下一步，选择逗号分隔的值（windows）: 选择重命名的*.csv 格式文件点击下一步，选择联系人目标文件夹点击完成，当然可选映射自定义字段进行字段映射。

建立的联系人列表
3、批量保存为*.vcf 文件。

（如果联系人较少，可手动一个一个保存）在outlook2007 中选择宏->宏，名字随意起，复制以下代码到代码编辑器。

Sub phonebook() Dim MyCont act s As Outlook.MAPIFolder Dim ContItem As Outlook.Cont actItem Dim FileName As String Set MyCont act s = Application.GetNamespace("MAPI").GetDefaultFolder(olFol derCont act s) '取得默认的联系人文件夹For Each ContItem In MyCont act s.Items '遍历所有联系人FileName = "c:\Cont act s\" & ContItem.FileAs & ".vcf" ContItem.SaveAs FileName, olVCard '导出vfs 文件Next End Sub 在outlook2007 工具->宏->安全性中，选择不执行宏安全检查。

在电脑C 盘根目录下新建Cont act s 文件夹。

运行之前编译的代码运行正确后，在C 盘Cont act s 目录下可以看到所有输出的*.vcf 格
式联系方式。

4、合成一个vcf 文件。

Outlook 输出的文件是以单个人为一个文件，比较麻烦，生产一个文件方便使用，当然如果不合成的话导入到手机中也可以用。

合成方法：窗口键+ R 调出运行窗口键入cmd 回车将盘符改为你的vcards 文件所在的盘，比如你的vcards 文件在c 盘的cont act s 文件夹内，如下键入c:回车键入cd \cont act s 回车键入copy /B *.vcf all_in_one.vcf （将该目录下所有的VCF 文件合并成一个文件) 然后就变成一个vcards 文件了。

5、将all_in_one.vcf 重命名为自己喜欢的名字，支持中文，如电话薄.vcf。

将此文件拷贝到手机中，在手机的联系人种选择从ST 卡导入，即可完成操作。

哈哈，搞定。

^-^。