0

我写了一个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

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

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

4

2 回答 2

0

好，

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

于 2013-06-18T21:28:33.477 回答
0

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

于 2013-06-19T00:25:15.747 回答