手機電話本導出導入——VCF轉CSV

如果不是某人用的國產手機,我還真不知道現在好多國產手機聯系人的導出格式居然是vcf。而且,中文姓名都亂碼了。而且而且outlook不支持批量將這一坨一坨的vcf文件導入。 沒辦法,上網搜了一通,問題一一解決。

1、vcard亂碼。有個叫做VCFEncoding的小程序,操作很簡單,打開一看便知,幾秒鐘就讓好多坨亂碼的vcard姓名顯示正常了。點擊下載 2、將vcard批量導入outlook。

(1)打開outlook2003,按下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: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

(4)把所有的vcard文件存放至C盤,vcard目錄下(當然你也可以放在別處,只要修改以上代碼中相應的路徑); (5)回到outlook界面,工具——宏——運行宏,如果出現“該工程的宏被禁止”之類的提示,在工具——宏——安全性中的選項改為中或者低即可。 最后,等導入vcard的窗口不停的閃現完之后,就可以把outlook聯系人同步到新手機啦。哦也～

轉載請注明:積木居 ? 手機電話本導出導入——VCF轉CSV