Kaip „Outlook“ atsakyti į kelis el. laiškus su tuo pačiu turiniu

Daugelis vartotojų prašo sprendimo, kuris leistų jiems paketu atsakyti į kelis pasirinktus el. laiškus su tuo pačiu turiniu programoje „Outlook“. Nors „Outlook“ neteikia tokios funkcijos, vis tiek galite ją pasiekti naudodami VBA kodą.

Girdėjau daug vartotojų, besiskundžiančių, kad „Outlook“ neturi funkcijos, kuri padėtų vienu kartu siųsti tą patį atsakymą į kelis el. Kai jie pasirenka kelis el. laiškus, tiek „Atsakyti“, tiek „Atsakyti visiems“ veiksmai bus pilki – bus išjungti. Nagrinėdami šią problemą, toliau pasidalinsime metodu, kaip realizuoti šią funkciją.

Atsakykite į kelis el. laiškus su tuo pačiu turiniu

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada turite sukurti atsakymo šabloną, kurį norite naudoti atsakydami į kelis el. laiškus.

• Pirmiausia sukurkite naują el.
• Tada sukurkite šį el. laišką pagal tai, ką norite atsakyti.
• Tada spustelėkite „Failas“ ir pasirinkite parinktį „Išsaugoti kaip“.
• Vėliau naujame dialogo lange „Išsaugoti kaip“ įveskite pavadinimą ir lauke „Išsaugoti kaip tipą“ pasirinkite „Outlook šablonas“.
• Galiausiai paspauskite mygtuką „Gerai“.

3. Tada galite uždaryti el. laišką neišsaugoję pakeitimų.
4. Tada turėtumėte paspausti „Alt + F11“ klavišus.
5. Po to bus rodomas Outlook VBA redaktoriaus langas.
6. Dabar turėtumėte rasti ir atidaryti projektą „ThisOutlookSession“ ir į jį nukopijuoti šį VBA kodą.

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. Galiausiai galite uždaryti dabartinį langą ir išbandyti šią makrokomandą.

• Pirmiausia laiškų sąraše pasirinkite kelis el. laiškus.
• Tada dešiniuoju pelės mygtuku spustelėkite juos.
• Tada kontekstiniame meniu pasirinkite ir paspauskite parinktį „Tas pats atsakymas“.
• Tada turėsite nurodyti atsakymui naudojamą šabloną.
• Įvedus vardą ir paspaudus „Gerai“, šiais pasirinktais el. laiškais bus išsiųstas tas pats atsakymas.

„Outlook“ yra linkusi į korupciją

Kaip nuolatinis „Outlook“ vartotojas, patyriau įvairių klaidų. Todėl ėmiausi įvairių priemonių savo „Outlook“ duomenims apsaugoti. Tačiau dėl to, kad „Outlook“ yra jautri žalai, o gedimą sunku numatyti, turiu visą laiką ruoštis. Pavyzdžiui, norėdamas kuo greičiau išgelbėti savo duomenis, po ranka turiu puikų atkūrimo įrankį – DataNumen Outlook Repair. Tai sugeba pataisyti Outlook failą be jokių rūpesčių.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql korupcija ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com