vba - Outlook で件名ヘッダーを追加する (VBA)

Question

基本的に、受信メッセージの本文でコード ワードが検出されたときにスクリプトを実行するようにルールを設定しています。スクリプトは、現在の件名ヘッダーの前に単語を追加します。たとえば、前:「テスト メッセージ」、後:「部門 - テスト メッセージ」。何か案は？

Answer 1

または、スクリプト全体が必要な場合：

MailItemをパラメーターとして実行するスクリプトを実行します。

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

    With myMailItem 
      .Subject = "Dept - " & mailItem.Subject
      .Save
    End With

    Set myMailItem = Nothing
    Set outlookNS = Nothing

End Sub

Answer 2

Sub AppendSubject(MyMail As MailItem)
    Dim strID As String
    Dim mailNS As Outlook.NameSpace
    Dim mailItem As Outlook.MailItem

    strID = MyMail.EntryID
    Set mailNS = Application.GetNamespace("MAPI")
    Set mailItem = mailNS.GetItemFromID(strID)
    mailItem.Subject = "Dept - " & mailItem.Subject
    mailItem.Save

    Set mailItem = Nothing
    Set mailNS = Nothing
End Sub

何か足りないものはありますか？編集：ドー！あなたはすでに完全なスクリプトで私たちの質問に答えました...ありがとう！

Answer 3

未検証：

mailItem.Subject = "Dept - " & mailItem.Subject
mailItem.Save