BCC zu E-Mail mit VBA in Outlook 2013 hinzufügen

Question

Ich kann nicht den richtigen VBA-Code für Outlook 2013 herausfinden, um eine feste E-Mail-Adresse zum BCC-Feld einer E-Mail hinzuzufügen, während es zur Bearbeitung geöffnet ist. Ich habe den folgenden Code, der die E-Mail erstellt und dann den BCC setzt.

Ich möchte BCC zu E-Mails, die ich antworte, hinzufügen, so dass die Nachricht bereits in 'Entwurf' Form sein wird.

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 

* Update *

ich die große Beratung von Dmitry implementiert

Mein Code lautet nun:

Sub BCC() 
Dim objRecip As Recipient 
Set oMsg = Application.ActiveInspector.CurrentItem 

With oMsg 

Set objRecip = item.Recipients.add("XXX@example.com") 
objRecip.Type = olBCC 
objRecip.Resolve 

End With 

Set oMsg = Nothing 

End sub 

Allerdings, wenn ich versuche, es zu laufen ich eine bekommen Fehler "Laufzeitfehler '424' Objekt erforderlich" und es markiert die Zeile:

Set objRecip = item.Recipients.Add("xxx@example.com") 

Answer 1

Verwenden Sie anstelle von Application.CreateItem(olMailItem)Application.ActiveInspector.CurrentItem. Wenn Sie die BCC-Eigenschaft festlegen, löschen Sie alle vorhandenen BCC-Empfänger. Verwenden Sie Recipients.Add (Sie haben es oben kommentiert) für jede E-Mail-Adresse.