Много потребители искат решение, което им позволява групово да отговарят на няколко избрани имейла с едно и също съдържание в Outlook. Въпреки че Outlook не предоставя такава функция, все пак можете да я постигнете чрез част от VBA код.
Чувал съм голям брой потребители да се оплакват, че Outlook няма функция, която да ги поддържа да изпращат един и същ отговор на няколко имейла наведнъж. Когато изберат няколко имейла, действията „Отговор“ и „Отговор на всички“ ще станат неактивни – ще бъдат деактивирани. Разглеждайки този проблем, по-нататък ще споделим метод за реализиране на тази функция.
Групов отговор на няколко имейла с едно и също съдържание
- На първо място, стартирайте програмата Outlook.
- След това трябва да създадете шаблон за отговор, който искате да използвате за отговор на множество имейли.
- Първо, създайте нов имейл.
- След това съставете този имейл въз основа на това, което искате да отговорите.
- След това щракнете върху „Файл“ и изберете опцията „Запазване като“.
- По-късно в новия диалогов прозорец „Запазване като“ въведете име и изберете „Шаблон на Outlook“ в полето „Запазване като тип“.
- Накрая натиснете бутона „OK“.
- След това можете да затворите имейла, без да запазвате промените.
- След това трябва да натиснете клавишните бутони „Alt + F11“.
- След това ще се покаже прозорецът на редактора на Outlook VBA.
- Сега трябва да намерите и отворите проекта „ThisOutlookSession“ и да копирате следния VBA код в него.
Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
Dim objCommandBarButton As Office.CommandBarButton
If (Selection.count > 1) And (Selection.Item(1).Class = olMail) Then
Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
'Add a "Same Reply" option to the context menu
With objCommandBarButton
.Style = msoButtonIconAndCaption
.Caption = "Same Reply"
.FaceId = 355
.OnAction = "Project1.ThisOutlookSession.SendSameReply"
End With
End If
End Sub
Sub SendSameReply()
Dim strTemplate As String
Dim objTemplateReply As Outlook.MailItem
Dim strHTMLBody As String
Dim objSelection As Outlook.Selection
Dim i As Long
Dim objReply As Outlook.MailItem
'Input the name of the previously saved template
strTemplate = InputBox("Enter the name of template message:", , "Template Reply")
Set objTemplateReply = Application.CreateItemFromTemplate("C:\Users\Test\Documents\UserTemplates\" & strTemplate & ".oft")
strHTMLBody = objTemplateReply.HTMLBody
Set objSelection = Application.ActiveExplorer.Selection
For i = objSelection.count To 1 Step -1
Set objReply = objSelection(i).Reply
With objReply
.HTMLBody = strHTMLBody & objReply.HTMLBody
.Send
End With
Next
End Sub
- Накрая можете да затворите текущия прозорец и да опитате този макрос.
- Първо изберете няколко имейла в списъка с имейли.
- След това щракнете с десния бутон върху тях.
- След това изберете и натиснете опцията „Същият отговор“ в контекстното меню.
- След това ще трябва да посочите шаблона, използван за отговор.
- След като въведете името и натиснете „OK“, същият отговор ще бъде изпратен до тези избрани имейли.
Outlook е склонен към корупция
Като редовен потребител на Outlook съм бил обект на различни грешки. Поради това предприех различни мерки, за да защитя данните си в Outlook. Въпреки това, поради факта, че Outlook е податлив на повреда и сривът е трудно да се предвиди, трябва да съм подготвен през цялото време. Например, за да спася данните си възможно най-скоро, имам под ръка забележителен инструмент за възстановяване – DataNumen Outlook Repair, Той е в състояние да поправете Outlook файл без никаква суматоха.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корупция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com