vba - 如何在每封电子邮件的开头添加文本？

Question

我想在通过 Outlook 发送的每封电子邮件的开头添加一个文本。我找到了一些示例，但没有在电子邮件的特定开头添加文本。

我想在电子邮件的开头添加一个机密标记。它会是这样的：

发送电子邮件之前：

亲爱的汤姆，
请发送报告

后：

[机密]
亲爱的汤姆，
请发送报告

标签： vbaoutlook

Answer 1

这行得通。谢谢，非常有用，它可以满足我的需求。我添加了额外的代码来将光标移动到电子邮件的开头。

'Set cursor to beggining
Dim Inspector As Outlook.Inspector
Dim wdDoc As Word.Document
Dim Range As Word.Range
Dim Pos As Long
Dim Selection As Word.Selection
Set Inspector = Application.ActiveInspector
Set wdDoc = Inspector.WordEditor
If Not wdDoc Is Nothing Then
    Pos = wdDoc.Range.Start
    Set Range = wdDoc.Range(Pos, Pos)
    Range.Select
End If
Set Inspector = Nothing
Set wdDoc = Nothing
'ADD TEXT MARK
Set Inspector = Application.ActiveInspector()
Set wdDoc = Inspector.WordEditor
Set Selection = wdDoc.Application.Selection
    Selection.InsertAfter Format("[CONFIDENTIAL]" & Chr(13))
Set Inspector = Nothing
Set wdDoc = Nothing
Set Selection = Nothing