Wielu użytkowników prosi o rozwiązanie, które pozwala im grupowo odpowiadać na wiele wybranych wiadomości e-mail z tą samą treścią w Outlooku. Chociaż Outlook nie zapewnia takiej funkcji, nadal możesz to osiągnąć za pomocą fragmentu kodu VBA.
Słyszałem wielu użytkowników narzekających, że Outlook nie ma funkcji umożliwiającej wysyłanie tej samej odpowiedzi na wiele wiadomości e-mail za jednym razem. Gdy wybiorą wiele e-maili, zarówno akcje „Odpowiedz”, jak i „Odpowiedz wszystkim” staną się wyszarzone – zostaną wyłączone. Przyglądając się temu problemowi, w dalszej części udostępnimy metodę realizacji tej funkcji.
Odpowiedz wsadowo na wiele wiadomości e-mail z tą samą treścią
- Najpierw uruchom program Outlook.
- Następnie musisz utworzyć szablon odpowiedzi, którego chcesz używać do odpowiadania na wiele e-maili.
- Po pierwsze, utwórz nowy e-mail.
- Następnie utwórz tego e-maila na podstawie tego, na co chcesz odpowiedzieć.
- Następnie kliknij „Plik” i wybierz opcję „Zapisz jako”.
- Później w nowym oknie dialogowym „Zapisz jako” wprowadź nazwę i wybierz „Szablon programu Outlook” w polu „Zapisz jako typ”.
- Na koniec naciśnij przycisk „OK”.
- Następnie możesz zamknąć wiadomość e-mail bez zapisywania zmian.
- Następnie należy nacisnąć przyciski klawiszy „Alt + F11”.
- Następnie zostanie wyświetlone okno edytora Outlook VBA.
- Teraz powinieneś zlokalizować i otworzyć projekt „ThisOutlookSession” i skopiować do niego następujący kod 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
- Na koniec możesz zamknąć bieżące okno i wypróbować to makro.
- Najpierw wybierz wiele e-maili na liście mailowej.
- Następnie kliknij je prawym przyciskiem myszy.
- Następnie wybierz i naciśnij opcję „Ta sama odpowiedź” w menu kontekstowym.
- Następnie zostaniesz poproszony o określenie szablonu używanego do odpowiedzi.
- Po wprowadzeniu nazwy i kliknięciu „OK”, ta sama odpowiedź zostanie wysłana na te wybrane e-maile.
Perspektywy są podatne na korupcję
Jako zwykły użytkownik programu Outlook byłem narażony na wiele błędów. Dlatego podjąłem różne środki w celu ochrony moich danych programu Outlook. Jednak ze względu na to, że Outlook jest podatny na uszkodzenia, a awarie są trudne do przewidzenia, muszę być cały czas przygotowany. Na przykład, aby jak najszybciej uratować moje dane, trzymam pod ręką niezwykłe narzędzie do odzyskiwania – DataNumen Outlook Repair. Jest w stanie naprawić Outlooka plik bez zamieszania.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym sql korupcja i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com