email - 如果写一封新电子邮件，请运行 VBA scipt

Question

我写了一个VBA：

Sub ToChange()
Dim olApp As Outlook.Application
Dim objNachrich As MailItem 

Set olApp = New Outlook.Application
Set objNachrich = olApp.CreateItem(0)
Set Mail = objNachrich

Mail.SentOnBehalfOfName = "Info"
Mail.Display
End Sub

它将“来自”属性更改为“信息”，如果我启动它，它可以正常工作。

但是，如果我打开一个窗口来写一封新电子邮件，我想自动运行它。有没有可能？

Answer 1

好，

您可以在菜单栏上添加一个新按钮；）

Answer 2

如果我理解正确，您可以在表单的 Load 事件上调用此过程。