Outlook Kategorija + Script

Hej hej.

Imam malenkost problema pri skriptanju Outlooka in sicer zelim da mi maile v rule-u preposlje mail v evernote s tem da doda noter dolocene kljucne besede v subject.

Trenutno to resujem s kategorijami, vendar kategorijo zapopade script sele "v drugo" (ko se ze enkrat zazene in ji doda kategorijo). Ima kdo kako drugo resitev za ta problem?

Rule zgleda takole:

Apply this rule after the message arrives
from yyy or xxx@xxx.com
and on this computer only
assign it to the zzzzz category
and run ModifySubject.ThisOutlookSession. RunAScriptRuleRoutine

Script:

Sub RunAScriptRuleRoutine(MyMail As MailItem)
 Dim strID As String
 Dim olNS As Outlook.NameSpace
 Dim msg As Outlook.MailItem
 Dim fwd As Outlook.MailItem
 
 strID = MyMail.EntryID
 Set olNS = Application.GetNamespace("MAPI")
 Set msg = olNS.GetItemFromID(strID)
 ' do stuff with msg, e.g.
 msg.Subject = msg.Subject & " @Email arhiv" & " #" & msg.Categories
 msg.Save

 Set msg = Nothing
 Set fwd = Nothing
 Set olNS = Nothing
End Sub

Najlepsa hvala!