(Outlook) Automatisch jede Mail auch an BCC Adresse senden

Ab Outlook 2003 kann man per VB-Script die Anwendung veranlassen jede gesendete E-Mail auch an eine definierte BCC Adresse zu senden. Kopieren Sie folgendes VB_Script in das »ThisOutlookSession« Modul (Menü: Extras → Makro → Visual Basic Editor):

ThisOutlookSession

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
    On Error Resume Next
 
    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = "irgendwer@irgendwo.de"
 
    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve 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
 
    Set objRecip = Nothing
End Sub

Note: Ändern Sie die im Skript hinterlegt E-Mail Adresse »irgendwer@irgendwo.de« in die gewünschte Adresse!

Dieser Vorgang ist für den Outlook-Benutzer verborgen. Es kann in Outlook nicht nachvollzogen werden, dass die E-Mails noch an eine weitere Adresse gesendet werden. Informieren Sie bitte deshalb die Benutzer dementsprechend…

pronto 2012/01/16 16:06