通訊錄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”,即可批量導入。


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM