需要用到2个软件Encoding，批量文件修改
先用Encoding把联系人文件的编码修改了
然后打开outlook，按ait+f11
再：工具=》引用，找到Microsoft Scripting Runtime和Windows Script Host Object Model勾选，确定；
然后：插入=》模块，粘贴以下代码：
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:/vcards")
For Each fsFile In fsDir.Files
strVCName = "C:/vcards/" & 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
C盘建立目录vcards，将所有联系人文件复制到该文件夹
outlook界面，工具——宏——运行宏OpenSaveVCard
如果报错，说明联系人文件有中文字符，需要使用批量修改文件软件，将中文字符和空格替换掉。
然后重新运行宏，就ok
