使用 VBA 阅读新的 Outlook 电子邮件？答案

【问题标题】：Using VBA to read new Outlook Email?使用 VBA 阅读新的 Outlook 电子邮件？
【发布时间】：2011-12-21 18:52:24
【问题描述】：

我有下面的代码告诉新消息何时到达！

Private Sub Application_NewMail()
    MsgBox "New Mail Has Arrived"
End Sub

如何阅读这封邮件的正文和主题？有没有好的outlook编程教程？

我发现 msdn 教程很有用，但只是一般概述。

【问题讨论】：

标签： vba outlook

【解决方案1】：

你需要这样的东西：

Private WithEvents myOlItems  As Outlook.Items

Private Sub Application_Startup()
    Dim olApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
      Set olApp = Outlook.Application
      Set objNS = olApp.GetNamespace("MAPI")
      Set myOlItems = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal item As Object)

On Error GoTo ErrorHandler

  Dim Msg As Outlook.MailItem

  If TypeName(item) = "MailItem" Then
    Set Msg = item

    MsgBox Msg.Subject
    MsgBox Msg.Body

  End If

ProgramExit:
  Exit Sub
ErrorHandler:
  MsgBox Err.Number & " - " & Err.Description
  Resume ProgramExit
End Sub

将代码粘贴到 ThisOutlookSession 中并重新启动 Outlook。当邮件进入您的默认本地收件箱时，您会看到带有主题和正文的弹出窗口。

【讨论】：