☰

Cree un VBA de Outlook para reenviar un correo electrónico con palabras específicas en la línea de asunto

tag-icon • tag-icon email microsoft-outlook vba microsoft-outlook-2013
Cree un VBA de Outlook para reenviar un correo electrónico con palabras específicas en la línea de asunto

Hola quiero crear una regla o un vba en outlook, donde la línea de asunto tenga 3 palabras determinadas en cualquier orden. Por ejemplo, quiero buscar "Insignias, usuario, ciclomotor".

El sujeto dice: las placas y el usuario con ciclomotor.

Si el asunto tiene esas tres palabras, entonces quiero que reenvíe el correo electrónico a alguien.

Encontré este código creado por "mark-goldfain", estaba pensando que tal vez podamos modificarlo. Aunque no sé nada sobre programación 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

Respuesta1

Sólo necesitas cambiar la condición de If:

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

información relacionada