Outlook中检测签名后转发内容并发出提醒的方法咨询

太懂这种尴尬了！每次看完冗长的签名就默认邮件结束，结果漏了后面的转发内容或者补充信息，跟人对接的时候闹过好多次乌龙😅。针对你这个需求，给你几个实用的解决思路：

• 自定义规则+正则表达式，低成本实现检测
  不管发件人用什么语言，转发内容通常会重复出现邮件头部信息（比如发件人、日期、主题这类字段），我们可以利用这个特征，结合Outlook的规则和正则表达式来触发提醒：

  1. 打开Outlook的「规则和通知」，新建一个规则，选择「对我接收的邮件应用规则」；
  2. 添加条件「邮件正文包含特定词语」，这里输入正则表达式来匹配签名后的转发头部，比如：

     (?s)(?<=--\s*\r\n).*(From:|发件人:|Absender:|Expéditeur:)
     

     这个正则的逻辑是：先匹配常见的签名分隔符-- （很多人会用这个分隔正文和签名），然后检测后面是否出现多语言的「发件人」关键词；
  3. 设置规则的执行动作，比如「显示桌面通知」「标记为高优先级」或者「移动到指定文件夹」，这样打开邮件前就能收到提示。
     小贴士：如果你的联系人很少用-- 分隔签名，可以把正则里的签名匹配部分换成常见的签名结尾词，比如(?<=Regards|此致|Mit freundlichen Grüßen\r\n).*，根据你收到的邮件情况调整就行。

• 用VBA脚本做更智能的自定义检测
  如果内置规则的正则不够灵活，写一段简单的VBA脚本可以实现更精准的识别：

  1. 打开Outlook的VBA编辑器（按Alt+F11），在「ThisOutlookSession」里粘贴下面的代码：

     Sub CheckContentAfterSignature(Item As MailItem)
         Dim signatureKeywords As Variant
         Dim bodyText As String
         Dim signatureStartPos As Long
         Dim contentAfter As String
         
         ' 可根据你的需求补充更多语言的签名关键词
         signatureKeywords = Array("Regards", "Best regards", "此致", "敬礼", "Mit freundlichen Grüßen", "Cordialement")
         bodyText = Item.Body
         
         ' 找到最后出现的签名关键词，定位签名区域
         signatureStartPos = 0
         For Each keyword In signatureKeywords
             Dim pos As Long
             pos = InStrRev(bodyText, keyword)
             If pos > signatureStartPos Then
                 signatureStartPos = pos
             End If
         Next
         
         ' 检查签名后的内容是否有有效文本
         If signatureStartPos > 0 Then
             contentAfter = Trim(Mid(bodyText, signatureStartPos + Len(keyword)))
             If contentAfter <> "" Then
                 MsgBox "注意：这封邮件签名后还有内容，请继续查看！", vbExclamation, "邮件内容提醒"
                 ' 可选：标记邮件为未读或添加分类
                 Item.UnRead = True
                 Item.Categories = "需检查后续内容"
                 Item.Save
             End If
         End If
     End Sub
     

  2. 绑定邮件接收事件：在「ThisOutlookSession」里添加下面的代码，这样每收到新邮件就会自动检测：

     Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
         Dim arrEntryIDs() As String
         Dim entryID As String
         Dim item As Object
         
         arrEntryIDs = Split(EntryIDCollection, ",")
         For Each entryID In arrEntryIDs
             Set item = Application.Session.GetItemFromID(entryID)
             If TypeName(item) = "MailItem" Then
                 CheckContentAfterSignature item
             End If
         Next
     End Sub
     

  这个脚本会自动识别签名位置，检查后面是否有非空白的有效内容，有的话就弹出提醒，还能标记邮件方便后续查看。

• 借助邮件管理插件实现智能检测
  如果你不想自己折腾规则或代码，可以试试第三方邮件效率插件，不少插件自带邮件结构识别功能，能区分正文、签名、转发/回复内容，当签名后还有额外内容时会自动高亮或弹窗提醒。记得选择Outlook官方商店认证的插件，避免安全风险。

备注：内容来源于stack exchange，提问作者Adam L. S.