Kada želite brzo umetnuti tekst na kraj prilično dugačke e-poruke, trebat će vam neko vrijeme da skrolujete do kraja. Ovaj članak će otkriti metodu koja vam može omogućiti da brzo skočite na kraj ili početak tijela e-pošte putem VBA.
Ponekad, prilikom pregleda dugačke e-mail poruke, možda ćete poželjeti da možete brzo preskočiti na kraj ili početak tijela poruke ili da pomjerite kursor na nju. Na primjer, želite provjeriti potpis pošiljatelja, pa morate preskočiti na kraj. Općenito, morate nastaviti skrolovati 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 preskoč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 program.
- Zatim u glavnom prozoru programa Outlook pritisnite tipke “Alt + F11”.
- Zatim ćete ući u prozor “Microsoft Visual Basic za aplikacije”.
- U ovom trenutku morate otvoriti prazan modul ili direktno umetnuti novi.
- Nakon toga, trebali biste 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 se za trenutnu e-poštu 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 da dodate dvije nove potprograme na alatnu traku za brzi pristup prozora poruke.
- Prvo otvorite e-poštu u prozoru poruke.
- Zatim kliknite na strelicu nadole na traci sa alatkama za brzi pristup.
- Sa padajuće liste treba da izaberete „Više komandi“.
- U sljedećem prozoru možete dodati makroe na alatnu traku za brzi pristup kao na sljedećem snimku ekrana:
- Na kraju kliknite niz "OK" da sačuvate promjene.
- Na kraju, od sada nadalje, možete preći na početak ili kraj e-pošte jednostavnim klikom na dugme u traci sa alatkama za brzi pristup, prikazano kao na sljedećoj slici:
Šta ako PST datoteka bude ugrožena
Zbog činjenice da je PST datoteka podložna greškama i oštećenju, trebali biste dati sve od sebe da zaštitite svoje PST podatke. Na primjer, morate povremeno praviti sigurnosnu kopiju svoje PST datoteke. Štaviše, da bi se mogao vratiti oštećen PST podataka na vrijeme, bolje je da moćan alat držite u blizini, npr DataNumen Outlook Repair. Specijaliziran je za rješavanje PST problema i preuzimanje PST podataka.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server popraviti i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com