Excel 使用vba打开和关闭outlook.msg文件

大家好，我有下面的代码，它在打开和关闭第一个文件后给了我一个自动错误。 运行时错误'-2147023170（800706be）自动错误远程过程调用失败。请帮助我如此接近让excel打开和阅读，然后关闭我的所有outlook.msg文件

Sub Kenneth_Li()
    Dim objOL As Outlook.Application
    Dim Msg As Outlook.MailItem

Set objOL = CreateObject("Outlook.Application")
inPath = "C:\Users\SiliconPlus\Desktop\Si+ Contact Lists\Contact_Si+"

thisFile = Dir(inPath & "\*.msg")
Do While thisFile <> ""

    'Set Msg = objOL.CreateItemFromTemplate(thisFile)
    'Or
    'Set Msg = objOL.OpenSharedItem(thisFile)
    Set Msg = objOL.CreateItemFromTemplate(inPath & "\" & thisFile)

    Msg.Display

    Msg.Close olSave
    'MsgBox Msg.Subject
    thisFile = Dir
Loop


Set objOL = Nothing
Set Msg = Nothing
End Sub

Sub Kenneth_Li（）
将objOL设置为Outlook.Application
将消息作为Outlook.mailtim
Set objOL=CreateObject（“Outlook.Application”）
inPath=“C:\Users\SiliconPlus\Desktop\Si+联系人列表\Contact\u Si+”
thisFile=Dir（inPath&“\*.msg”）
执行此文件“”时的操作
'Set Msg=objOL.CreateItemFromTemplate（此文件）
”“或者
'Set Msg=objOL.OpenSharedItem（此文件）
Set Msg=objOL.CreateItemFromTemplate（inPath&“\”&thisFile）
Msg.Display
Msg.closeolsave
'MsgBox Msg.Subject
thisFile=Dir
环
Set objOL=无
设置Msg=Nothing
端接头

对我来说效果很好

我建议你试着晚装订，如下所示

谷歌搜索您的错误也会导致RPC服务成为一个潜在问题

Sub Kenneth_Li()
Dim objOL As Object
Dim Msg As Object

Set objOL = CreateObject("Outlook.Application")
inPath = "C:\temp"

thisFile = Dir(inPath & "\*.msg")
Do While thisFile <> ""

    Set Msg = objOL.CreateItemFromTemplate(inPath & "\" & thisFile)
    Msg.Display
    Msg.Close olSave
    thisFile = Dir
Loop


Set objOL = Nothing
Set Msg = Nothing
End Sub

Sub Kenneth_Li（）
作为对象的模糊对象
将Msg作为对象
Set objOL=CreateObject（“Outlook.Application”）
inPath=“C:\temp”
thisFile=Dir（inPath&“\*.msg”）
执行此文件“”时的操作
Set Msg=objOL.CreateItemFromTemplate（inPath&“\”&thisFile）
Msg.Display
Msg.closeolsave
thisFile=Dir
环
Set objOL=无
设置Msg=Nothing
端接头

RPC\u S\u CALL\u失败通常意味着当您仍有对其对象的引用时，out-of-proc-COM服务器（Outlook）终止

---

如果Outlook在执行代码时运行，则返回错误？

后期绑定？是的，我刚刚试过你的代码，但它仍然会打开和关闭第一个.msg文件，然后继续给我一个自动化错误。还有什么我没有的权限吗@谢谢你的回复。有时会出现自动错误，有时会出现运行时错误462，远程服务器计算机不存在或不可用。此外，我在网上发现了此问题，但我不确定下一步该怎么办。我的任何人都需要这方面的帮助。是的，outlook正在运行，为什么不尝试下面的代码，我仍然不知道该怎么办。