outlook vba将收件人添加到发送电子邮件

我需要在每个新邮件草稿的抄送字段中添加一个特定的电子邮件地址。地址需要显示在“抄送”字段中，以便在需要时将其删除。如何在VBA中执行此操作？现有代码提示添加尚未抄送的人员，这是对每封电子邮件不必要的额外点击

---

请帮忙，谢谢

捕获

Inspector.NewInspector

事件，使用

Inspector.CurrentItem

检索当前项目，调用

MailItem.Recipients.Add

Public WithEvents oInspectors As Outlook.Inspectors

Private Sub Application_Startup()
  Set oInspectors = Application.Inspectors
End Sub

Public Sub oInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
  Dim msg As Object
  Set msg = Inspector.CurrentItem
  If (msg.Class = 43) And (Not msg.Sent) Then
    Dim recip
    Set recip = msg.Recipients.Add("user@company.com")
    recip.Type = olCC
    recip.Resolve
  End If
End Sub

---

我真的很抱歉，但这超出了我的理解范围。是否有一个简单的VBA脚本可以添加到此OutlookSession？我原来的剧本是别人写的我老板说不要分发。不知道为什么，但我喜欢我的工作哈哈。这仍然是一个可以创建的简单脚本吗？我将深入学习如何编写VBA来完成这项工作（可能有点过头了）。这里的人告诉你如何更改现有代码肯定比从头开始编写代码更容易。如果你知道一种自动抄送特定地址的简单方法，那就太棒了。在这一点上，我愿意学习更多VBA，这里的建议也很感谢。