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＃，只是fyi

有任何指针吗？

Answer 1

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

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

编写Outlook 2010的自定义规则

1 个答案: