通讯录VCF文件批量导入方法

I. 向Outlook批量导入VCF文件

1. 通过Outlook导入功能导入
打开Outlook联系人界面,并将批量VCF文件拖入联系人卡片区域,系统将自动导入这些VCF文件。

2. 通过VB Script脚本导入

1)打开outlook2007,按下alt+F11,调出Visual Basic编辑器;
2)工具——引用,找到Microsoft Scripting Runtime和Windows Script Host Object Model勾选,确定;
3)插入——模块,复制粘贴以下代码,并保存;

Sub OpenSaveVCard()
Dim objWSHShell As IWshRuntimeLibrary.IWshShell
Dim objOL As Outlook.Application
Dim colInsp As Outlook.Inspectors
Dim strVCName As String
Dim fso As Scripting.FileSystemObject
Dim fsDir As Scripting.Folder
Dim fsFile As Scripting.File
Dim vCounter As Integer
Set fso = New Scripting.FileSystemObject
Set fsDir = fso.GetFolder("C:\vcard")
For Each fsFile In fsDir.Files
strVCName = "C:\vcard\" & fsFile.Name
Set objOL = CreateObject("Outlook.Application")
Set colInsp = objOL.Inspectors
If colInsp.Count = 0 Then
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run strVCName
Set colInsp = objOL.Inspectors
If Err = 0 Then
Do Until colInsp.Count = 1
DoEvents
Loop
colInsp.Item(1).CurrentItem.Save
colInsp.Item(1).Close olDiscard
Set colInsp = Nothing
Set objOL = Nothing
Set objWSHShell = Nothing
End If
End If
Next
End Sub

4)把所有的vcard文件存放至C盘,vcard目录下(当然你也可以放在别处,只要修改以上代码中相应的路径);
5)回到outlook界面,工具——宏——运行宏,如果出现“该工程的宏被禁止”之类的提示,在工具——宏——安全性中的选项改为中或者低即可。

II. 向Android手机批量导入VCF文件

1. 用手机选中所有联系人,输出到储存卡,在卡上有一个目录,contact,每个联系人一个VCF文件;
2. 电脑下,运行,CMD,DOS下进入联系人目录,输入"copy /B *.vcf all.vcf"回车,此目录下就建立了一个all.vcf包含所有的联系人
3. 在安卓下,文件管理中点击“all.vcf”,即可批量导入。

原文地址:https://www.cnblogs.com/jancco/p/2551928.html