Добавить получателя ОЦК в Outlook 2010 от VBS

Question

Я использую Outlook 2010 и я пытаюсь от Visuas Basic сценария не VBA для добавления получателей Bcc

Мой код заключается в следующем. Отправить письмо получателю, но не Bcc. Вы знаете кого-нибудь решение. Обратите внимание, что из VBA работает правильно.

Sub sendcomment_click() 
Set oMsg = Application.CreateItem(olMailItem) 

With oMsg 
    .Recipients.Add("email address") 
    Set objRecip= Item.Recipients.Add("email address") 
    objRecip.Type = olBCC 
    objRecip.Resolve 
    .Subject = "New Comment by" 
    .Body = "sdfsdfsdf" 
    .Send 
End With 

end sub 

Answer 1

Предполагая, что у вас есть адреса электронной почты для BCC, вы можете просто добавить адрес электронной почты, не разрешая его.

Если вы не хотите сначала его разрешить, тогда получите адрес электронной почты, тогда вам потребуется больше кода. Кстати, вы должны определить Const olBCC = 3 за пределами этого подраздела.

Sub sendcomment_click() 
    Set oMsg = Application.CreateItem(olMailItem) 

    With oMsg 
     .Recipients.Add ("email address") 
     'Set objRecip = Item.Recipients.Add("email address") 
     'objRecip.Type = olBCC 
     'objRecip.Resolve 

     ' Join Email addresses by "; " into ".BCC" as string 
     .BCC = "Person.A@somewhere.com; Person.B@somewhere.com" 

     .Subject = "New Comment by" 
     .Body = "sdfsdfsdf" 
     .Display ' Comment this to have it not show up 
     '.Send ' Uncomment this to have it sent automatically 
    End With 

    Set oMsg = Nothing 
End Sub 

Код, выполняемый скриншот: