Outlook VBAを使用してbcc受信者を追加する

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

私は何をやってしまったことはダウン直前Set newItem = NothingからnewItem.Displayを動いていた：それは非常に非効率的であるとOutlookが応答しなくなる原因を除いて、私は、これまでに次のようしています。これは最も効率的な解決策ではないかもしれませんが、クラッシュを起こすことなくジョブを完了させます。