Kako grupno odgovoriti na više poruka e-pošte s istim sadržajem u vašem Outlooku

Mnogi korisnici traže rješenje koje im omogućuje grupno odgovaranje na više odabranih poruka e-pošte s istim sadržajem u programu Outlook. Iako Outlook ne nudi takvu značajku, ipak je možete postići pomoću dijela VBA koda.

Čuo sam velik broj korisnika koji se žale da Outlook nema funkciju koja im podržava slanje istog odgovora na više e-poruka odjednom. Kada odaberu više poruka e-pošte, radnje "Odgovori" i "Odgovori svima" postat će zasivljene - bit će onemogućene. Gledajući ovaj problem, u nastavku ćemo podijeliti metodu za realizaciju ove značajke.

Skupni odgovor na više poruka e-pošte s istim sadržajem

1. Prvo pokrenite Outlook.
2. Zatim trebate izraditi predložak odgovora koji želite koristiti za odgovaranje na više poruka e-pošte.

• Najprije izradite novu e-poštu.
• Zatim sastavite ovu e-poruku na temelju onoga što želite odgovoriti.
• Zatim kliknite "Datoteka" i odaberite opciju "Spremi kao".
• Kasnije, u novom dijaloškom okviru "Spremi kao", unesite naziv i odaberite "Outlook predložak" u okviru "Spremi kao vrstu".
• Na kraju pritisnite gumb "OK".

3. Zatim možete zatvoriti e-poštu bez spremanja promjena.
4. Nakon toga trebate pritisnuti tipke "Alt + F11".
5. Nakon toga će se prikazati prozor uređivača Outlook VBA.
6. Sada biste trebali locirati i otvoriti projekt "ThisOutlookSession" i kopirati sljedeći VBA kod u njega.

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. Konačno, možete zatvoriti trenutni prozor i isprobati ovu makronaredbu.

• Najprije odaberite više adresa e-pošte na popisu e-pošte.
• Zatim kliknite desnom tipkom miša na njih.
• Zatim odaberite i pritisnite opciju "Isti odgovor" u kontekstnom izborniku.
• Zatim ćete morati navesti predložak koji se koristi za odgovor.
• Nakon što unesete ime i pritisnete "OK", isti će odgovor biti poslan na ove odabrane e-pošte.

Outlook je sklon korupciji

Kao redoviti korisnik Outlooka, bio sam izložen različitim pogreškama. Stoga sam poduzeo različite mjere kako bih zaštitio svoje Outlook podatke. Međutim, zbog činjenice da je Outlook osjetljiv na oštećenja i teško je predvidjeti pad, moram stalno biti spreman. Na primjer, kako bih što prije spasio svoje podatke, držao sam pri ruci izvanredan alat za oporavak – DataNumen Outlook Repair, U stanju je popraviti Outlook datoteku bez ikakve muke.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql korupcija i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com