VBA for Outlook 中的运行时错误

Question

因此，我正在尝试在 Outlook 中编写一个模块，该模块将从我在邮件正文中发送的电子邮件中解析出电子邮件。 我在这行代码中收到“运行时 424 错误”

    For Each outlookMessage In outlookFolder.Items

它说需要一个对象，我很确定错误是参考For Each outlookMessage In outlookFolder.Items

有人可以帮帮我吗，我对 VBA 不太擅长，我需要一些帮助。

这是我正在谈论的代码的一部分：

    ' Get all top level folders and find our target email folder....
 For iCtr = 1 To OutlookNameSpace.Folders.Item(1).Folders.Count
    ' handle case sensitivity as I can't type worth a crap
     If LCase(OutlookNameSpace.Folders.Item(1).Folders(iCtr).Name) = LCase(strTargetFolder) Then
     'found our target :)
        Set outlookFolder = OutlookNameSpace.Folders.Item(1).Folders(iCtr)
     Exit For  ' found it so lets move on
    End If
 Next
 'set up a header for the data dump, this is for CSV
 strEmailContents = "User,Remote,Forwarder,Encoding,timestamp" & vbCrLf

 'likely should have some error handling here, in case we have found no target folder
 'Set myFolderItem = outlookFolder.Items
 ' I have commenteted out some items to illustrate the call to Sue'strEmailContents Function
    For Each outlookMessage In outlookFolder.Items
          strMsgBody = outlookMessage.Body  ' assign message body to a Var
          ' then use Sue Moshers code to look for stuff in the body
          ' all of the following stuff in the quotes "" is specific to your needs

          strEmailContents = strEmailContents & ParseTextLinePair(strMsgBody, "E-mail:")
        '  strEmailContents = strEmailContents & "," & ParseTextLinePair(strMsgBody, "REMOTE_ADDR=")
         ' strEmailContents = strEmailContents & "," & ParseTextLinePair(strMsgBody, "HTTP_USER_AGENT=")
         ' strEmailContents = strEmailContents & "," & ParseTextLinePair(strMsgBody, "HTTP_VIA=")
       '   strEmailContents = strEmailContents & "," & ParseTextLinePair(strMsgBody, "HTTP_X_FORWARDED_FOR=")
        '  strEmailContents = strEmailContents & "," & ParseTextLinePair(strMsgBody, "ENCODING=")
          'add the email message time stamp, just cause i want it
          strEmailContents = strEmailContents & "," & outlookMessage.ReceivedTime & vbCrLf
          'debug message comment it out for production
           'wscript.echo strEmailContents
     Next

先谢谢了！

Answer 1

首先，您的代码从不检查 OutlookFolder 是否不为空。 如果上面的循环找不到它怎么办？

其次，你是如何声明outlookMes​​sage变量的？ 您是否将其声明为 MailItem（不能这样做）或通用对象？

Answer 2

根据到目前为止的讨论，以下代码应该适合您。 也许您正在点击会议邀请或其他非邮件项目？

strTargetFolder = "inbox"
Dim outlookFolder As Object
Set OutlookNamespace = Application.GetNamespace("MAPI")
For iCtr = 1 To OutlookNamespace.Folders.Item(1).Folders.Count
    ' handle case sensitivity as I can't type worth a crap
     If LCase(OutlookNamespace.Folders.Item(1).Folders(iCtr).Name) = LCase(strTargetFolder) Then
     'found our target :)
        Set outlookFolder = OutlookNamespace.Folders.Item(1).Folders(iCtr)
     Exit For  ' found it so lets move on
    End If
 Next

strEmailContents = "User,Remote,Forwarder,Encoding,timestamp" & vbCrLf
if Not outlookFolder is Nothing then    
    For Each outlookMessage In outlookFolder.Items
        If TypeOf outlookMessage Is MailItem Then
             strMsgBody = outlookMessage.Body  ' assign message body to a Var
              strEmailContents = strEmailContents & ParseTextLinePair(strMsgBody, "E-mail:")
              strEmailContents = strEmailContents & "," & outlookMessage.ReceivedTime & vbCrLf
        End If
    Next
end if