Question

对于像你们这样的开发人员，请通过一个简单的问题向您提供支持。

我想使用VB宏在通过Outlook发送的每封电子邮件的开头添加文本。我发现了一些代码示例，但没有一个在电子邮件的特定开头添加文本。

在发送电子邮件之前和之后都是这样：

在发送电子邮件之前：亲爱的汤姆，请发送报告

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

我只想在电子邮件的开头添加一个机密标记。谢谢您的宝贵时间。

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

Outlook将文本添加到正文

1 个答案: