Question

我想在回复，转发和新电子邮件中使用特定地址自动填充BCC字段。

我见过一个类似的功能，可以无声地执行＆＃34; - 即，一旦发送＆＃39;添加BCC地址。按钮已被按下。

我希望能够在必要时删除/更改地址。

从用户的角度来看：点击回复/转发/新电子邮件，然后打开消息窗口并填写BCC字段。

我对VBA的了解有些限制，所以如果你能具体说明放置代码的位置，我会很感激。

Answer 1

当您单击“新电子邮件”按钮和回复电子邮件时，此类代码放入ThisOutlookSession模块将会触发。从那里可以轻松地在各个领域中插入您需要的任何内容。您需要重新启动Outlook或手动调用Application_Startup（）以使其第一次激活。

Option Explicit

Public WithEvents myInspectors As Outlook.Inspectors
Public WithEvents myExplorer As Outlook.Explorer

Private Sub Application_Startup()
  Set myInspectors = Application.Inspectors
  Set myExplorer = Application.ActiveExplorer
End Sub

Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector)
  If TypeName(Inspector.CurrentItem) = "MailItem" Then
    'MsgBox "new mail"
    Inspector.CurrentItem.BCC = "joe.doe@domain.com"
  End If
End Sub

Private Sub myExplorer_InlineResponse(ByVal Item As Object)
    'MsgBox "reply"
    Item.BCC = "jane.dane@domain.com"
End Sub

自动填充BCC地址

1 个答案: