Question

我目前在一整天都在多个邮箱中工作，我希望创建一个宏来将抄送给我的个人邮箱以及当时我在其中的邮箱。

我能够创建一个宏来将CC发送到我的个人邮箱，但是我对如何将其发送到当时正在使用的Box中的CC感到困惑。

下面是我目前用于宏的代码，是否有人知道如何将其更改为也可以在我当前正在使用的CC盒中使用

？

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

Outlook中的VBA宏CC到特定邮箱

3 个答案: