Добавить получателей BCC с помощью Outlook VBA

Question

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

Sub Distribute_Newsletter()
Set newItem = Application.CreateItemFromTemplate("P:\Subscription Templates\subscription template.oft")
newItem.Display

Set oNS = Application.GetNamespace("MAPI")
Set oContacts = oNS.Folders(1).Folders("Contacts")
Dim emailAddress As String

For Each oContactItem In oContacts.Items
    If oContactItem.Class = olContact Then
        emailAddress = oContactItem.Email1Address
        If Not emailAddress = "" Then 'And oContactItem.Categories
            Set objRecip = newItem.Recipients.Add(emailAddress)
            objRecip.Type = olBCC
        End If
    End If
Next

Set oNS = Nothing
Set oContacts = Nothing
Set objRecip = Nothing
Set newItem = Nothing
End Sub

Answer 1

То, что я закончил делать, было двигаться newItem.Display вплоть до незадолго до Set newItem = Nothing. Анкет Это может быть не самое эффективное решение, но оно выполняет работу, не вызывая аварию.