使用 Excel VBA 打开 Outlook .msg 文件

Question

我有以下代码

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)

        Msg.display

        MsgBox Msg.Subject
        thisFile = Dir
    Loop


    Set objOL = Nothing
    Set Msg = Nothing
End Sub

当我使用OpenSharedItem 时，它会给出运行时错误 438 对象不支持此属性或方法。

当我使用CreateItemFromTemplate 时出现以下错误：

无法打开文件：AUTO Andy Low Yong Cheng 不在办公室（返回 22 09 2014）.msg.
该文件可能不存在，您可能没有打开它的权限，或者它可能在另一个程序中打开。
右键单击包含该文件的文件夹，然后单击属性以检查您对该文件夹的权限。

Answer 1

我不是 100% 了解您想用代码实现什么，但试试这个：

Sub LiminalMsgbx()

    Dim outappp, outmaill As Object
    Dim pthh As String
    pthh = "C:\DeskTop\MyTemplate.oft"

  Set outappp = CreateObject ("Outlook.Application")
  Set outmaill = outapp.CreateItemFromTemplate(pthh)   

                With outmaill
                    .display

                    End With
Set outappp = Nothing
Set outmaill = Nothing

End Sub

您也可以使用.send 代替.display。

Answer 2

OpenSharedItem 方法由Namespace 对象公开，而不是Application。

Set objOL = CreateObject("Outlook.Application")
set objNs = objOL.GetNamespace("MAPI")
objNs.Logon
...
Set Msg = objNs .OpenSharedItem(thisFile)

至于第二个错误，它非常明确 - 找不到文件。您必须提供带有文件夹路径的完全限定文件名。您只提供文件名。