Изпращате имейл до няколко получатели и поставяте някои от тях в полето „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 и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com