☰

Crie um VBA do Outlook para encaminhar um e-mail com palavras específicas na linha de assunto

tag-icon • tag-icon email microsoft-outlook vba microsoft-outlook-2013
Crie um VBA do Outlook para encaminhar um e-mail com palavras específicas na linha de assunto

Olá, quero criar uma regra ou um vba no Outlook, onde a linha de assunto contenha 3 palavras específicas em qualquer ordem. Por exemplo, quero procurar "Emblemas, usuário, ciclomotor"

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

Se o assunto contiver essas três palavras, quero encaminhar o e-mail para alguém.

encontrei este código criado por "mark-goldfain", 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

Responder1

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

informação relacionada