根据发件人电子邮件地址分配类别

Question

我一直致力于为三个不同的人使用的共享文件夹添加电子邮件宏。

已经有一个宏，它以循环方式为每个传入的电子邮件分配一个类别，该类型适用于this webpage。

我希望添加其他参数以便分类到其他类别;例如，如果存在从特定地址发送的电子邮件，则会在循环排序之外将其移动到其自己的“杂项”类别中。

将来，我想添加更多内容（例如，如果我的姓名被提及，则将电子邮件分类到我的类别中，因此我签名的正在进行的对话中的电子邮件会自动分配给我）。但是，我在添加一个参数时遇到了麻烦，所以我专注于通过发件人的电子邮件地址来收集电子邮件。

以下是我正在处理的宏中的子程序 - 我将未运行的部分分开，这是以 Item.SenderEmailAddress 开头的四行

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
    Dim strCat As String
    If Item.Class = olMail Then

        If Item.SenderEmailAddress = "mailbox@example.com" Then
            Item.Categories = "Miscellaneous"
            Item.Save
        End If

        If Item.Categories = "" Then
            Select Case i
            Case 0
                strCat = "Person1"
            Case 1
                strCat = "Person2"
            Case 2
                strCat = "Person3"
            End Select
            Item.Categories = strCat
            Item.Save
            Err.Clear
        End If
    End If
    i = i + 1
    Debug.Print i
    If i = 3 Then i = 0
End Sub

任何建议将不胜感激！感谢您花时间阅读！