返信時にのみ最新のテキストを検索する

Question

メールを送信する前に確認するように電子メールの概要をメッセージボックスに表示するOutlook VBAスクリプトを作成しました。

電子メールに「添付」または「囲み」文字列が含まれている場合、添付ファイルがないかどうかをチェックする機能の1つがあります。

これらの単語を含むメールに返信すると、添付された部分を含む検索の結果としてのプロンプトは無意味になります。追加された部分の検索を除外する方法を知りたい。以下は、私のスクリプトの一部です：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
    Dim mailContent As String 
    mailContent = LCase(Item.Body) 
    If (Item.Attachments.Count = 0) Then 
     If InStr(1, mailContent, "attach") <> 0 Or InStr(1, mailContent, "enclose") <> 0 Then 
      If MsgBox("With the word 'attach' or 'enclose', attachment should be found in this email. Proceed?", vbYesNo + vbCritical + vbMsgBoxSetForeground, "Missing Attachment") = vbNo Then 
       Cancel = True 
       Exit Sub 
      End If 
     End If 
    End If 

Answer 1

は、残念ながら、新しいテキストと返信テキストを区別できるようになりますMailItemオブジェクトにはプロパティがありません。 1つの選択肢は、ユーザが返信したときにソース電子メールのハンドルを取得し、新しいものと古いものとの間のメッセージ本文を比較することです。

なぜ添付ファイル関連のキーワードをトラップする必要がありますか？この機能は既にOutlook 2013+に組み込まれています。