如何抄送多个共享邮箱的当前共享邮箱？

Question

我在多个邮箱工作。

我可以设置一个宏来抄送我的个人邮箱。

我怎样才能改变这段代码来抄送我目前正在使用的共享邮箱？

Public Sub SendAll()
Dim mail As Outlook.MailItem
Set mail = Application.ActiveInspector.CurrentItem
mail.CC = mail.CC & "*Personal E-mail here*"
mail.Send
End Sub

Answer 1

尝尝这个

交换帐户

Mail.CC = Application.Session.CurrentUser.AddressEntry.GetExchangeUser().PrimarySmtpAddress

Answer 2

只需添加";“符号

假设你的电子邮件地址是："your@email.com“

因此，您的代码在稍作更改后将如下所示：

Public Sub SendAll()
Dim mail As Outlook.MailItem
Set mail = Application.ActiveInspector.CurrentItem
mail.CC = mail.CC & ";your@email.com"
mail.Send
End Sub

Answer 3

我假设您发送的电子邮件的发件人地址是您工作时使用的共享邮箱

Public Sub SendAll()
Dim mail As Outlook.MailItem
Set mail = Application.ActiveInspector.CurrentItem
mail.CC = mail.Sender & ";your@email.com"
mail.Send
End Sub