我正在尝试在通过Outlook 2016发送的每封电子邮件中设置“SentOnBehalfOfName”。也就是说,无论何时我点击“新邮件”,“回复”,“回复全部”或“转发”时。
我尝试了以下方法:
我尝试了以下方法:
Public WithEvents myItem As Outlook.MailItem
Private Sub Application_ItemLoad(ByVal Item As Object)
If (TypeOf Item Is MailItem) Then
Set myItem = Item
End If
End Sub
Private Sub FromField()
With myItem
.SentOnBehalfOfName = "example@aol.com"
.Display
End With
End Sub
Private Sub myItem_Open(Cancel As Boolean)
FromField
End Sub
NewInspector
或Activate
事件中,您可以检查它是否显示为新项目,并设置适当的属性。 - Eugene Astafiev