VBA Outlook 新邮件答案

【问题标题】：VBA outlook new mailVBA Outlook 新邮件
【发布时间】：2011-08-30 09:04:22
【问题描述】：

每当有新邮件到达 Outlook 时，我都会尝试运行一个函数。我一直在做一些搜索，但每次收到电子邮件时我都找不到触发代码的方法。有没有我可以利用的新邮件事件？

我向它添加了一个简单的MsgBox，以便能够查看事件是否正在触发，但它似乎没有工作。我将此代码放在ThisOutlookSession 模块中。有什么建议吗？这是我的代码。

   Public WithEvents myOlApp As Outlook.Application

    Sub Initialize_handler()
        Set myOlApp = CreateObject("Outlook.Application")
    End Sub

    Private Sub myOlApp_NewMail()
        Dim myExplorers As Outlook.Explorers
        Dim myFolder As Outlook.MAPIFolder
        Dim x As Integer
        Set myExplorers = myOlApp.Explorers
        Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
        If myExplorers.Count <> 0 Then
            For x = 1 To myExplorers.Count
                On Error GoTo skipif
                If myExplorers.Item(x).CurrentFolder.Name = "Inbox" Then
                    MsgBox ("Test")
                    myExplorers.Item(x).Display
                    myExplorers.Item(x).Activate
                    Exit Sub
                End If
    skipif:
            Next x
         End If
         On Error GoTo 0
         myFolder.Display
    End Sub

【问题讨论】：

当有人提供了解决您问题的答案时，单击答案旁边的小 V 将其标记为已接受。这样，您就可以向阅读本文的任何人发出信号，这就是解决方案，并且您的问题已经解决。

标签： vba outlook

【解决方案1】：

试着放：

私有子应用程序_NewMail() MsgBox "新邮件" 结束子

在“ThisOutlookSession”中

【讨论】：

谢谢马特。这适用于我的工作计算机，但遗憾的是不适用于我的家用计算机......我正在尝试开发的那个。我显然对前景有更深层次的问题。这需要更多的挖掘。
这很尴尬。一直以来，我都在 Outlook 中禁用了宏。我期待着真正推进这个项目。感谢大家的帮助！
@loveforvdubs 如果 Matt 的回答帮助你解决了这个问题，你应该选择它作为答案。

【解决方案2】：

MSDN 上有一个很好的示例，展示了如何在新邮件到达时显示收件箱（使用 Outlook.Explorers）。您可能可以很容易地将其改编为您自己的程序。

【讨论】：

@loveforvdubs 您可能应该编辑您的问题以说明您尝试了什么、预期的结果以及获得的结果。
对不起，我不是故意提交该评论，请看下面
有没有办法在评论中发布代码？我一直在尝试使用我尝试使用的代码进行回复，但我无法找到在评论字段中发布代码的方法。
@loveforvdubs 您的问题下方有一个Edit 链接。使用它在编辑模式下打开问题并添加您的代码。如果你有一个小的 sn-p，在注释中使用反引号来给它一些代码格式。
@loveforvdubs 您可以编辑您的原始帖子并将代码放在那里（可以将其粘贴到 cmets 中，但没有格式）