Изменить почтовый элемент в событии Application_NewMail - PullRequest
Новая
       19

Изменить почтовый элемент в событии Application_NewMail

0 голосов
/ 24 сентября 2019

Я перезаписываю функцию Application_NewMail (), чтобы что-то делать с входящей почтой.Если входящая почта соответствует данному условию, то я хочу сделать olMail.Subject = "Mymark" + olMail.Subject или olMail.Categories = "MyMark".

Но, похоже, я делаю это слишком позднопотому что почта уже находится в папке "Входящие" и эти изменения не распространяются.

Private Sub Application_NewMail()
Dim olFld As Outlook.MAPIFolder
Set olFld = Outlook.Session.GetDefaultFolder(olFolderInbox)
olFld.Items.Sort "[ReceivedTime]", False   
Dim olMail As Outlook.MailItem
Set olMail = olFld.Items.GetLast
Dim Reg1 As RegExp
Dim M1 As MatchCollection
Dim M As Match
Dim doc As Variant
Set olMail = olFld.Items.GetLast        
Set Reg1 = New RegExp
With Reg1       
    .Pattern = "[^0] (x ERROR)"
    .Global = True
End With 
If Reg1.Test(olMail.Body) Then
    Set M1 = Reg1.Execute(olMail.Body)
    For Each M In M1
          olMail.Subject    = "mymark" + olMail.Subject
          olMail.Categories = "XYZ"             
    Next
End If      
End Sub
...