Přejít k hlavnímu obsahu

Jak automaticky bcc všechny e-maily, které odesíláte v aplikaci Outlook?

Když posíláte e-mailovou zprávu a máte stálého tajného příjemce, ale nechcete, aby ostatní příjemci viděli jeho adresu, měli byste použít funkci BCC. Ale když potřebujeme bcc, musíme ručně zobrazit pole bcc a vybrat pro něj kontakt. Abyste se vyhnuli těmto manuálním operacím, v následujícím článku vám ukážeme, jak upravit outlook tak, aby automaticky odesílal e-mailové adresy bcc na všechny odeslané e-maily.


Výchozí automatický bcc v aplikaci Outlook pomocí VBA

Níže můžete použít kód VBA ke konfiguraci pravidla automatického skrytí v aplikaci Outlook. Postupujte prosím následovně:

1. zmáčkni Další + F11 současně otevřete okno Microsoft Visual Basic pro aplikace.

2. Poklepejte na ikonu ThisOutlookSessionv podokně Projekt a poté vložte pod kód VBA do úvodního okna. Viz snímek obrazovky níže:

Kód VBA: Automatický bcc při odesílání všech e-mailů

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 = ""
    
    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

Poznámka: Nahraďte prosím "" ve výše uvedeném kódu s e-mailovou adresou, na kterou budete odesílat kopie.

3. Uložte kód VBA a zavřete okno Microsoft Visual Basic for Applications.

Od této chvíle nemusíte vyplňovat adresu do pole Skrytá kopie. Když odešlete e-mail z aplikace Outlook, automaticky se předá vašemu požadovanému příjemci, protože kód VBA provádí.


Automaticky bcc v Outlooku pomocí Kutools pro Outlook

Výše uvedený kód VBA je pro nás začátečníky obtížný a nepříjemný, zde je jednoduchý a rychlý nástroj - Kutools pro Outlook abychom vám pomohli automaticky skrýt všechny e-maily nebo určené e-maily, které odesíláte v Outlooku.

Kutools pro aplikaci Outlook: Ultimate Outlook Toolkit s více než 100 praktickými nástroji. Vyzkoušejte to ZDARMA na 60 dní, bez omezení, bez starostí!   Čtěte více...   Začněte bezplatnou zkušební verzi hned teď!

Po instalaci aplikace Kutools pro aplikaci Outlook postupujte takto:

1, klikněte Kutools > Auto CC / BCC > Správce pravidel, viz screenshot:

2. V Auto CC / BCC Manager , klepněte na tlačítko OK Nový .

3. V Průvodci pravidly zadejte podmínky, podle kterých budete filtrovat e-maily. V mém případě zaškrtnu se specifickými slovy v těle možnost a potom klikněte na podtržený text konkrétní slova jej upravit.

4. V dialogu Text obsahuje klikněte na Nový tlačítko pro přidání nových slov.

5. V dialogovém okně Hledat text zadejte slovo do Nový vyhledávací text pole, klikněte na přidat a klepněte na tlačítko OK .
Tipy: Chcete-li přidat více slov současně, musíte do slova napsat jedno slovo Nový vyhledávací text a klikněte na tlačítko přidat tlačítko, opakujte tuto operaci a postupně přidávejte další slova a nakonec klikněte na OK .

6. Nyní se vrací zpět do dialogu Text obsahuje. V případě potřeby můžete kliknout na ikonu Nový Klepněte na tlačítko a přidejte další slova podle potřeby a poté je uložte kliknutím na tlačítko OK.
Tipy: Pokud přidáte více slov do jednoho vyhledávacího textového pole současně, vztah mezi těmito slovy je „A AUTOMATIZACI". Pokud přidáte více slov kliknutím na Nový tlačítko postupně, vztah mezi těmito slovy je „OR".

7. Poté se vrátí do průvodce pravidly, podle potřeby zadejte další podmínky a klikněte na další .

8. V druhém Průvodci pravidly zadejte výjimky nebo nekontrolujte žádné výjimky podle potřeby a klikněte na další .

9. Ve třetím Průvodci pravidly zadejte do pole Název tohoto nového pravidla Skrytá kopie Název pravidla do pole zadejte popis pravidla do pole Pravidlo poznámky pole, klikněte na Příjemce tlačítko pro přidání příjemců kopie nebo skryté kopie, zaškrtněte možnosti spuštění v Nastavit možnosti pravidla a klepněte na tlačítko OK .

10. Ve správci Auto CC / BCC zkontrolujte, zda je zaškrtnuto nové pravidlo Kopie / Skrytá kopie, a zavřete dialog kliknutím na tlačítko OK.

11. Pokračujte kliknutím na Kutools> CC / BCC> Povolit automatické CC / BCC v hlavním rozhraní aplikace Outlook a povolit pravidlo.

A klikněte na tlačítko OK tlačítko ve vyskakovacím dialogu pro potvrzení.

Zatím bylo vytvořeno pravidlo Bcc, když posíláte e-mail, stejná zpráva bude odeslána příjemci bcc současně.

Poznámky:
(1) Pomocí této funkce můžete nastavit vždy CC pravidla také.
(2) Pomocí tohoto nástroje můžete vytvořit více pravidel podle svých potřeb.
(3) Chcete-li pravidla zavřít, můžete kliknout Povolit automatické CC / BCCa všechna pravidla nebudou fungovat. Také můžete zrušit zaškrtnutí názvu pravidel v Auto CC / BCC Manager Dialogové okno zakáže některá zadaná pravidla.


Související článek:

Jak se v aplikaci Outlook vždy automaticky kopírovat?


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

Comments (53)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to send mail BCC & recipient recieve mail with Dear <Recipient>
This comment was minimized by the moderator on the site
Confirming this works for Outlook 2020, I just have 1 issue. How can I auto bcc FROM multiple accounts? My work issues us (2) separate emails different domains. Currently, when I send an email from both, I get the copy to the email entered in the code. I would like separate copies from whichever email is sending it. Any solutions?
This comment was minimized by the moderator on the site
How to set it up auto bcc to multiple email addresses?
in outlook 2013 only had to add an additional line shown as below
strBcc = ""
strBcc = ""
But outlook 2016 only took 2nd line to add onto bcc.
This comment was minimized by the moderator on the site
Try Kutools for Outlook's Auto Bcc feature!
This comment was minimized by the moderator on the site
same problem here, do u have a solution so far?
This comment was minimized by the moderator on the site
The VBA code works great. Thanks, but what if I want to bcc still, but only when sending to one specific email recipient?
This comment was minimized by the moderator on the site
Great job guyz. Thank you . Worked for Outlook 2016 . Wonder how can i check the From to Field in order to autobcc only from one account. BR Chris
This comment was minimized by the moderator on the site
Works great all day in Outlook 2010. Next day, it stopped working. I followed the instructions that SILUVIA ZHOU gave about macro security (without having to re-do the script) and it appears to work again.
This comment was minimized by the moderator on the site
Hi. Works great for my laptop and office PC but after using it for about 1 day, or sending about 20+ emails, this feature just doesn't work anymore on both my desktop and laptop. Anyone can help me out? I'm using outlook 2010 and 2013. Thanks!
This comment was minimized by the moderator on the site
Nice, very useful for me, Thanks
This comment was minimized by the moderator on the site
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 = "" ElseIf Item.Subject = "ref" Then strBcc = "" ElseIf Item.Subject = "REF" Then strBcc = "" 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
This comment was minimized by the moderator on the site
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 = ""[/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.
This comment was minimized by the moderator on the site
Can we make this work with sent items that have attachments.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations