评论：如何批量导入vCard格式联系人到Outlook

来自：WANGZAI

WANGZAI — Thu, 06 Oct 2011 13:22:30 +0000

将vcard文件和路径指定好，自己新创建一个模块，直接运行你粘贴上去的代码就可以了。

来自：WANGZAI

WANGZAI — Thu, 06 Oct 2011 13:20:45 +0000

SHY的程序不错，但运行时屏闪刷新严重，受不了啊。
请在程序中增加两行：
开始运行程序中增加一行，防止运行时屏闪：
Application.ScreenUpdating = False
最后面程序结束前增加一行：
Application.ScreenUpdating = True

来自：leilei

leilei — Thu, 06 Oct 2011 06:38:04 +0000

我是2007，运行宏，总是提示我“该工程中的宏已经被禁用”

来自：shy

shy — Tue, 21 Jun 2011 07:17:34 +0000

感谢楼主。
下面的修改可以修正带空格文件名的错误。

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:\files\Personal\SD_Backup\moto_backup”)
For Each fsFile In fsDir.Files
strVCName = “c:\files\Personal\SD_Backup\moto_backup\” & fsFile.Name
Set objOL = CreateObject(”Outlook.Application”)
Set colInsp = objOL.Inspectors
If colInsp.Count = 0 Then
Set objWSHShell = CreateObject(”WScript.Shell”)

If InStr(fsFile.Name, ” “) > 0 Then
strVCName = “c:\files\Personal\SD_Backup\moto_backup\” & Chr(34) & fsFile.Name & Chr(34)
objWSHShell.Run (Chr(34) & “c:\files\Personal\SD_Backup\moto_backup\” & fsFile.Name & Chr(34))
Else
objWSHShell.Run strVCName
End If

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

来自：carrot

carrot — Wed, 18 May 2011 04:48:30 +0000

真的是不能有空格在里面。哎~

来自：lizzy

lizzy — Mon, 25 Apr 2011 07:42:08 +0000

狂顶！解决了我的大问题！真是爱死你了！

来自：qingtianhnh

qingtianhnh — Mon, 25 Apr 2011 03:51:25 +0000

没有“Windows Script Host Object Model ”怎么办？

来自：MarcoWang

MarcoWang — Sun, 03 Apr 2011 04:52:12 +0000

我也只读取了第一个联系人。该怎么办？

来自：tonyshoppe

tonyshoppe — Mon, 28 Feb 2011 13:11:38 +0000

我用了，引号是有问题，但是改过来后发现只读取了第一个联系人，其它就没有反应了。

来自：inseven

inseven — Fri, 21 Jan 2011 05:46:20 +0000

具体是怎么操作呢?

来自：AllenLucky

AllenLucky — Fri, 07 Jan 2011 03:03:43 +0000

我也能成功导入，但也是乱码·

来自：路过

路过 — Wed, 13 Oct 2010 02:50:48 +0000

这么好的方法，一定要顶。

来自：vcf文件批量导入outlook | yeppfox

vcf文件批量导入outlook | yeppfox — Sun, 18 Jul 2010 04:15:19 +0000

[...] 有几百个vcf格式的联系人需要全部导入outlook的联系人中，在空错志找了段程序，方法如下： [...]

来自：Rabbi_52

Rabbi_52 — Tue, 29 Jun 2010 07:47:12 +0000

语法错误啊！怎么办？

来自：heroaunty

heroaunty — Sat, 13 Mar 2010 14:55:37 +0000

非常感谢楼主提供的方法。我的问题已经解决。
其中遇到过一个小问题供后人借鉴：objWSHShell.Run strVCName这行报错
后来发现是不支持文件名中有空格的原因。文件名修改即好。

by theway：我用的是outlook2007