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功能区上的按钮，邮件项就不再是活动窗口。

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

按下右下角的“新标签”按钮，将“选择命令：”更改为“宏”，然后从下面的列表中单击相关宏。最后，点击“添加＆gt; ＆GT;”然后'确定'。