☰

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

tag-icon • tag-icon email microsoft-outlook vba microsoft-outlook-2013
Создайте Outlook VBA для пересылки электронного письма с определенными словами в теме

Здравствуйте, я хочу создать правило или 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

решение1

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

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

Связанный контент