Bei E-Mail-Konten in Outlook automatische Blindkopie verschicken

 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
Dim strAccountName As String
strBcc = "BCC-EMPFÄNGER@DOMAIN.TLD"  
strAccountName = "EMAIL-ADRESSE_1@DOMAIN.TLD"  
If strAccountName = Item.SendUsingAccount Then  
On Error Resume Next
 Set objRecip = Item.Recipients.Add(strBcc)
 If Err = 287 Then
  strMsg = "Could not add a Bcc recipient " & _  
  "because the user said No to the security prompt." & _  
  " Do you want still to send the message?"  
  res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
  "Security Prompt Cancelled")  
  If res = vbNo Then
   Cancel = True
  Else
   objRecip.Delete
  End If
  Err.Clear
 Else
  objRecip.Type = olBCC
  objRecip.Resolve
  If Not objRecip.Resolved Then
   strMsg = "Could not resolve the Bcc recipient. " & _  
   "Do you want still to send the message?"  
   res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
   "Could Not Resolve Bcc Recipient")  
   If res = vbNo Then
    Cancel = True
   End If
  End If
 End If
End If
Set objRecip = Nothing
End Sub