Kada želite brzo umetnuti tekst na kraj prilično dugačke poruke e-pošte, trebat će vam neko vrijeme da se pomaknete do kraja. Ovaj će članak otkriti metodu koja vam može omogućiti brzi skok na kraj ili početak tijela e-pošte putem VBA.
Ponekad, prilikom pregledavanja duge e-poruke, možda želite brzo skočiti na kraj ili početak tijela poruke ili pomaknuti kursor na nju. Na primjer, želite provjeriti potpis pošiljatelja, pa morate skočiti na kraj. Općenito, morate se pomicati prema dolje dok ne dođete do kraja. To može biti malo problematično. Stoga ćemo vam ovdje ponuditi dio VBA koda koji vam može pomoći da skočite na kraj ili započnete samo jednim klikom.
Brzo skočite na početak ili kraj tijela poruke
- Na samom početku pokrenite Outlook.
- Zatim u glavnom prozoru programa Outlook pritisnite tipke "Alt + F11".
- Zatim ćete ući u prozor "Microsoft Visual Basic za aplikacije".
- U ovom trenutku trebate otvoriti prazan modul ili izravno umetnuti novi.
- Nakon toga trebate kopirati i zalijepiti sljedeći VBA kod u takav prozor modula.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Radi samo ako trenutna e-pošta koristi uređivač teksta 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 End If End Sub
- Nakon toga, bolje je dodati dvije nove potprograme na alatnu traku za brzi pristup prozora s porukama.
- Prvo otvorite e-poštu u prozoru poruka.
- Zatim kliknite strelicu prema dolje na alatnoj traci za brzi pristup.
- S padajućeg popisa trebali biste odabrati "Više naredbi".
- U sljedećem prozoru možete dodati makronaredbe na alatnu traku za brzi pristup kao na sljedećoj snimci zaslona:
- Na kraju kliknite niz "OK" za spremanje promjena.
- Na kraju, od sada nadalje, možete skočiti na početak ili kraj e-pošte jednostavnim klikom na gumb u alatnoj traci za brzi pristup, prikazan kao na sljedećoj slici:
Što ako PST datoteka bude ugrožena
Zbog činjenice da je PST datoteka podložna pogreškama i oštećenjima, trebali biste dati sve od sebe kako biste zaštitili svoje PST podatke. Na primjer, morate povremeno napraviti sigurnosnu kopiju svoje PST datoteke. Štoviše, kako bi se mogli vratiti oštećeni PST podataka na vrijeme, bolje je da držite moćan alat u blizini, npr DataNumen Outlook Repair. Specijaliziran je za rješavanje problema s PST-om i dohvaćanje PST podataka.
Uvod za autora:
Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server popraviti i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com