Salt la conținutul principal

Cum să bcc automat toate e-mailurile pe care le trimiteți în Outlook?

Când trimiteți un mesaj de e-mail și aveți un destinatar secret permanent, dar nu doriți ca ceilalți destinatari să-i vadă adresa, ar trebui să utilizați funcția bcc. Dar atunci când avem nevoie de bcc, trebuie să afișăm manual câmpul bcc și să selectăm un contact pentru acesta. Pentru a evita aceste operațiuni manuale, următorul articol vă va arăta cum să modificați Outlook pentru a bcc automat o adresă de e-mail pe toate e-mailurile pe care le trimiteți.


Auto bcc implicit în Outlook utilizând VBA

Puteți aplica mai jos codul VBA pentru a configura regula Bcc automată în Outlook. Vă rugăm să faceți următoarele:

1. apasă pe Alt + F11 simultan pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. Faceți dublu clic pe Această sesiune Outlookîn panoul Proiect, apoi lipiți mai jos codul VBA în fereastra de deschidere. Vedeți captura de ecran de mai jos:

Cod VBA: bcc automat la trimiterea tuturor e-mailurilor

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

Notă: Vă rugăm să înlocuiți "" în codul de mai sus cu adresa de e-mail la care vă veți bcc.

3. Salvați codul VBA și închideți fereastra Microsoft Visual Basic pentru aplicații.

De acum înainte, nu mai este nevoie să completați adresa din câmpul Cco. Când trimiteți un e-mail din perspectiva dvs., acesta va fi automat bcc destinatarului dorit pe măsură ce se execută codul VBA.


Auto bcc în Outlook utilizând Kutools pentru Outlook

Codul VBA de mai sus este dificil și supărător pentru noi începătorii, iată un instrument ușor și rapid - Kutools pentru Outlook pentru a vă ajuta să bcc automat toate e-mailurile sau e-mailurile specificate pe care le trimiteți în Outlook.

Kutools pentru Outlook: Setul de instrumente Outlook definitiv cu peste 100 de instrumente la îndemână. Încercați-l GRATUIT timp de 60 de zile, fără limitări, fără griji!   Citeşte mai mult ...   Începeți încercarea gratuită acum!

După instalarea Kutools pentru Outlook, procedați după cum urmează:

1. Clic Kutools > Auto CC / BCC > Manager de reguli, vezi captura de ecran:

2. În Auto CC / Manager BCC casetă de dialog, faceți clic pe Nou butonul.

3. În Expertul pentru reguli, specificați condițiile după care veți filtra e-mailurile. În cazul meu, bifez cu cuvinte specifice în corp , apoi faceți clic pe textul subliniat al cuvinte specifice pentru a-l edita.

4. În dialogul Text conține, faceți clic pe Nou pentru a adăuga cuvinte noi.

5. În dialogul Căutare text, tastați un cuvânt în Text de căutare nou , faceți clic pe Adăuga , apoi faceți clic pe OK butonul.
sfaturi: Pentru a adăuga mai multe cuvinte în același timp, trebuie să tastați un cuvânt în Text de căutare nou și faceți clic pe Adăuga , apoi repetați această operație pentru a adăuga alte cuvinte unul câte unul și, în cele din urmă, faceți clic pe OK butonul.

6. Acum revine la dialogul Text Conține. Dacă este necesar, puteți continua să faceți clic pe Nou pentru a adăuga alte cuvinte după cum aveți nevoie, apoi faceți clic pe butonul OK pentru a salva aceste cuvinte.
Sfaturi: dacă adăugați simultan mai multe cuvinte în aceeași casetă de text de căutare, relația dintre aceste cuvinte este „ANDDacă adăugați mai multe cuvinte făcând clic pe Nou butonul succesiv, relația dintre aceste cuvinte este „OR".

7. Apoi revine la Expertul pentru reguli, specificați alte condiții după cum aveți nevoie și faceți clic pe Pagina Următoare → butonul.

8. În al doilea vrăjitor pentru reguli, specificați excepții sau nu verificați excepțiile după cum aveți nevoie și faceți clic pe Pagina Următoare → butonul.

9. În al treilea vrăjitor pentru reguli, introduceți un nume pentru această nouă regulă Cco în Numele regulii , introduceți descrieri pentru regulă în Note de regulă , faceți clic pe Destinatar pentru a adăuga destinatari Cc sau Bcc, bifați opțiunile de rulare în Setați opțiunile regulii și faceți clic pe OK butonul.

10. În Auto CC / BCC Manager, asigurați-vă că noua regulă Cc / Bcc este bifată și apăsați butonul OK pentru a închide dialogul.

11. Continuați să faceți clic pe Kutools> CC / BCC> Activați Auto CC / BCC în interfața principală Outlook pentru a activa regula.

Și faceți clic pe OK din caseta de dialog reconfirmare.

Până acum a fost creată regula bcc, atunci când trimiteți un e-mail, același mesaj va fi trimis destinatarului bcc în același timp.

notițe:
(1) Cu această funcție, puteți seta întotdeauna CC reguli, de asemenea.
(2) Puteți crea mai multe reguli în funcție de nevoile dvs., utilizând acest instrument.
(3) Dacă doriți să închideți regulile, puteți face clic Activați Auto CC / BCCși toate regulile nu vor funcționa. De asemenea, puteți debifa numele regulilor în Auto CC / Manager BCC casetă de dialog pentru a dezactiva unele reguli specificate.


Articol asociat:

Cum să mă automatizez mereu în Outlook?


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

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