Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe automatisch alle e-mails die u in Outlook verzendt, bccen?

Wanneer u een e-mailbericht verzendt en u hebt een permanent geheime ontvanger maar niet wilt dat de andere ontvangers zijn of haar adres zien, moet u de bcc-functie gebruiken. Maar wanneer we bcc moeten gebruiken, moeten we het bcc-veld handmatig weergeven en een contact ervoor selecteren. Om deze handmatige bewerkingen te vermijden, zal het volgende artikel laten zien hoe u Outlook kunt wijzigen om automatisch een e-mailadres te coderen voor alle e-mails die u verzendt.

Standaard automatische bcc in Outlook met behulp van VBA

Auto bcc in Outlook met behulp van Kutools voor Outlook

Auto Cc of Bcc elke uitgaande e-mail naar bepaalde ontvangers (ikzelf) in Outlook

Geleverd door Kutools voor Outlook, Auto CC / BCC-functie. Klik voor onbeperkte gratis 60-dagen op proef!
auto cc voor mezelf

Kutools for Outlook: 100 + nieuwe geavanceerde hulpmiddelen voor Outlook.
Office Tab: Tabbladen bewerken en browsen in Office inschakelen, Net als Chrome, Firefox, IE 8 / 9 / 10.
Klassiek menu: Breng oude menu's en werkbalken terug naar Office 2007, 2010, 2013, 2016 en 2019.

pijl blauwe rechterbel Standaard auto bcc in outlook met behulp van VBA

U kunt onderstaande VBA-code toepassen om de automatische Bcc-regel in Outlook te configureren. Ga als volgt te werk:

1. druk de anders + F11 toetsen tegelijkertijd om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik op de ThisOutlookSessionin het Project-paneel en plak dan VBA-code in het openingsvenster. Zie screenshot hieronder:

VBA-code: Auto bcc bij het verzenden van alle e-mails

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 = Nothing
End Sub

Let op: Vervang de "SomeEmailAddress@domain.com" in bovenstaande code met het e-mailadres waar je naartoe gaat.

3. Sla de VBA-code op en sluit het venster Microsoft Visual Basic for Applications.

Vanaf nu hoeft u het adres in het veld Bcc niet in te vullen. Wanneer u e-mail verzendt vanuit uw Outlook, wordt deze automatisch naar de gewenste ontvanger verzonden terwijl de VBA-code wordt uitgevoerd.


pijl blauwe rechterbel Auto bcc in Outlook met behulp van Kutools voor Outlook

De bovenstaande VBA-code is wat moeilijk en lastig voor ons beginners, hier is een eenvoudige en snelle tool-Kutools for Outlook om u te helpen alle e-mails of gespecificeerde e-mails die u in Outlook verzendt, automatisch te blokkeren.

Kutools for Outlook - Met meer dan 20 handige Outlook add-ins, gratis om te proberen zonder beperking in 60 dagen

Na het installeren van Kutools voor Outlook, doe je het volgende:

1. Klikken Kutools > Auto CC / BCC > Schakel CC / BCC in (of Auto CC / BCC Manager), zie screenshot:
doc auto bcc kto 1

2. In de Auto CC / BCC Manager dialoogvenster, klik Nieuw knop. Zie screenshot hieronder:

3. Typ in het dialoogvenster Automatisch CC / BCC een naam voor deze nieuwe Bcc-regel in de Regelnaam vakje, controleer de Alle uitje e-mail optie in het filters sectie en klik op de ontvangers knop. Zie screenshot hierboven:

4. Vervolgens kunt u uw e-mailadres invoeren dat u wilt bccen in de Bcc -> tekstvak, of u kunt het adres dat u wilt bcc selecteren in de lijst en klikken Bcc -> om het adres in het overeenkomstige veld te plaatsen en klik op de OK knop. Zie screenshot hieronder:

5. En nu keert het terug naar de Auto CC / BCC dialoogvenster, het opgegeven adres dat u wilt bcc is ingevoegd in de Naam CC / BCC-ontvanger vak, klik op de OK knop om het configureren op te slaan. En klik vervolgens op de OK knop in het dialoogvenster Auto CC / Bcc Manager. Zie screenshot hieronder:

