Question

我在Outlook中设置规则时遇到了一些麻烦。我的问题的原因是前景规则定义和条件似乎不够强大。

我想做什么。我从票务系统获得自动消息，主题为＆＃34;评论已添加＆＃34;当有人在系统内回复我的电子邮件时。

我想：

将这些项目移动到特定文件夹中。
添加2个类别
播放通知声音，
今天将其标记为跟进，

现在，使用规则，每当我完成一项任务并从该系统发出新的电子邮件时，该规则将再次运行并再次标记所有已完成的任务。但是我想对已经标记为已完成的邮件进行例外处理。

有可能吗？我在考虑使用VBA。也许有人在这里有一些指示我可以从哪里开始？

Answer 1

如果您想在Outlook中使用VBA。您可以执行类似的操作，这样您就可以在收到回复时处理新邮件。

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim Folder As Outlook.MAPIFolder

  Set Ns = Application.GetNamespace("MAPI")
  Set Folder = Ns.GetDefaultFolder(olFolderInbox)
  Set Items = Folder.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  If TypeOf Item Is Outlook.MailItem Then
  ProcessNewMessage Item
  End If
End Sub

Private Sub ProcessNewMessage(NewMail As Outlook.MailItem)
    'DO WHAT YOU NEED TO WHEN NEW MAIL ARRIVES HERE
    'E.G
    'MsgBox NewMail.Subject
End Sub

您只需要编写消息到达时要执行的操作。检查主题包含的内容等。

Outlook规则，也许是VBA

1 个答案: