Как добавить CC в текущий макрос для ответа с вложениями - PullRequest
Новая
       6

Как добавить CC в текущий макрос для ответа с вложениями

0 голосов
/ 18 октября 2018

Я пытаюсь изменить свой макрос для Ответить всем с вложениями , чтобы добавить также в CC мою электронную почту боссов, потому что мне приходится делать это часто.

Я пытался включитьэто из здесь или здесь но я не Pro и получаю ошибку 424: (

    Set objRecip = objMail.Recipients.Add("theboss@thecompany.com")
    oRecip.Type = olCC

не могли бы вы помочь изменить текущий макрос, чтобы добавить письмоадрес для CC?

мой текущий макрос 

Sub ReplyWithAttachments()
Dim oReply As Outlook.MailItem
Dim oItem As Object
Set oItem = GetCurrentItem()
If Not oItem Is Nothing Then
Set oReply = oItem.Reply
CopyAttachments oItem, oReply
oReply.Display
oItem.UnRead = False
End If
Set oReply = Nothing
Set oItem = Nothing
End Sub

Sub ReplyAllWithAttachments()
Dim oReply As Outlook.MailItem
Dim oItem As Object
Set oItem = GetCurrentItem()
If Not oItem Is Nothing Then
Set oReply = oItem.ReplyAll
CopyAttachments oItem, oReply
oReply.Display
oItem.UnRead = False
End If
Set oReply = Nothing
Set oItem = Nothing
End Sub

Function GetCurrentItem()
...
End Function

Sub CopyAttachments
...
End Sub

1 Ответ

0 голосов
/ 18 октября 2018

Я думаю, что самый простой способ сделать это - вытащить список CC из исходного электронного письма и затем добавить его к вашему электронному боссу: 

If Not oItem Is Nothing Then
    Set oReply = oItem.Reply
    oReply.CC = oItem.CC & ";theboss@thecompany.com"
    CopyAttachments
    oReply.Display
    oItem.UnRead = False
End If
...