如何为特定发件人/主题的自动回复创建规则

时间:2015-07-29 02:50:29

标签: vba outlook-vba outlook-2010

每当分支机构的链接/连接断开时,我都会收到来自NMS的电子邮件提醒。所有警报的主题电子邮件都相同,只更改了分支代码。

例如:

分支代码:A01 and A02

主题电子邮件为" Connection to Branch A01 is Down " or "Connection to Branch A02 is Down"

首次处理时,我必须回复并请求当地联系人检查设备。

我想为自动回复创建规则。正文电子邮件是相同的,但包含不同的分支代码和PIC。

正文电子邮件的模板是:

亲爱的"PIC"

根据电子邮件提醒,与分支"A02"的连接已关闭。请重新启动调制解调器等

我想更改PIC和代码分支。

3 个答案:

答案 0 :(得分:1)

您可以在Outlook中设置可能触发VBA子规则的规则。 sub应该如下所示:

Public Sub Test(mail as MailItem)
  '
End Sub

其中邮件对象代表传入的电子邮件。

您可以使用Outlook对象对项目进行任何修改,并使用Reply方法回复该项目。

Outlook对象模型提供了三种使用项主体的主要方法:

  1. Body
  2. HTMLBody
  3. Word编辑器。 Inspector类的WordEditor属性返回表示邮件正文的Word文档实例。因此,您可以使用Word对象模型对邮件正文执行任何操作。
  4. 有关详细信息,请参阅Chapter 17: Working with Item Bodies

答案 1 :(得分:0)

获取"分支代码"和#34; PIC",您可以使用以下字符串函数:

Replace link - >写一个重播并设置"分支代码"以及" PIC"一个虚拟的"%分支%"和"%pic%"。现在用正确的信息替换这些假人 Left link
Right link
Mid link - >这三个函数LeftRightMid可以返回字符串的一部分。用它来提取正确的"分支代码"和" PIC"。

希望它会对你有所帮助。亲切的问候,Nico

答案 2 :(得分:0)

创建脚本规则并调用以下vba。

Option Explicit
Public Sub Rply(olItem As Outlook.MailItem)
    Dim olReply As MailItem

    '// Branch A01
    If InStr(olItem.Subject, "Connection to Branch A01 is Down") Then
        Set olReply = olItem.ReplyAll
        olReply.Display
        olReply.Body = "Dear PIC " & vbNewLine & vbNewLine & _
                       "Based on email alert, Connection to the Branch A01 is down " & vbNewLine & vbNewLine & _
                       "Please restart the modem, etc. " & vbNewLine & vbNewLine
        '// Send
        olReply.Send
    Else
        '// Branch A02
        If InStr(olItem.Subject, "Connection to Branch A02 is Down") Then
            Set olReply = olItem.ReplyAll
            olReply.Display
            olReply.Body = "Dear PIC " & vbNewLine & vbNewLine & _
                           "Based on email alert, Connection to the Branch A02 is down " & vbNewLine & vbNewLine & _
                           "Please restart the modem, etc. " & vbNewLine & vbNewLine
            '// Send
            olReply.Send
        End If
    End If
End Sub