Kako paketno odgovoriti na več e-poštnih sporočil z isto vsebino v svojem Outlooku

Številni uporabniki zahtevajo rešitev, ki jim omogoča skupinsko odgovarjanje na več izbranih e-poštnih sporočil z isto vsebino v Outlooku. Čeprav Outlook ne ponuja takšne funkcije, jo lahko še vedno dosežete prek dela kode VBA.

Slišal sem veliko število uporabnikov, ki so se pritoževali, da Outlook nima funkcije, ki bi jim podprla pošiljanje istega odgovora na več e-poštnih sporočil hkrati. Ko izberejo več e-poštnih sporočil, bosta dejanji »Odgovori« in »Odgovori vsem« zatemnjeni – onemogočeni. Če pogledamo to težavo, bomo v nadaljevanju delili metodo za uresničitev te funkcije.

Paketni odgovor na več e-poštnih sporočil z isto vsebino

1. Najprej zaženite program Outlook.
2. Nato morate ustvariti predlogo odgovora, ki jo želite uporabiti za odgovarjanje na več e-poštnih sporočil.

• Najprej ustvarite novo e-pošto.
• Nato sestavite to e-poštno sporočilo na podlagi tega, kar želite odgovoriti.
• Nato kliknite »Datoteka« in izberite možnost »Shrani kot«.
• Kasneje v novem pogovornem oknu »Shrani kot« vnesite ime in v polju »Shrani kot vrsto« izberite »Outlook Template«.
• Na koncu pritisnite gumb »V redu«.

3. Nato lahko zaprete e-pošto, ne da bi shranili spremembe.
4. Nato morate pritisniti tipke "Alt + F11".
5. Po tem se prikaže okno urejevalnika Outlook VBA.
6. Zdaj bi morali poiskati in odpreti projekt »ThisOutlookSession« ter vanj kopirati naslednjo kodo 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

7. Končno lahko zaprete trenutno okno in preizkusite ta makro.

• Najprej izberite več e-poštnih sporočil na poštnem seznamu.
• Nato jih kliknite z desnim klikom.
• Nato v kontekstnem meniju izberite in pritisnite možnost »Enaki odgovor«.
• Nato boste morali določiti predlogo, uporabljeno za odgovor.
• Ko vnesete ime in pritisnete »V redu«, bo isti odgovor poslan na izbrana e-poštna sporočila.

Outlook je nagnjen k korupciji

Kot redni uporabnik Outlooka sem bil izpostavljen različnim napakam. Zato sem sprejel različne ukrepe za zaščito svojih Outlookovih podatkov. Ker pa je Outlook dovzeten za poškodbe in je zrušitev težko predvideti, moram biti ves čas pripravljen. Na primer, da bi čim prej rešil svoje podatke, imam pri roki izjemno orodje za obnovitev – DataNumen Outlook Repair. To zmore popraviti Outlook datoteko brez napora.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z sql korupcije in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com