Outlookの変更点

Question

件名に特定の単語がある場合、その件名を置き換えるVBAメソッドを作成するにはどうすればよいですか？このコードでは、電子メールの本文に特定のキーワード（件名のキーワードとは異なる）が見つかります。それは、本文の本文にあるキーワードの後ろに13文字の件名を置きます。

以下は既に見つかりましたが、電子メールの本文に何かを見つける方法については言及していません。私はMAPIリファレンスを取得しません。

すべてのヘルプは本当にいただければ幸い

は、それがすべての新しいメッセージのためであれば、あなたは、次の

プライベートサブApplication_ItemSend（ByValのアイテムを使用することができますどのような援助のため、事前に リック

Sub RewriteSubject(MyMail As MailItem) 
    Dim mailId As String 
    Dim outlookNS As Outlook.NameSpace 
    Dim myMailItem As Outlook.MailItem 

    mailId = MyMail.EntryID 

    Set outlookNS = Application.GetNamespace("MAPI") 
    Set myMailItem = outlookNS .GetItemFromID(mailId) 

    ' Do any detection here 
    mailItem.Subject = "Dept - " & mailItem.Subject 
    myMailItem.Save 

    Set mailItem = Nothing 
    Set outlookNS = Nothing 
End Sub 

Answer 1

をありがとうございましたオブジェクトとして、ブールAs As Boolean）

Dim v As Variant 
    For Each v In Array("first", "second") 
     If InStr(1, Item.Subject, v, vbTextCompare) <> 0 Then 
      SearchForAttachWords = True 
     End If 
    Next 

    If SearchForAttachWords = True Then 
     Item.Subject = "Whatever subject you want" 
    End If  

End Sub 

これは役立ちます。