1

添付ファイルのない電子メールに影響を与えるOutlookのカスタムルールを作成するというクレイジーなタスクが与えられました。現在、ルールウィザードには、添付ファイルはあるがその逆ではない電子メールを対象とするオプションがあります。

また、ここで言う価値があるのは、私がVisualBasicの行を書いたことがないということです。しかし、それはほんの少しのルールであり、それがどれほど難しいかです。

これは私が現在持っているものです：

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だけです。

そこに何かポインタはありますか？

4

1 に答える 1

1

Item最初にオブジェクトをとしてキャストしてMailItemから、を呼び出す必要がありますMailItem.Delete。アイテムは、、、などの複数のクラスを表すことができます。AppointmentItemTaskItemJournalItem

Outlook.MailItem mailItem = Item as Outlook.MailItem;
if (mailItem != null)
{
     mailItem.Delete();
}
于 2012-08-27T13:02:00.733 に答える