Когато искате бързо да вмъкнете текстове в края на доста дълго имейл съобщение, ще ви отнеме известно време, за да превъртите надолу до края. Тази статия ще изложи метод, който може да ви позволи бързо да преминете към края или началото на тялото на имейл чрез VBA.
Понякога, когато преглеждате дълго имейл съобщение, може да искате да можете бързо да преминете към или да преместите курсора в края или началото на тялото на съобщението. Например, ако искате да проверите подписа на подателя, трябва да преминете към края. Като цяло, трябва да продължите да превъртате надолу, докато стигнете до края. Това може да е малко обезпокоително. Затова тук ще ви предложим фрагмент от VBA код, който може да ви помогне да преминете към края или да започнете само с едно щракване.
Бързо преминете към началото или края на тялото на съобщението
- В самото начало стартирайте програмата си Outlook.
- След това в главния прозорец на Outlook натиснете бутоните „Alt + F11“.
- След това ще влезете в прозореца „Microsoft Visual Basic for Applications“.
- В този момент трябва да отворите празен модул или директно да вмъкнете нов.
- Впоследствие трябва да копирате и поставите следния VBA код в такъв прозорец на модула.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Работи само ако текущият имейл използва текстов редактор 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
- След това по-добре добавете двете нови подпрограми към лентата с инструменти за бърз достъп на прозореца за съобщения.
- Първо, отворете имейл в прозореца Съобщение.
- След това щракнете върху стрелката надолу в лентата с инструменти за бърз достъп.
- От падащия списък трябва да изберете „Още команди“.
- В следващия прозорец можете да добавите макросите към лентата с инструменти за бърз достъп, като следната екранна снимка:
- Накрая щракнете върху серия от „OK“, за да запазите промените.
- В крайна сметка, отсега нататък, можете да преминете към началото или края на имейл, просто като щракнете върху бутона в лентата с инструменти за бърз достъп, показан на следното изображение:
Какво ще стане, ако PST файлът бъде компрометиран
Поради факта, че PST файлът е податлив на грешки и корупция, трябва да опитате всичко възможно да защитите своите PST данни. Например трябва периодично да архивирате вашия PST файл. Нещо повече, за да може да се върне повреден PST данни навреме, по-добре дръжте мощен инструмент в близост, като DataNumen Outlook Repair. Тя е специализирана в отстраняването на проблеми с PST и извличането на PST данни.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително SQL Server фиксира и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com