Tot dusverre is de bcc-regel gemaakt, wanneer u een e-mail verzendt, wordt hetzelfde bericht tegelijkertijd naar de bcc-ontvanger verzonden, en deze regel wordt toegepast op alle accounts in uw Outlook.

Notes:
(1) Met deze functie kunt u de altijd instellen CC regels ook.
(2) U kunt met deze tool meerdere regels maken die aan uw behoeften voldoen.
(3) Als u de regels wilt sluiten, kunt u klikken Schakel CC / BCC inen alle regels werken niet. U kunt ook de naam van de regel uit de selectie verwijderen Auto CC / BCC Manager dialoogvenster om bepaalde gespecificeerde regels uit te schakelen.


pijl blauwe rechterbelDemo: Auto bcc in Outlook met Kutools voor Outlook

Tip: In deze video, Kutools tabblad is toegevoegd door Kutools for Outlook. Als je het nodig hebt, klik dan hier om een ​​gratis 60-dag uit te proberen zonder beperking!


pijl blauwe rechterbelGerelateerd artikel:

Hoe kan ik mezelf altijd automatisch in Outlook coderen?



Kutools for Outlook

Meer dan 100 geavanceerde functies voor Outlook 2010, 2013, 2016, 2019 en 365

screen shot kutools voor outlook tiny voor banner 201812

Meer functies | Gratis download | Alleen $ 39.00 voor honderden functies

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Adhie Sastro Sadewo · 2 years ago
    Nice, very useful for me, Thanks
  • To post as a guest, your comment is unpublished.
    Andy · 2 years ago
    Hi guys,

    I have tried this code and whilst it does work, it only CC's and not BCC's. I only want emails that contain Ref, REF or ref in the subject line to be BCC'd.

    Is anyone able to check that I have it constructed correctly please?

    *******

    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    Dim Msg As Outlook.MailItem
    Dim onsMapi As Outlook.NameSpace
    Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String

    If Item.Subject = "Ref" Then
    strBcc = "email@email.com"
    ElseIf Item.Subject = "ref" Then
    strBcc = "email@email.com"
    ElseIf Item.Subject = "REF" Then
    strBcc = "email@email.com"
    End If

    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
    • To post as a guest, your comment is unpublished.
      Joe · 2 years ago
      If the "ref" is the only thing in your subject, then it should work fine. Although I would make a few small changes. If you put "Option Compare Text" above your first line (outside the sub) then when you're doing the comparison for your "If" statement, upper and lower case letters will be considered the same. So ref=REF=Ref=rEf=REf, etc. Then you can simplify your conditional to:
      [quote]If Item.Subject = "ref" then strBcc = "email@email.com"[/quote]

      Personally, I would also add an [else strBcc = ""] just to cover your bases.

      Now, if you want to BCC emails that contain "ref" anywhere in the subject, you can try:
      [quote]If instr(Item.Subject,"ref",1) 0[/quote]

      The instr method searches the subject for "ref" and returns a number representing the character in the subject where "ref" starts. If it doesn't find "ref", it returns a 0. A disadvantage of using this method is that you may get some false positives (e.g. the subject contains the word "prefer").

      If you want all emails with subjects that start with "ref" with anything following it, then you can use the following:
      [quote]If instr(Item.Subject,"ref",1) = 1[/quote]

      This is the same as the last one, except instead of getting all emails whose subjects contain "ref" anywhere, you'll only get emails whose subjects contain "ref" that starts with the first character.
  • To post as a guest, your comment is unpublished.
    Keshav · 3 years ago
    Can we make this work with sent items that have attachments.
  • To post as a guest, your comment is unpublished.
    SONU RAJ · 3 years ago
    Bravo!!!! Working great
  • To post as a guest, your comment is unpublished.
    JMax · 3 years ago
    Works great but after the message sends I get an extra blank message that sits in my Outbox (sometimes it has the recipient's email address). So if I send 12 msgs, I see 12 msgs in my Sent box, but is there a way to eliminate the "ghost" message just sitting in the Outbox?