Перейти до основного матеріалу

Як автоматично приховувати всі електронні листи, які ви надсилаєте в Outlook?

Коли ви надсилаєте повідомлення електронної пошти, і у вас є постійний секретний одержувач, але ви не хочете, щоб інші одержувачі бачили його адресу, вам слід скористатися функцією прихованої копії. Але коли нам потрібно створити приховану копію, ми повинні вручну показати поле прихованої копії та вибрати контакт для неї. Щоб уникнути цих ручних операцій, наступна стаття покаже вам, як змінити Outlook для автоматичного приховування електронної адреси на всіх електронних листах, які ви надсилаєте.


Автоматична прихована копія за замовчуванням в Outlook за допомогою VBA

Ви можете застосувати нижче код VBA для налаштування автоматичного правила прихованої копії в Outlook. Будь ласка, виконайте наступне:

1, натисніть інший + F11 одночасно відкрити вікно Microsoft Visual Basic for Applications.

2. Двічі клацніть на ThisOutlookSessionна панелі проекту, а потім вставте нижче коду VBA у вікно, що відкривається. Дивіться знімок екрана нижче:

Код VBA: Автоматична прихована копія під час надсилання всіх листів

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

Примітка: Будь ласка, замініть "" у наведеному вище коді з адресою електронної пошти, на яку ви отримаєте приховану копію.

3. Збережіть код VBA і закрийте вікно Microsoft Visual Basic for Applications.

Відтепер вам не потрібно заповнювати адресу в полі Ск. Коли ви надсилаєте електронне повідомлення з вашого прогнозу, воно автоматично отримує приховану копію бажаному одержувачу під час виконання коду VBA.


Автоматична прихована копія в Outlook за допомогою Kutools для Outlook

Вищезазначений код VBA є для нас, початківців, складним та клопітким, ось простий і швидкий інструмент - Kutools для Outlook щоб допомогти вам автоматично приховувати всі електронні листи або вказані електронні листи, які ви надсилаєте в Outlook.

Kutools для Outlook: найкращий набір інструментів Outlook із понад 100 зручними інструментами. Спробуйте БЕЗКОШТОВНО протягом 60 днів, без обмежень, без турбот!   Детальніше ...   Почніть безкоштовну пробну версію зараз!

Після встановлення Kutools для Outlook виконайте наступне:

1. Клацання Кутулс > Авто CC / BCC > Менеджер правил, див. скріншот:

2, в Автоматичний менеджер CC / BCC діалогове вікно натисніть кнопку Нові кнопки.

3. У майстрі правил вкажіть умови, за якими ви будете фільтрувати електронні листи. У моєму випадку я ставлю галочку з конкретними словами в тілі , а потім клацніть на підкресленому тексті конкретні слова редагувати його.

4. У діалоговому вікні "Текст містить" клацніть на Нові , щоб додати нові слова.

5. У діалоговому вікні пошуку тексту введіть слово в полі Новий текст пошуку натисніть кнопку додавати кнопку, а потім натисніть кнопку OK кнопки.
Tips : Щоб додати кілька слів одночасно, потрібно ввести одне слово в Новий текст пошуку і натисніть на додавати , потім повторіть цю операцію, щоб додати інші слова по одному, і нарешті клацніть на OK кнопки.

6. Тепер воно повертається до діалогового вікна «Текст містить». Якщо потрібно, ви можете продовжити натискати Нові , щоб додати інші слова, як вам потрібно, а потім натисніть кнопку OK, щоб зберегти ці слова.
Поради: Якщо ви одночасно додаєте кілька слів в одне і те саме поле пошуку, зв'язок між цими словами "І"Якщо ви додаєте кілька слів, клацнувши на Нові кнопка послідовно, зв'язок між цими словами "OR".

7. Потім він повертається до Майстра правил, вказує інші умови, які Вам потрібні, та клацає на МАЙБУТНІ кнопки.

8. У другому майстрі правил вкажіть винятки або не перевіряйте будь-які винятки, як вам потрібно, і клацніть на МАЙБУТНІ кнопки.

9. У третьому майстрі правил введіть ім'я цього нового правила прихованої копії в Назва правила , введіть описи правила в поле Примітки до правил натисніть кнопку одержувач , щоб додати одержувачів копії або прихованої копії, позначте параметри запуску в Встановіть параметри правила і натисніть на OK кнопки.

10. Переконайтеся, що в диспетчері Auto CC / BCC встановлено прапорець Cc / Bcc, і клацніть кнопкою OK, щоб закрити діалогове вікно.

11. Натисніть Kutools> CC / BCC> Увімкнути автоматичне CC / BCC в головному інтерфейсі Outlook, щоб увімкнути правило.

І натисніть кнопку OK у діалоговому вікні підтвердження.

Наразі створено правило прихованої копії, коли ви надсилаєте електронне повідомлення, одне і те ж повідомлення одночасно надсилатиметься одержувачу прихованої копії.

примітки:
(1) За допомогою цієї функції ви можете встановити завжди CC правила також.
(2) За допомогою цього інструменту ви можете створити кілька правил, як вам потрібно.
(3) Якщо ви хочете закрити правила, ви можете натиснути Увімкніть автоматичне CC / BCC, і всі правила не працюватимуть. Також ви можете зняти прапорець з назви правил у Автоматичний менеджер CC / BCC діалогове вікно, щоб вимкнути деякі вказані правила.


Пов'язана стаття:

Як автоматично копіювати себе завжди в Outlook?


Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення ProПакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

 

 

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