[[:win|{{ :WindowsLogo.png?40|}}]]
=====(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 >><fc #008000>ThisOutlookSession</fc><< Modul (Menü: Extras -> Makro -> Visual Basic Editor):

<code vb|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</code>

**Note:** Ändern Sie die im Skript hinterlegt E-Mail Adresse >><fc #008000>irgendwer@irgendwo.de</fc><< 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//
{{keywords>outlook auto send bcc}}