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

Mnogi korisnici traže rješenje koje im omogućava da grupno odgovore na više odabranih e-poruka sa istim sadržajem u Outlooku. Iako Outlook ne pruža takvu funkciju, još uvijek je možete postići pomoću dijela VBA koda.

Čuo sam veliki broj korisnika koji se žale da Outlook nema funkciju koja ih podržava da pošalju isti odgovor na više e-poruka odjednom. Kada odaberu više e-poruka, radnje „Odgovori“ i „Odgovori svima“ postaće sivo – biće onemogućene. Gledajući ovo pitanje, kasnije ćemo podijeliti metodu za realizaciju ove funkcije.

Grupni odgovor na više e-poruka sa istim sadržajem

1. Prvo, pokrenite Outlook program.
2. Zatim morate kreirati predložak odgovora koji želite koristiti za odgovaranje na više e-poruka.

• Prvo kreirajte novu e-poštu.
• Zatim sastavite ovu e-poruku na osnovu onoga što želite da odgovorite.
• Zatim kliknite na “File” i odaberite opciju “Save As”.
• Kasnije, u novom dijaloškom okviru “Sačuvaj kao”, unesite ime i odaberite “Outlook Template” u polju “Save as type”.
• Na kraju, pritisnite dugme “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 Outlook VBA editora.
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 ovaj makro.

• Prvo odaberite više e-mailova na listi e-pošte.
• Zatim kliknite desnim klikom na njih.
• Zatim odaberite i pritisnite opciju "Isti odgovor" u kontekstnom izborniku.
• Zatim će se od vas tražiti da navedete šablon koji se koristi za odgovor.
• Nakon što unesete ime i pritisnete "OK", isti odgovor će biti poslan na ove odabrane e-poruke.

Outlook je sklon korupciji

Kao redovan korisnik Outlook-a, bio sam podložan raznim greškama. Stoga sam poduzeo različite mjere da zaštitim svoje Outlook podatke. Međutim, zbog činjenice da je Outlook podložan oštećenjima i da je teško predvidjeti pad, moram biti spreman cijelo vrijeme. Na primjer, kako bih spasio svoje podatke što je prije moguće, držao sam pri ruci izvanredan alat za oporavak – DataNumen Outlook Repair. To je u stanju popravi Outlook fajl bez ikakve buke.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql corruption i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com