vba - Outlook VBA 插入文本行

Question

我正在尝试编写一段代码 (vba)，在我正在撰写的电子邮件(打开电子邮件项目)中插入一行。下面的代码是我迈出的第一步

什么有效

1. 如果我直接从模块(开发窗口)运行代码，则会插入文本。

什么不起作用

1. 如果我在我的功能区中添加一个宏 (vba) 并尝试运行它，没有任何反应。代码似乎只能直接在模块(播放按钮)中工作。

我想要什么

1. 在事件/打开项目中从功能区运行宏 (vba)； 解决方案 = 模块名称不能包含同名的宏。
2. 将字体颜色设置为例如绿色；
3. 很高兴:在页面底部插入文本。

代码:

Sub InsertText()
Dim sText As String

sText = "Text to insert"


On Error GoTo ErrHandler
If TypeName(ActiveWindow) = "Inspector" Then
    If ActiveInspector.IsWordMail And ActiveInspector.EditorType = olEditorWord Then
        ActiveInspector.WordEditor.Application.Selection.TypeText sText
    End If
End If
Exit Sub
ErrHandler:
Beep
End Sub

Answer 1

当您将其添加到功能区时，您是将其添加到邮件项功能区还是 outlook 功能区？这会让人感到困惑，所以我将主要使用图片来描述它。

这是它添加到邮件项目功能区并且工作正常:-

如果我将按钮放在 Outlook 栏上，按下按钮不起作用:-

这是因为只要我按下 Outlook 功能区上的按钮，邮件项目就不再是事件窗口。

为了确认，要将按钮添加到邮件项目窗口，请右键单击邮件项目的功能区并选择“自定义功能区...”

按右下角的“新标签”按钮，将“选择命令来自:”更改为“宏”，然后从其下方的列表中单击相关宏。最后，单击“添加 >>”，然后单击“确定”。