vba outlook Получатели

Question

Оба адреса электронной почты из ячеек A1 и A2 отображаются в «на» в Outlook. Но «cc» пуст.

Как установить ячейку A2 на «cc»?

Ввод и вывод:

Ячейка A1 является адрес электронной почты, который я хочу, чтобы «отправить».

Сотовый A2 - это адрес электронной почты, который я хочу «CC to».

VBA код:

Sub Button1_Click() 


Const olMailItem As Long = 0 
Const olTo As Long = 1 
Const olCC As Long = 2 
Const olBCC As Long = 3 

Dim OutApp As Object 
Dim OutMail As Object 
Dim myRecipient As Object 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(olMailItem) 



On Error Resume Next 
With OutMail 

    .To = OutMail.Recipients.Add(Range("A1")) 
    myRecipient.Type = olTo 

    .CC = OutMail.Recipients.Add(Range("A2")) 
    myRecipient.Type = olCC 

    .BCC = "" 
    .Subject = "This is the Subject line" 

End With 
On Error GoTo 0 


Set OutMail = Nothing 
Set OutApp = Nothing 

End Sub 

Answer 1

Вы не правильно настроить типы получателей:

With OutMail 

    Set myRecipient = .recipients.Add(Range("A1")) 
    myRecipient.Type = olTo 

    Set myRecipient = .recipients.Add(Range("A2")) 
    myRecipient.Type = olCC 

    .BCC = "" 
    .Subject = "This is the Subject line" 

End With