Dołącz nagłówek tematu w programie Outlook (VBA)

Question

Zasadniczo mamy konfigurację reguł do uruchamiania skryptu po wykryciu słowa kodowego w treści przychodzącej wiadomości. Skrypt doda nagłówek bieżącego tematu z napisem na początku. Na przykład: Przed: "Testuj wiadomość", Po: "Dept - Testuj wiadomość". Jakieś pomysły?

Answer 1

nie testowano:

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

Answer 2

Albo jeśli trzeba cały skrypt:

Wykonaj uruchomić skrypt z MailItem jako parametr.

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 3

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 

Czy mamy brakuje czegoś? EDYCJA: Doh! Już odpowiedziałeś na nasze pytanie pełnym skryptem ... Dzięki!