Sub DruckenMitBcc()
Dim olMail As Object
Dim olProp As Outlook.UserProperty

  On Error Resume Next

  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer" 'Ordnermarkierung
      Set olMail = Application.ActiveExplorer _
          .Selection.Item(1)
    Case "Inspector" 'geöffnetes Fenster
      Set olMail = Application.ActiveInspector _
          .CurrentItem
    Case Else
      'andere Fälle ausschließen
  End Select

  If olMail.MessageClass = "IPM.Note" Then
    Set olProp = olMail _
        .UserProperties("BCC-Empfänger")
    If olProp Is Nothing Then
      Set olProp = olMail.UserProperties _
          .Add("BCC-Empfänger", olText, False)
    End If

    olProp.Value = olMail.BCC
    olMail.PrintOut

    'UserProperty nach dem Drucken wieder löschen
    olProp.Delete
    olMail.Save
  End If

  Set olProp = Nothing
  Set olMail = Nothing
End Sub