Kaip automatiškai atsakyti naudojant originalų el. laišką ir iš anksto nustatytą tekstą naudojant „Outlook VBA“.

Jei automatiniam atsakymui naudojate „Outlook“ taisyklę, pastebėsite, kad automatinio atsakymo tekste negali būti pradinio pranešimo. Šiame straipsnyje bus pristatytas paprastas metodas, kuriuo galima įterpti originalų el. laišką ir iš anksto nustatytą tekstą į automatinio atsakymo turinį naudojant „Outlook VBA“.

Programoje „Outlook“ „Exchange“ paskyros leidžia vartotojams nustatyti automatinius atsakymus tiesiogiai spustelėjus mygtuką „Automatiniai atsakymai“, esantį skirtuke „Informacija“, esantį meniu „Failas“, pvz., šią ekrano kopiją:

Bet jei naudojate interneto el. pašto paskyrą, nesvarbu, IMAP ar POP3, mygtuko „Automatiniai atsakymai“ nėra. Vienintelis būdas įjungti automatinį atsakymą yra sukurti automatinio atsakymo taisyklę, parodytą kaip šis paveikslėlis:

Tačiau tokio tipo automatinio atsakymo pagal „Outlook“ taisyklę negalima automatiškai įtraukti originalaus el. laiško. Iš tikrųjų dauguma žmonių norėtų pridėti originalų el. laišką prie automatinio atsakymo laiško teksto. Tokiais atvejais automatinio atsakymo taisyklė to tikrai negali suprasti. Todėl turėtume naudoti „Outlook“ VBA kodus. Jei jus domina, skaitykite toliau, kad sužinotumėte išsamius veiksmus ir VBA kodus.

Automatiškai atsakykite naudodami originalų el. laišką ir iš anksto nustatytą tekstą

1. Pirmiausia turėtumėte atidaryti skirtuką „Kūrėjas“ ir spustelėti mygtuką „Visual Basic“.
2. Tada naujame lange „Microsoft Visual Basic for Applications“ kairėje pusėje turite dukart spustelėti projektą „ThisOutlookSession“.
3. Po to bus atidarytas projektas „ThisOutlookSession“. Dabar turėtumėte nukopijuoti ir įklijuoti šiuos VBA kodus.

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

4. Tada turėtumėte pasirašyti šį kodą kaip įprasta ir toliau keisti makrokomandos nustatymus, kad būtų galima naudoti tik skaitmeniniu būdu pasirašytas makrokomandas.
5. Galiausiai, atlikus aukščiau nurodytus veiksmus, „Outlook“ automatiškai išsiųs atsakymą su pradine pranešimo informacija. Tai atrodytų taip, kaip paveikslėlyje žemiau:

Pastaba: Nepriklausomai nuo automatinio atsakymo naudojant taisyklę arba automatinio atsakymo naudojant VBA kodus, abu jie gali turėti poveikį tik tada, kai veikia „Outlook“.

Išspręskite „Outlook“ duomenų klaidas

Be jokių abejonių, „Outlook“ negali būti apsaugota nuo klaidų. Todėl labai svarbu, kad paprasti „Outlook“ vartotojai gautų keletą gudrybių, kaip juos išspręsti. Akivaizdu, kad geriausias būdas susidoroti su Outlook duomenų sugadinimas daro reguliarią atsarginę kopiją. Kol gausite veiksmingą atsarginę kopiją, būsite ramūs, net jei „Outlook“ užstrigs. Žinoma, jei nėra draudimo, geriau turėkite ir galingą remonto įrankį.

Autoriaus įvadas:

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