Automaatne vastamine algse meili ja eelmääratletud tekstiga Outlook VBA kaudu

Outlooki lahendused September 29, 2025

Kui kasutate automaatseks vastamiseks Outlooki reeglit, avastate, et automaatne vastus ei saa algteksti sisaldada. Selles artiklis tutvustatakse lihtsat meetodit, mille abil saab Outlook VBA kaudu automaatvastuse põhiteksti sisestada algse meilisõnumi ja eelmääratletud teksti.

Outlookis võimaldavad Exchange'i kontod kasutajatel määrata automaatseid vastuseid otse menüüs Fail vahekaardi Teave nupu „Automaatvastused” kaudu, nagu järgmine ekraanipilt:

Automaatsed vastused MS Excahnge kontol

Kuid kui kasutate Interneti-e-posti kontot, olenemata IMAP-ist või POP3-st, pole nuppu "Automaatvastused" saadaval. Ainus viis automaatvastuse lubamiseks on luua automaatvastuse reegel, mis on näidatud järgmisel pildil:

Automaatvastuse reegel

Selline Outlooki automaatvastuse reegel ei saa aga algset kirja automaatselt lisada. Tegelikkuses soovib enamik inimesi algse e-kirja automaatvastuse sõnumi sisusse manustada. Sellistel juhtudel automaatvastuse reegel seda kindlasti ei tuvasta. Seega peaksime kasutama Outlooki VBA-koode. Kui olete huvitatud, lugege edasi, et saada üksikasjalikke samme ja VBA-koode.

Automaatne vastamine algse meili ja eelmääratletud tekstiga

  1. Kõigepealt peaksite pöörduma vahekaardile "Arendaja" ja klõpsama nuppu "Visual Basic".
  2. Seejärel peate uues aknas "Microsoft Visual Basic for Applications" topeltklõpsama vasakus servas projektil "ThisOutlookSession".
  3. Pärast seda avaneb projekt "ThisOutlookSession". Nüüd peaksite sellesse kopeerima ja kleepima järgmised VBA-koodid.
Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim olReply As MailItem
 
    If Item.Class = olMail Then
       Set olReply = Item.Reply
    Else
       Exit Sub
    End If
 
    With olReply
         'Type Your Own Auto Reply
         'Change "John Smith" to Your Own Name
         .Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
         .Send
    End With
End Sub

Automaatne vastamine VBA koodidele

  1. Järgmisena peaksite selle koodi nagu tavaliselt allkirjastama ja jätkama makro sätete muutmist, et lubada ainult digitaalselt allkirjastatud makrosid.
  2. Lõpuks saadab Outlook pärast ülaltoodud toimingute sooritamist automaatselt välja vastuse koos algse sõnumi teabega. See näeks välja nagu alloleval pildil:Automaatne vastamine algse meili ja eelmääratletud tekstiga

Märge: Sõltumata reeglit kasutavast automaatvastusest või VBA-koodide automaatsest vastusest saavad mõlemad efektid avaldada ainult siis, kui Outlook töötab.

Adresseerige Outlooki andmevead

Kahtlemata ei saa Outlook olla vigade eest immuunne. Seetõttu on oluline, et Outlooki tavakasutajad saaksid nende lahendamiseks mõned nipid. Ilmselgelt parim viis toime tulla Outlooki andmete kahjustus teeb regulaarset varukoopiat. Niikaua kui saate tõhusa varukoopia, saate rahulikult olla isegi siis, kui Outlook jookseb kokku. Muidugi, kui teil pole kindlustust, hoidke parem käepärast ka võimas remonditööriist.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL-i mdf-faili kahjustuse parandamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.