Kuinka vastata useisiin saman sisällön sähköpostiviesteihin Outlookissa

Monet käyttäjät pyytävät ratkaisua, jonka avulla he voivat vastata useisiin valittuihin sähköpostiviesteihin, joissa on sama sisältö Outlookissa. Vaikka Outlook ei tarjoa tällaista ominaisuutta, voit silti saavuttaa sen VBA-koodin avulla.

Olen kuullut useiden käyttäjien valittavan, että Outlookissa ei ole toimintoa, joka tue heitä lähettämään saman vastauksen useisiin sähköposteihin kerralla. Kun he valitsevat useita sähköposteja, sekä "Vastaa"- että "Vastaa kaikille" -toiminnot muuttuvat harmaiksi - ne poistetaan käytöstä. Tarkasteltaessa tätä ongelmaa, jaamme tämän jälkeen menetelmän tämän ominaisuuden toteuttamiseksi.

Vastaa joukkoon useita sähköpostiviestejä samalla sisällöllä

1. Käynnistä ensin Outlook-ohjelmasi.
2. Sitten sinun on luotava vastausmalli, jota haluat käyttää useisiin sähköpostiviesteihin vastaamiseen.

• Luo ensin uusi sähköposti.
• Kirjoita sitten tämä sähköposti sen perusteella, mitä haluat vastata.
• Napsauta seuraavaksi "Tiedosto" ja valitse "Tallenna nimellä".
• Syötä myöhemmin uuteen "Tallenna nimellä" -valintaikkunaan nimi ja valitse "Outlook-malli" "Tallenna nimellä" -ruudussa.
• Lopuksi paina "OK" -painiketta.

3. Seuraavaksi voit sulkea sähköpostin tallentamatta muutoksia.
4. Tämän jälkeen sinun tulee painaa "Alt + F11" -näppäimiä.
5. Tämän jälkeen Outlook VBA -editori-ikkuna tulee näkyviin.
6. Nyt sinun pitäisi etsiä ja avata "ThisOutlookSession" -projekti ja kopioida seuraava VBA-koodi siihen.

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. Lopuksi voit sulkea nykyisen ikkunan ja kokeilla tätä makroa.

• Valitse ensin useita sähköpostiviestejä postituslistalta.
• Napsauta sitten niitä hiiren kakkospainikkeella.
• Seuraavaksi valitse ja paina "Sama vastaus" -vaihtoehto pikavalikosta.
• Sitten sinun on määritettävä vastauksessa käytetty malli.
• Kun olet syöttänyt nimen ja painanut "OK", sama vastaus lähetetään näihin valittuihin sähköpostiviesteihin.

Outlook on alttiina korruptiolle

Tavallisena Outlookin käyttäjänä olen kohdannut useita virheitä. Siksi olen ryhtynyt erilaisiin toimenpiteisiin Outlook-tietojeni suojaamiseksi. Koska Outlook on kuitenkin herkkä vaurioille ja kaatumista on vaikea ennustaa, minun on oltava valmis koko ajan. Esimerkiksi pelastaakseni tietoni mahdollisimman pian, olen pitänyt käsilläni merkittävän palautustyökalun – DataNumen Outlook Repair. Se pystyy korjaa Outlook tiedosto ilman hätää.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql korruptio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com