在 Outlook 中追加主题标题（VBA）-解网

问：

基本上，我们有一个规则设置，用于在传入消息的正文中检测到代码字时运行脚本。该脚本将在当前主题标题后面附加一个单词。例如，Before： “Test Message”， After： “Dept - Test Message”。有什么想法吗？

VBA Outlook 追加

Sub RewriteSubject(MyMail As MailItem)

    Dim mailId As String
    Dim outlookNS As Outlook.NameSpace
    Dim myMailItem As Outlook.MailItem

    mailId = MyMail.EntryID
    Set outlookNS = Application.GetNamespace("MAPI")
    Set myMailItem = outlookNS.GetItemFromID(mailId)

    ' Do any detection here

    With myMailItem 
      .Subject = "Dept - " & mailItem.Subject
      .Save
    End With

    Set myMailItem = Nothing
    Set outlookNS = Nothing

End Sub

Sub AppendSubject(MyMail As MailItem)
    Dim strID As String
    Dim mailNS As Outlook.NameSpace
    Dim mailItem As Outlook.MailItem

    strID = MyMail.EntryID
    Set mailNS = Application.GetNamespace("MAPI")
    Set mailItem = mailNS.GetItemFromID(strID)
    mailItem.Subject = "Dept - " & mailItem.Subject
    mailItem.Save

    Set mailItem = Nothing
    Set mailNS = Nothing
End Sub

我们错过了什么吗？编辑：哎呀！您已经用完整的脚本回答了我们的问题......谢谢！

上一个：在 Word 中自动运行宏 OnSave

下一个：合并行/连接行

在 Outlook 中追加主题标题（VBA）

Append Subject Header in Outlook (VBA)

评论

评论

在 Outlook 中追加主题标题 （VBA）

Append Subject Header in Outlook (VBA)

评论

评论

在 Outlook 中追加主题标题（VBA）