outllok2010按照网上的方法,用宏命令批量导入名片命令出错

lenlydia

运行系统为简体win7

错误提示如下:
运行时错误’ -2147024894（80070002）':
自动化(Automation) 错误

求大神帮忙啊

下面的红色出,为调试时,提示出错的代码.


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("W:\Contacts\")

For Each fsFile In fsDir.Files
strVCName = "W:\Contacts\" & 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

lenlydia

已自行解决了,谢谢

dsd999

lenlydia 发表于 2018-2-27 09:22
已自行解决了,谢谢

是没有加引用吗？

lenlydia

dsd999 发表于 2018-2-27 11:57
是没有加引用吗？

是需要导出的名片包含有/,导致出错.不好意思啊.没有标明解决方法