Jei norite greitai įterpti tekstus į gana ilgo el. pašto pranešimo pabaigą, prireiks šiek tiek laiko, kol slinksite žemyn iki galo. Šiame straipsnyje bus atskleistas metodas, leidžiantis greitai pereiti į el. laiško teksto pabaigą arba pradžią naudojant VBA.
Kartais, peržiūrėdami ilgą el. laišką, galite norėti greitai peršokti į teksto pabaigą arba pradžią arba perkelti žymeklį į ją. Pavyzdžiui, jei norite patikrinti siuntėjo parašą, turite peršokti į pabaigą. Paprastai turite slinkti žemyn, kol pasieksite pabaigą. Tai gali būti šiek tiek sudėtinga. Todėl čia pateiksime VBA kodo fragmentą, kuris padės jums peršokti į pabaigą arba pradėti vos vienu spustelėjimu.
Greitai pereikite į pranešimo teksto pradžią arba pabaigą
- Pačioje pradžioje paleiskite „Outlook“ programą.
- Tada pagrindiniame „Outlook“ lange paspauskite klavišų kombinaciją „Alt + F11“.
- Tada pateksite į langą „Microsoft Visual Basic for Applications“.
- Šiuo metu turite atidaryti tuščią modulį arba tiesiogiai įterpti naują.
- Vėliau turėtumėte nukopijuoti ir įklijuoti šį VBA kodą į tokį modulio langą.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Veikia tik tuo atveju, jei dabartinis el. laiškas naudoja teksto redaktorių' Set objCurrentMail = Outlook.Application.ActiveInspector.CurrentItem Set objWordDocument = objCurrentMail.GetInspector.WordEditor If Not (objWordDocument Is Nothing) Then VarPosition = objWordDocument.Range.End - 1 Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub Sub JumpToStart() If Not (objWordDocument Is Nothing) Then VarPosition = objWordDocument.Range.Start Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select Pabaiga, jei baigiasi sub
- Po to turėtumėte pridėti dvi naujas paprogrames į pranešimų lango greitosios prieigos įrankių juostą.
- Pirmiausia atidarykite el. laišką pranešimų lange.
- Tada greitosios prieigos įrankių juostoje spustelėkite rodyklę žemyn.
- Išskleidžiamajame sąraše turėtumėte pasirinkti „Daugiau komandų“.
- Kitame lange makrokomandas galite pridėti prie greitosios prieigos įrankių juostos, kaip parodyta toliau pateiktoje ekrano kopijoje:
- Galiausiai spustelėkite „Gerai“ seriją, kad išsaugotumėte pakeitimus.
- Galiausiai, nuo šiol galite pereiti į el. laiško pradžią arba pabaigą tiesiog spustelėdami mygtuką greitosios prieigos įrankių juostoje, kaip parodyta toliau pateiktame paveikslėlyje:
Ką daryti, jei PST failas bus pažeistas
Dėl to, kad PST failas yra jautrus klaidoms ir korupcijai, turėtumėte stengtis apsaugoti savo PST duomenis. Pavyzdžiui, turite periodiškai kurti atsarginę PST failo kopiją. Be to, kad būtų galima grįžti atgal sugadintas PST duomenis laiku, geriau šalia laikyti galingą įrankį, pvz DataNumen Outlook Repair. Ji specializuojasi sprendžiant PST problemas ir nuskaitant PST duomenis.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server nustatyti ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com