Crie um VBA do outlook para encaminhar um email com palavras específicas na linha de assunto

Question

Olá eu quero criar uma regra ou um vba no outlook, onde a linha de assunto tem 3 certas palavras em qualquer ordem. Por exemplo, eu quero procurar por "Badges, user, moped"

O sujeito diz: os crachás e o usuário com um ciclomotor.

Se o assunto tiver essas três palavras, quero que ele encaminhe o e-mail para alguém.

encontrou este código criado por "mark-goldfain", eu estava pensando que talvez possamos modificá-lo? Embora eu não saiba nada sobre programação 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

Você só precisa alterar a condição de If :

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