Создайте Outlook VBA для пересылки писем с конкретными словами в строке темы.

Question

Здравствуйте, я хочу создать правило или VBA в Outlook, где в строке темы есть 3 определенных слова в любом порядке. Например, я хочу найти «Значки, пользователь, мопед»

Испытуемый говорит: значки и пользователь с мопедом.

Если в теме есть эти три слова, я хочу переслать кому-нибудь письмо.

нашел этот код, созданный "mark-goldfain", я думал, может быть, мы можем изменить его? Хотя я ничего не знаю о программировании на VBA.

Public Sub File_Stock_Incoming_Message(Item As Outlook.MailItem)
  ' This macro is called from a wizard-built rule, where the
  ' rule operates on *every* incoming message, and its action
  ' is to call this macro.
  Dim NS As Outlook.NameSpace
  Set NS = Application.Session
  Dim MoveToFolder As Outlook.MAPIFolder
  Set MoveToFolder = NS.Folders("mainboxname").Folders("MsgLog")

  Dim sbjstr As String
  sbjstr = Item.Subject
  If (sbjstr = "Whatever Site Error") Then
    Item.Move MoveToFolder
  End If
End Sub

Answer 1

Вам просто нужно изменить условие, If:

instr(item.subject,"word1")>0 And instr(item.subject,"word2")>0 And instr(item.subject,"word3")>0