Ja vēlaties ātri ievietot tekstus diezgan garas e -pasta ziņas beigās, jums būs nepieciešams laiks, lai ritinātu uz leju līdz beigām. Šajā rakstā tiks parādīta metode, kas ļaus jums ātri pāriet uz e -pasta teksta beigām vai sākumu, izmantojot VBA.
Dažreiz, skatot garu e-pasta ziņojumu, jūs varat vēlēties, lai varētu ātri pāriet uz ziņojuma pamatteksta beigām vai sākumu vai pārvietot kursoru uz to. Piemēram, ja vēlaties pārbaudīt sūtītāja parakstu, jums ir jāpāriet uz beigām. Parasti jums ir jāturpina ritināt uz leju, līdz sasniedzat beigas. Tas var būt nedaudz apgrūtinoši. Tāpēc šeit mēs jums piedāvāsim VBA koda fragmentu, kas var palīdzēt jums pāriet uz beigām vai sākt tikai ar vienu klikšķi.
Ātri pāriet uz ziņojuma pamatteksta sākumu vai beigām
- Pašā sākumā palaidiet savu Outlook programmu.
- Pēc tam galvenajā Outlook logā nospiediet taustiņu pogas “Alt + F11”.
- Pēc tam ievadīsit logu “Microsoft Visual Basic for Applications”.
- Šajā brīdī jums ir jāatver tukšs modulis vai tieši jāievieto jauns.
- Pēc tam jums vajadzētu nokopēt un ielīmēt šādu VBA kodu šādā moduļa logā.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Darbojas tikai tad, ja pašreizējais e-pasts izmanto teksta redaktoru. 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 Beigas, ja beigu apakšdaļa
- Pēc tam jums labāk bija pievienot abas jaunās apakšprogrammas ziņojumu loga ātrās piekļuves rīkjoslai.
- Vispirms atveriet e -pastu ziņojuma logā.
- Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz lejupvērstās bultiņas.
- Nolaižamajā sarakstā jāizvēlas “Vairāk komandu”.
- Nākamajā logā varat pievienot makro ātrās piekļuves rīkjoslai, piemēram, šo ekrānuzņēmumu:
- Visbeidzot noklikšķiniet uz virknes “Labi”, lai saglabātu izmaiņas.
- Visbeidzot, no šī brīža varat pāriet uz e-pasta sākumu vai beigām, vienkārši noklikšķinot uz pogas ātrās piekļuves rīkjoslā, kas parādīta kā tālāk redzamais attēls:
Ko darīt, ja PST fails tiek apdraudēts?
Sakarā ar to, ka PST fails ir pakļauts kļūdām un korupcijai, jums vajadzētu darīt visu iespējamo, lai aizsargātu savus PST datus. Piemēram, jums regulāri jāveido PST faila dublējums. Turklāt, lai varētu atgriezties bojāts PST datus savlaicīgi, labāk turēt tuvumā jaudīgu rīku, piemēram DataNumen Outlook Repair. Tā specializējas PST problēmu novēršanā un PST datu izgūšanā.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server noteikts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar