解決vcard亂碼&批量導入outlook

[分享] 【宏】解決vcard亂碼&批量導入outlook [複製鏈接]

如果不是某人用的國產手機，我還真不知道現在好多國產手機聯繫人的導出格式居然是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）插入——模塊，複製粘貼以下代碼，並保存；

普通瀏覽複製代碼

1. Sub OpenSaveVCard()
2. Dim objWSHShell As IWshRuntimeLibrary.IWshShell
3. Dim objOL As Outlook.Application
4. Dim colInsp As Outlook.Inspectors
5. Dim strVCName As String
6. Dim fso As Scripting.FileSystemObject
7. Dim fsDir As Scripting.Folder
8. Dim fsFile As Scripting.File
9. Dim vCounter As Integer
10. Set fso = New Scripting.FileSystemObject
11. Set fsDir = fso.GetFolder(”C:\vcards”)
12. For Each fsFile In fsDir.Files
13. strVCName = “C:\vcards\” & fsFile.Name
14. Set objOL = CreateObject(”Outlook.Application”)
15. Set colInsp = objOL.Inspectors
16. If colInsp.Count = 0 Then
17. Set objWSHShell = CreateObject(”WScript.Shell”)
18. objWSHShell.Run strVCName
19. Set colInsp = objOL.Inspectors
20. If Err = 0 Then
21. Do Until colInsp.Count = 1
22. DoEvents
23. Loop
24. colInsp.Item(1).CurrentItem.Save
25. colInsp.Item(1).Close olDiscard
26. Set colInsp = Nothing
27. Set objOL = Nothing
28. Set objWSHShell = Nothing
29. End If
30. End If
31. Next
32. End Sub

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