Вы отправляете электронное письмо нескольким получателям и указываете некоторых из них в поле «BCC». Позже, если вы хотите отправить второе письмо только получателям BCC, вы можете использовать средства, описанные в этой статье.
Вы когда-нибудь отправляли электронные письма Outlook нескольким получателям, некоторые из которых были в поле «BCC»? Иногда после отправки такого электронного письма вы можете захотеть отправить второе получателям определенного типа, например получателям скрытой копии. Например, вы хотите отправить им некоторые дополнительные заметки. Теперь мы познакомим вас с двумя способами. Первый использует копирование и вставку. И последний на самом деле намного эффективнее благодаря коду VBA. Вы можете выбрать либо в соответствии с вашими потребностями.
Способ 1: скопировать получателей скрытой копии в новое электронное письмо вручную
- Во-первых, в списке адресов электронной почты папки «Отправленные» выберите исходный адрес электронной почты.
- Затем дважды щелкните это письмо, чтобы открыть его в отдельном окне сообщений.
- Затем в новом окне выберите одного получателя в строке «BCC».
- Затем нажмите «Ctrl + A», чтобы выбрать всех получателей скрытой копии.
- Позже щелкните правой кнопкой мыши и выберите «Копировать» в контекстном меню.
- После этого закройте это письмо.
- Затем создайте новый адрес электронной почты, нажав кнопку «Новый адрес электронной почты» на вкладке «Главная».
- Наконец, вставьте скопированных получателей 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».
- В конечном счете, попробуйте этот макрос прямо сейчас.
- Для начала выберите или откройте исходное письмо.
- Затем щелкните макрос на панели быстрого доступа.
- Далее будет отправлено новое электронное письмо. Его получателями являются получатели скрытой копии исходного электронного письма, как показано на следующем изображении.
Спасите свои данные Outlook вовремя
Крайне желательно восстановить Outlook как только ваш Outlook будет поврежден. Сначала вы можете прибегнуть к встроенной утилите восстановления — Scanpst. Однако иногда вы можете столкнуться со сбоями Scanpst, поскольку ущерб превышает возможности инструмента «Входящие». В то время вашим последним средством является использование надежного и надежного стороннего инструмента, такого как DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com