Hoe kan je in Outlook automatisch al je verzonden e-mails naar iemand in bcc doorsturen?

Als je een e-mailbericht verstuurt en je wil steeds dat een ander e-mail adres er een kopij van ontvangt zonder dat dit e-mail adres gemeld wordt aan de andere ontvanger(s), dien je de bcc (blind carbon copy) functie te gebruiken. Maar als je iemand in bcc wil zetten, moet je telkens manueel het bcc veld te voorschijn halen en telkens een ontvanger ingeven. Om deze manuele handelingen overbodig te maken toon ik in dit artikel hoe je Outlook 2007, 2010 en 2013 kan aanpassen om automatisch al je verzonden e-mails in bcc naar een bepaald e-mailadres door te sturen.

1. Het eerste wat je moet doen is het Visual Basic Editor programma inschakelen.

In Outlook 2007, klik op de Tools tab > Macro > Visual Basic Editor.

In outlook 2010 en 2013, klik op File (Bestand) > Options (Opties). In het Outlook Options scherm, klik op Customize Ribbon (Lint aanpassen), in het rechtse vak zet je een vinkje voor het vakje Developer (Ontwikkelaars), en klik daarna op de OK knop.

2. Nadat je dit gedaan hebt zal nu de Developer (Ontwikkelaars) tab op je lintwerkbalk zichtbaar zijn. Ga naar de Developer (Ontwikkelaars) tab, en links zal je de Visual Basic knop zien en klik er op.

Tip: Je kan de Visual Basic Editor ook inschakelen door op Alt+F11 te drukken.

3. Dubbelklik nu op Project 1 > Microsoft Office Outlook >ThisOutlookSession om de VBA editor te openen. In het venster dat nu geopend is, selecteer de Application option in de drop-down box. Je scherm zal er dan als volgt uitzien:

4. Tussen “Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean)” en “End Sub”, knip en plak de volgende codes (blauwe tekstlijnen) tussen deze twee lijnen.

VBA code:

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 = "SomeEmailAddress@domain.com"
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 = NothingEnd Sub

5. Ga nu naar de “SomeEmailAddress@domain.com” lijn, en vervang dit e-mail adres door het e-mail adres van de persoon naar wie je je verzonden mail in bcc wil doorsturen. Eenmaal dit e-mail adres ingevuld, klik je op de Save knop om de code te bewaren. Sluit daarna de editor.

Opmerking:

Enkel voor Outlook 2013 dien je hierna nog de volgende stappen uit te voeren:

a. Ga naar de Developer (Ontwikkelaars) tab, and klik vervolgens op de Macro Security groep.

b. Als het Trust Center venster opent, klik dan links op Macros Settings, zet een bolletje voor de Enable all macros (not recommended; potentially dangerous code can run) optie, en klik daarna op OK.

c. Nu nog enkel het Outlook programma afsluiten en opnieuw opstarten en je bent klaar.

6.Vanaf nu zal er, telkens als je een e-mail verzend, een kopij in bcc verzonden worden naar het door jou opgegeven e-mail adres.

Tip: Als geen mails in bcc meer wil versturen, open dan opnieuw de Visual Basic Editor en verwijder de complete VBA code in de editor en sluit de editor. Daarna zullen er geen mails meer in bcc verzonden worden.

Originele bron: http://www.extendoffice.com/documents/outlook/1107-outlook-auto-bcc.html