当我收到新电子邮件时,我正在尝试执行以下操作:
Sub CheckReadReceipt(myMail As Outlook.MailItem)
If (myMail.ReadReceiptRequested = True) Then myMail.Categories = "Read Receipt Requested" myMail.Save 'MsgBox "Read receipt for " & myMail.Subject & " found!" 'eventually do something more creative.. End If End Sub
不幸的是,它实际上并没有保存新收到的电子邮件的类别——我显然在这里遗漏了一些东西。
我通过所有传入电子邮件的规则调用它(通过正确查看 MsgBox 成功处理)。