Veel gebruikers vragen om een oplossing waarmee ze batchgewijs meerdere geselecteerde e-mails met dezelfde inhoud in Outlook kunnen beantwoorden. Hoewel Outlook zo'n functie niet biedt, kunt u dit nog steeds bereiken via een stukje VBA-code.
Ik heb een groot aantal gebruikers horen klagen dat Outlook geen functie heeft die hen ondersteunt om in één keer hetzelfde antwoord op meerdere e-mails te sturen. Als ze meerdere e-mails selecteren, worden zowel de acties "Beantwoorden" als "Allen beantwoorden" grijs weergegeven - worden uitgeschakeld. Als we naar dit probleem kijken, zullen we hierna een methode delen om deze functie te realiseren.
Batch beantwoord meerdere e-mails met dezelfde inhoud
- Start allereerst uw Outlook-programma.
- Vervolgens moet u een sjabloonantwoord maken dat u wilt gebruiken om meerdere e-mails te beantwoorden.
- Maak eerst een nieuwe e-mail.
- Stel vervolgens deze e-mail op op basis van wat u wilt beantwoorden.
- Klik vervolgens op "Bestand" en kies de optie "Opslaan als".
- Voer later in het nieuwe dialoogvenster "Opslaan als" een naam in en selecteer "Outlook-sjabloon" in het vak "Opslaan als".
- Druk ten slotte op de knop "OK".
- Vervolgens kunt u de e-mail sluiten zonder de wijzigingen op te slaan.
- Vervolgens moet u op de toets "Alt + F11" drukken.
- Daarna wordt het Outlook VBA-editorvenster weergegeven.
- Nu moet u het "ThisOutlookSession" -project zoeken en openen en de volgende VBA-code erin kopiëren.
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
- Ten slotte kunt u het huidige venster sluiten en deze macro proberen.
- Selecteer eerst meerdere e-mails in de mailinglijst.
- Klik er vervolgens met de rechtermuisknop op.
- Kies vervolgens en klik op de optie "Zelfde antwoord" in het contextmenu.
- Vervolgens moet u de sjabloon opgeven die voor het antwoord wordt gebruikt.
- Nadat u de naam heeft ingevoerd en op "OK" heeft gedrukt, wordt hetzelfde antwoord naar deze geselecteerde e-mails verzonden.
Outlook is vatbaar voor corruptie
Als regelmatige gebruiker van Outlook ben ik onderhevig aan verschillende fouten. Daarom heb ik verschillende maatregelen genomen om mijn Outlook-gegevens te beschermen. Omdat Outlook echter vatbaar is voor schade en crashen moeilijk te voorspellen is, moet ik me voortdurend voorbereiden. Om mijn gegevens bijvoorbeeld zo snel mogelijk te redden, heb ik een opmerkelijke hersteltool bij de hand gehouden - DataNumen Outlook Repair. Het kan Outlook repareren bestand zonder gedoe.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql corruptie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com