Ugrás a tartalomra

Hogyan lehet automatikusan másolni az összes Outlookban küldött e-mailt?

Amikor e-mailt küld, és állandó titkos címzettje van, de nem szeretné, ha a többi címzett meglátná a címét, akkor használja a Titkos másolat funkciót. De amikor a másolat másolatát meg kell adnunk, manuálisan meg kell mutatnunk a másolat másolat mezőt, és ki kell választanunk hozzá egy névjegyet. A manuális műveletek elkerülése érdekében a következő cikk bemutatja, hogyan módosíthatja az Outlook-ot úgy, hogy az összes küldött e-mail címről automatikusan másoljon e-mailt.


Alapértelmezett automatikus másolat az Outlookban a VBA használatával

A VBA-kód alatt alkalmazhatja az automatikus másolatszabály konfigurálását az Outlookban. Kérjük, tegye a következőket:

1. megnyomni a más + F11 gombokat egyidejűleg a Microsoft Visual Basic for Applications ablak megnyitásához.

2. Kattintson duplán a ThisOutlookSessiona Projekt ablaktáblán, majd illessze be a VBA kód alá a nyitó ablakba. Lásd az alábbi képernyőképet:

VBA kód: Automatikus titkos másolat az összes e-mail küldésénél

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

Jegyzet: Kérjük, cserélje ki "" a fenti kódban, azzal az e-mail címmel, amelyre másolatot kap.

3. Mentse el a VBA kódot, és zárja be a Microsoft Visual Basic for Applications ablakot.

Mostantól nem kell kitölteni a címet a Titkos másolat mezőben. Amikor e-mailt küld az Outlook-ból, az automatikusan megkapja a kívánt címzett számára a VBA-kód végrehajtása közben.


Automatikus titkos másolat az Outlookban a Kutools for Outlook használatával

A fenti VBA-kód nehéz és problémás nekünk kezdőknek, itt van egy egyszerű és gyors eszköz - Kutools az Outlook számára az Outlook és az Outlook által küldött összes e-mail automatikus másolása.

Kutools az Outlook számára: Ultimate Outlook eszköztár több mint 100 praktikus eszközzel. Próbálja ki INGYENESEN 60 napig, korlátozások nélkül, semmi gond!   Tovább ...   Kezdje el az ingyenes próbaverziót most!

A Kutools for Outlook telepítése után tegye a következőket:

1. Kattints Kutools > Automatikus CC / BCC > Szabálykezelő, lásd a képernyőképet:

2. Az Automatikus CC / BCC Manager párbeszédpanelen kattintson a gombra Új gombot.

3. A Szabály varázslóban adja meg azokat a feltételeket, amelyek alapján szűrni fogja az e-maileket. Esetemben pipálom a konkrét szavakkal a testben opciót, majd kattintson a. aláhúzott szövegére konkrét szavak szerkeszteni.

4. A Szöveget tartalmazó párbeszédpanelen kattintson a gombra Új gombra új szavak hozzáadásához.

5. A Szöveg keresése párbeszédpanelen írjon be egy szót a Új keresési szöveg jelölje be a ikont hozzáad majd kattintson a gombra OK gombot.
tippek: Több szó egyidejű hozzáadásához be kell írnia egy szót a Új keresési szöveg négyzetet, és kattintson a gombra hozzáad gombra, majd ismételje meg ezt a műveletet más szavak hozzáadásához, majd kattintson a gombra OK gombot.

6. Most visszatér a Szöveget tartalmazó párbeszédpanelre. Ha szükséges, folytathatja a Új gombra kattintva további szavakat adhat hozzá, ha szükséges, majd kattintson az OK gombra a szavak mentéséhez.
Tippek: Ha egyszerre több szót is felvesz ugyanabba a keresési szövegmezőbe, akkor a szavak közötti kapcsolat "ÉSMsgstr "" "Ha több szót ad hozzá a" "gombra kattintva Új gomb egymás után, a kapcsolat ezek között a szavak közöttOR".

7. Ezután visszatér a Szabály varázslóhoz, szükség szerint adjon meg más feltételeket, majd kattintson a gombra Következő gombot.

8. A második Szabály varázslóban adjon meg kivételeket, vagy ne ellenőrizze a kívánt kivételeket, majd kattintson a gombra Következő gombot.

9. A harmadik Szabály varázslóba írja be az új Titkos másolatszabály nevét a Szabály címe mezőbe írja be a szabály leírását a Szabályjegyzetek jelölje be a ikont Befogadó gombra a Másolat vagy Titkos másolat címzettek hozzáadásához, jelölje be a futási lehetőségeket a Szabálybeállítások megadása szakaszban, és kattintson a OK gombot.

10. Az Auto CC / BCC Manager alkalmazásban ellenőrizze, hogy be van-e jelölve az új Másolatkezelés / Titkos másolat szabály, és a párbeszéd bezárásához nyomja meg az OK gombot.

11. Kattintson a Kutools> CC / BCC> Automatikus CC / BCC engedélyezése elemre az Outlook fő felületén a szabály engedélyezéséhez.

És kattintson a gombra OK gombot az előugró megerősítő párbeszédpanelen.

Eddig létrehozták a titkos másolat szabályt, amikor e-mailt küld, ugyanaz az üzenet egyszerre fog elküldeni a másolat másolat címzettjének is.

Megjegyzések:
(1) Ezzel a funkcióval beállíthatja a mindig CC szabályok is.
(2) Ennek az eszköznek a segítségével szükség szerint több szabályt is létrehozhat.
(3) Ha le szeretné zárni a szabályokat, kattintson a gombra Engedélyezze az Auto CC / BCC funkciót, és az összes szabály nem fog működni. Azt is törölheti a szabályok nevét a Automatikus CC / BCC Manager párbeszédpanel néhány megadott szabály letiltásához.


Kapcsolódó cikk:

Hogyan lehet automatikusan másolni magam az Outlook-ban?


A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments ProKötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

 

 

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