Skrypt programu Outlook do edycji tematu

Czy w programie Outlook mogę edytować wiersz tematu przychodzącej poczty od określonego nadawcy, aby zachować tylko trzecie słowo w wierszu tematu o długości 5 słów? Trzecie słowo jest unikalne dla każdego wysłanego e-maila, pozostały tekst jest zawsze taki sam.

To bardzo proste. Wystarczy utworzyć makro VBA (ALT + F11 w Outlooku i dodać następujący kod do ThisOutlookSession), który wygląda następująco:

Sub EditSubject(Item As Outlook.MailItem)
    Splitted = Split(Item.Subject)
    If UBound(Splitted) == 4 Then
        Item.Subject = Splitted(2)
        Item.Save
    End If
End Sub

Następnie utwórz regułę programu Outlook dla tego konkretnego nadawcy, który uruchamia ten skrypt.