Ajouter des destinataires bcc utilisant Outlook VBA

Question

Je dois ajouter des destinataires bcc à un courrier électronique chargé à partir d'un modèle. Les destinataires doivent être tous les contacts dans une certaine catégorie. Je donne les résultats suivants jusqu'à présent, sauf qu'il est extrêmement inefficace et provoque Outlook pour ne pas répondre:

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

Ce que je fini par faire se déplaçait newItem.Display vers le bas juste avant Set newItem = Nothing. Ce n'est peut-être pas la solution la plus efficace, mais cela permet de faire le travail sans causer de plantage.