Создание настраиваемого правила пересылки писем на основе содержимого вложений. Я не знаю, как использовать регулярное выражение для содержимого вложений.
См. Код - я думаю, что использую Regex только для содержимого электронной почты, а не для содержимого вложений.
Option Explicit
Public Sub Forward(Item As Outlook.MailItem)
Dim M1 As MatchCollection
Dim M As Match
Dim Reg1 As Object
Dim myForward As Object
Set Reg1 = New RegExp
With Reg1
.Pattern = "(Next year\s*(\w*)\s*)"
.Global = True
End With
If Reg1.Test(Item.Body) Then
Set M1 = Reg1.Execute(Item.Body)
For Each M In M1
Debug.Print M.SubMatches(0) ' Immediate Window
Item.Subject = Item.Subject & " - Next year"
Item.HTMLBody = "<HTML><BODY>Assignments for next year. </BODY></HTML>" & objForward.HTMLBody
Next
End If
Item.Save
Set myForward = Item.Forward
myForward.Recipients.Add "[email protected]"
myForward.Display
End Sub
Я хочу, чтобы результат был: - Переслать электронное письмо - Новая тема: [Item.Subject] & «- В следующем году»
Электронные письма, которые будут пересылаться: - Электронные письма, содержащие вложения, содержащие текст: «В следующем году»