爲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語句空。但基本上所有我現在要做的就是所謂的「項目」對象的某些「刪除」功能。然後，如果它沒有附件，然後刪除電子郵件，容易..我習慣於編寫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(); 
}