Изменить строку темы внешнего вида

Question

Как написать метод VBA, который заменяет тему, если в теме есть определенное слово.Этот код найдет определенное ключевое слово (отличное от ключевого слова темы) в теле письма.После этого ключевое слово будет заменено на 13 символов после ключевого слова, найденного в теле текста.

Ниже уже найдено, но не упоминается, как найти что-либо в теле письма.И я не получаю справку MAPI.

Любая помощь будет очень признательна. Заранее благодарю за любую помощь. Рик

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

Если это для всех новых сообщений, то вы можете использовать следующие

Private Sub Application_ItemSend (ByVal Item As Object, Cancel 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

Надеюсь, это поможет.