Добавить заголовок темы в 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

Мы что-то упустили? РЕДАКТИРОВАТЬ: Doh! Вы уже ответили на наш вопрос с полным сценарием ... Спасибо!

Answer 3

Не тестировалось:

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