Question

当从共享邮箱中使用“代表”发送电子邮件时，我试图找到一种自动在“抄送”字段中添加收件人的方法。

我已阅读此答案，但无法正常使用。编辑：一旦输入代码，它就不会执行任何操作。没有错误消息或任何形式的行为。

这就是我在上面建议的代码中放入ThisOutlookSession的内容：

Sub createSentOnBehalf()

    Dim objMsg As MailItem
    Dim myRecipient As Recipient

    Set objMsg = Application.CreateItem(olMailItem)
    objMsg.SentOnBehalfOfName = "email.address.of.the@shared.mailbox"

    Set myRecipient = objMsg.Recipients.Add("TheNameOfTheSharedMAilbox")
    myRecipient.Type = olCC
    objMsg.Recipients.ResolveAll

    objMsg.Display

    Set objMsg = Nothing

End Sub

我对编码很陌生，所以我可能只是误解了脚本。

编辑：

我尝试应用以上注释，但显然缺少某些内容，我尚不知道足够的编码来进行更改。

我希望每次创建新电子邮件SentOnBehalf或将电子邮件回复为SentOnBehalf时在cc中自动添加地址。

我唯一要做的就是创建新电子邮件，发送后，它会在cc字段中创建另一个新的空电子邮件。当我从个人电子邮件发送邮件时，它也会创建此空电子邮件，这也不应该发生。

这就是我尽力应用以上建议的结果（此代码无效）。

私人子Application_ItemSend（ByVal项目为对象，取消为布尔值）

Dim objMsg As MailItem
Dim myRecipient As Recipient

Set objMsg = Application.CreateItem(olMailItem)
objMsg.SentOnBehalfOfName = "email.address.of.the@shared.mailbox"

Set myRecipient = objMsg.Recipients.Add("email.address.of.the@shared.mailbox")
myRecipient.Type = olCC
objMsg.Recipients.ResolveAll

objMsg.Display

Set objMsg = Nothing

结束子

我非常感谢所有帮助。我确实需要更多有关错误在哪里以及解决方法是什么的指针。

谢谢！

从共享邮箱发送“代表”电子邮件时，如何自动抄送特定地址

0 个答案: