顺序处理 Outlook 规则

Question

我使用 Outlook 规则通过 VBA 宏处理传入邮件。 在 VBA 中，会触发各种操作来处理传入邮件的附件。

问题是，有时有一堆电子邮件需要处理。 我似乎找不到一种方法来一一触发。 如果有堆栈，我想在处理下一封邮件之前等待几秒钟。 在宏中添加 sleep 方法似乎没有效果。该规则似乎不会等待上一条消息完成。

我的方法是这样的：

有没有办法实现这种行为？

Private Sub ProcessMail(ByVal Item As Object)
Dim objNS As Outlook.NameSpace
Set objNS = GetNamespace("MAPI")

If TypeOf Item Is Outlook.MailItem Then
    Dim Msg As Outlook.MailItem

        DoProcessingMethod 

    End If
End If

End Sub

在方法中放置等待或睡眠不会导致它被一一处理。

Answer 1

GD Arnold，

您确实可以按照 @Brett 的回答使用 ItemAdd 选项。

我使用类似的过程自动上传收到的数据（作为电子邮件中的附件）并将其上传到 MySQL 数据库。该操作由 ItemAdd 方法触发，并逐一检查邮件。

简化说明：

在名为“EventClassModule”的 VBA 代码中添加一个类

在您的类中，键入

Public WithEvents dItems As Outlook.Items

在您的 ThisOutlookSession 中创建一个注册 event_handler 的子程序：

Sub Register_Event_Handler()

    Set myClass.dItems = Outlook.Items

End Sub

在您的 ThisOutlookSession 中创建一个处理 ItemAdd 事件的子程序，如下所示：

Private Sub dItems_ItemAdd(ByVal newItem As Object)

  On Error GoTo ErrorHandler
  Dim msg As Outlook.MailItem
  If newItem.Class = olMail Then
    Set msg = newItem
    'Do something with the msg item, check rules, check subject, check whatever
    'This will process messages when the arrive in your mailbox one by one.


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

这些步骤应该为您提供当新邮件到达时触发的子程序。

然后你可以调用一个函数/子函数，如下所示。
下面的子程序基于可选的 ruleSet 变量运行所有规则，它根据规则集检查 rule.Name 以及 ruleSet 字符串是否存在于rule.Name 然后它执行一些代码。通过这种方式，您可以拥有多个规则，并且仅根据它们所属的“规则集”执行其中一些规则。您可以通过更改它们的名称来定义它。

它是 Outlook 中“运行规则”选项的改进。

其中一些代码来自此处：设置 VBA 读取个人收件箱

Sub runRules(Optional ruleSet As String)
    Dim olStore As Outlook.Store
    Dim myRules As Outlook.Rules
    Dim tmpInbox As Outlook.Folder
    Dim tmpSent As Outlook.Folder

    Dim rl As Outlook.Rule
    'On Error Resume Next
    'toTmpBox (ruleSet)

    ' get default store (where rules live)
    Set olStore = Application.Session.DefaultStore

    With olStore
        Set tmpInbox = .GetDefaultFolder(olFolderInbox) '.Folders("tmpInbox")
        Set tmpSent = .GetDefaultFolder(olFolderSentMail) '.Folders("tmpSentBox")
    End With

    ' get rules
    Set myRules = olStore.GetRules

    ' iterate through all the rules
    For Each rl In myRules
            Debug.Print rl.Conditions.Body.Enabled & " " & rl.Conditions.Body.Text

            If InStr(LCase(rl.Name), ruleSet) > 0 And (rl.Enabled) Then

                rl.Execute ShowProgress:=True, Folder:=tmpInbox

                If ruleSet = "autorun" Then
                    rl.Execute ShowProgress:=True, Folder:=olStore.GetDefaultFolder(olFolderSentMail)

                End If

                ruleList = ruleList & vbCrLf & rl.Name
            End If
    Next


    ' tell the user what you did
    ruleList = "These rules were executed " & _
          vbCrLf & ruleList
    MsgBox ruleList, vbInformation, "Macro: RunMyRules"

CleanUp:

    Set olStore = Nothing
    Set tmpInbox = Nothing
    Set tmpSent = Nothing

    Set rl = Nothing
    Set myRules = Nothing


End Sub

Answer 2

我遇到过类似的问题。就我而言，我的工具会定期运行，每次我只需捕获新电子邮件。现在新电子邮件可能是一封或多封。我找到的解决方案如下所示。

每次该工具都会运行。它将捕获新电子邮件并仅标记一个简单的“，”或“|”您在主题末尾选择的任何内容都不会被人注意到。现在，下次该工具运行时，它会检查一两天收到的电子邮件（根据您的要求）是否有这些标记。

如果电子邮件通信是一种方式，则此解决方案有效。如果我们使用这些电子邮件作为连锁电子邮件，那么它们是另一种解决方案。

在这里，您必须保存上次运行中捕获的电子邮件的最大时间。现在，每次运行时，您只需运行一整天，并放置一个 if 语句，该语句应该大于上次捕获的时间。

现在要存储您可能需要创建文件夹和电子邮件的最长时间。该电子邮件可以帮助您存储每次运行发生的时间

item.subject = maxtime
项目.保存