为 Outlook 2010 编写自定义规则

Question

我接到了一项疯狂的任务，即为 Outlook 编写一个影响没有附件的电子邮件的自定义规则。目前在规则向导中，有一个选项针对确实有附件但没有相反的电子邮件，奇怪...

在这里还值得一提的是，我从来没有写过一行 Visual Basic！但这只是一个小规矩，能有多难。

这是我目前拥有的：

Dim WithEvents objInbox As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objInbox_ItemAdd(ByVal Item As Object)

    ' If the mail doesn't contain an attachment
    If Item.Attachments.Count = 0 Then

          ' Chirp chirp..

    End If

End Sub

一个空的 if 语句.. 但基本上我现在要做的就是在“Item”对象上调用一些“delete”函数。如果它没有附件，那么它会删除电子邮件，简单..我习惯于编写 Java 和 C#，仅供参考

有什么建议吗？

Answer 1

您需要先将Item 对象转换为MailItem，然后调用MailItem.Delete。 物品可以represent multiple classes，如AppointmentItem、TaskItem、JournalItem等

Outlook.MailItem mailItem = Item as Outlook.MailItem;
if (mailItem != null)
{
     mailItem.Delete();
}