Ви надсилаєте електронне повідомлення кільком одержувачам і поміщаєте деяких з них у поле “BCC”. Пізніше, якщо ви хочете надіслати друге повідомлення лише одержувачам BCC, ви можете скористатися засобами, наведеними в цій статті.
Ви коли-небудь надсилали будь-які електронні листи Outlook кільком одержувачам, деякі з них у полі "BCC"? Іноді після надсилання такого електронного листа ви можете надіслати другий певному типу одержувачів, наприклад одержувачам BCC. Наприклад, ви хочете надіслати їм певні додаткові примітки. Зараз ми представимо вам 2 способи. Перший використовує копіювання та вставлення. І останнє насправді набагато ефективніше завдяки коду VBA. Ви можете вибрати будь-який за вашими потребами.
Спосіб 1: Скопіюйте одержувачів BCC вручну до нової електронної пошти
- По-перше, у списку електронної пошти в папці «Надіслані» виберіть оригінальний електронний лист.
- Потім двічі клацніть на цю пошту, щоб відкрити її у власному вікні Повідомлення.
- Згодом у новому вікні виберіть одного одержувача в рядку “BCC”.
- Далі натисніть “Ctrl + A”, щоб вибрати всіх одержувачів BCC.
- Пізніше клацніть правою кнопкою миші та виберіть "Копіювати" у контекстному меню.
- Після цього закрийте цей електронний лист.
- Потім створіть новий електронний лист за допомогою кнопки «Нова електронна пошта» на вкладці «Домашня сторінка».
- Нарешті, вставте скопійовані одержувачі BCC у поле «Кому» цього нового електронного листа.
- В даний час ви можете складати та надсилати цю нову пошту за бажанням
Спосіб 2: Надішліть другий електронний лист одержувачам BCC через VBA
- Перш за все, натисніть “Alt + F11”, щоб отримати доступ до редактора VBA.
- Потім вставте код VBA нижче у невикористаний модуль.
Sub SendAnotherEmailToBCCRecipients()
Dim objOriginalMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Dim objNewMail As Outlook.MailItem
Dim objNewRecipient As Outlook.Recipient
'Get source email
Select Case TypeName(Application.ActiveWindow)
Case "Inspector"
Set objOriginalMail = ActiveInspector.CurrentItem
Case "Explorer"
Set objOriginalMail = ActiveExplorer.Selection.Item(1)
End Select
'Copy the BCC recipients to "To" field in new mail
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
For Each objRecipient In objOriginalMail.Recipients
If objRecipient.Type = olBCC Then
Set objNewRecipient = objNewMail.Recipients.Add(objRecipient)
objNewRecipient.Type = olTo
objNewRecipient.Resolve
End If
Next
'Change the new email details
With objNewMail
.Subject = "Additional Notes for " & objOriginalMail.Subject
.Body = "Type mail body here....."
.Attachments.Add ("E:\Dos & Don'ts.txt")
.Importance = olImportanceHigh
.ReadReceiptRequested = True
.Send
.Display
End With
End Sub
- Згодом додайте цей макрос на панель швидкого доступу, посилаючись на «Як запустити код VBA у своєму Outlook».
- Зрештою, спробуйте цей макрос прямо зараз.
- Для початку виберіть або відкрийте оригінальний електронний лист.
- Потім клацніть макрос на панелі швидкого доступу.
- Далі буде надіслано новий електронний лист. Його одержувачами є одержувачі BCC оригінального електронного листа, як показано на малюнку нижче.
Вчасно усуньте дані Outlook
Дуже доцільно ремонт Outlook як тільки ваш Outlook пошкоджено. Спочатку можна звернутися до вбудованої утиліти ремонту - Scanpst. Однак часом можуть траплятися збої Scanpst, оскільки збиток перевищував те, що може зробити інструмент папки "Вхідні". На той час, ваш останній засіб - використовувати надійний та надійний інструмент третьої сторони, наприклад DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджений mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com