Cum să sari rapid la începutul sau la sfârșitul corpului mesajului în Outlook

Distribuie acum:

Când doriți să inserați rapid texte la sfârșitul unui mesaj de e-mail destul de lung, vă va lua ceva timp să derulați în jos până la sfârșit. Acest articol va expune o metodă care vă poate permite să săriți rapid la sfârșitul sau începutul corpului de e-mail prin VBA.

Salt rapid la începutul sau la sfârșitul corpului mesajului în OutlookUneori, atunci când vizualizați un mesaj de e-mail lung, este posibil să doriți să puteți sări la sfârșitul sau începutul mesajului sau să mutați cursorul la acesta rapid, după bunul plac. De exemplu, dacă doriți să verificați semnătura expeditorului, trebuie să sari la sfârșit. În general, trebuie să continuați să derulați în jos până ajungeți la sfârșit. Poate fi puțin dificil. Prin urmare, aici vă vom oferi un fragment de cod VBA, care vă poate ajuta să sari la sfârșit sau să începeți cu un singur clic.

Salt rapid la începutul sau la sfârșitul corpului mesajului

  1. Chiar de la început, porniți programul Outlook.
  2. Apoi, în fereastra principală Outlook, apăsați butoanele tastei „Alt + F11”.
  3. Apoi veți intra în fereastra „Microsoft Visual Basic for Applications”.
  4. În acest moment, trebuie să deschideți un modul gol sau să introduceți direct unul nou.
  5. Ulterior, ar trebui să copiați și să lipiți următorul cod VBA într-o astfel de fereastră de modul.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Funcționează numai dacă e-mailul curent utilizează editorul de text 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

Cod VBA - Salt la începutul sau la sfârșitul corpului mesajului

  1. După aceea, ar fi bine să adăugați cele două noi subrutine la bara de instrumente Acces rapid a ferestrei de mesaje.
  • Mai întâi, deschideți un e-mail în fereastra Mesaj.
  • Apoi faceți clic pe săgeata în jos din Bara de instrumente Acces rapid.
  • Din lista derulantă, ar trebui să selectați „Mai multe comenzi”.
  • În fereastra următoare, puteți adăuga macrocomenzi la Bara de instrumente Acces rapid, ca în următoarea captură de ecran:Adăugați macrocomenzi în Bara de instrumente Acces rapid
  • În cele din urmă, faceți clic pe o serie de „OK” pentru a salva modificările.
  1. În cele din urmă, de acum înainte, puteți sări la începutul sau la sfârșitul unui e-mail pur și simplu făcând clic pe butonul din Bara de instrumente Acces rapid, așa cum se arată în imaginea următoare:Rulați Macro

Ce se întâmplă dacă fișierul PST este compromis

Datorită faptului că fișierul PST este susceptibil la erori și corupție, ar trebui să faceți tot posibilul pentru a vă proteja datele PST. De exemplu, trebuie să faceți o copie de rezervă a fișierului dvs. PST în mod periodic. Mai mult, pentru a se putea întoarce PST deteriorat date la timp, ar fi bine să păstrați un instrument puternic în apropiere, de exemplu DataNumen Outlook Repair. Este specializat în remedierea problemelor PST și în preluarea datelor PST.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server stabili și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com

Distribuie acum:

Comentariile sunt închise.