Если вы хотите быстро вставить текст в конец довольно длинного сообщения электронной почты, вам потребуется некоторое время, чтобы прокрутить его до конца. В этой статье будет представлен метод, позволяющий быстро перейти к концу или началу тела электронной почты с помощью VBA.
Иногда при просмотре длинного сообщения электронной почты может потребоваться возможность перехода или перемещения курсора в конец или в конец.tart тела сообщения быстро по желанию. Например, вы хотите проверить подпись отправителя, поэтому вам нужно перейти в конец. В общем, вы должны продолжать прокручивать вниз, пока не дойдете до конца. Это может быть немного хлопотно. Поэтому здесь мы предложим вам кусок кода VBA, который может помочь вам допрыгнуть до конца или сtarт только одним щелчком мыши.
Быстрый переход к началу или концу тела сообщения
- В самом начале сtarв вашей программе Outlook.
- Затем в главном окне Outlook нажмите клавиши «Alt + F11».
- Далее вы войдете в окно «Microsoft Visual Basic для приложений».
- На этом этапе вам нужно открыть пустой модуль или напрямую вставить новый.
- Затем вы должны скопировать и вставить следующий код 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 Если нет (objWordDocument ничто), то VarPosition = objWordDocument.Range.End - 1 Установите objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub Sub JumpToStart() Если нет (objWordDocument ничего не значит), то VarPosition = objWordDocument.Range.Start Установить objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub
- После этого вам лучше добавить две новые подпрограммы на панель быстрого доступа окна сообщения.
- Во-первых, откройте электронное письмо в окне сообщений.
- Затем щелкните стрелку вниз на панели быстрого доступа.
- Из выпадающего списка вы должны выбрать «Дополнительные команды».
- В следующем окне вы можете добавить макросы на панель быстрого доступа, как показано на следующем снимке экрана:
- Наконец, нажмите серию «ОК», чтобы сохранить изменения.
- В конце концов, с этого момента вы можете перейти к start или конец сообщения электронной почты, просто нажав кнопку на панели быстрого доступа, показанную на следующем рисунке:
Что делать, если файл PST скомпрометирован
Из-за того, что файл PST подвержен ошибкам и повреждению, вы должны сделать все возможное, чтобы защитить свои данные PST. Например, вам необходимо периодически создавать резервную копию файла PST. Более того, чтобы иметь возможность вернуться поврежденный файл PST данные вовремя, вам лучше держать под рукой мощный инструмент, например DataNumen Outlook Repair. Он специализируется на устранении проблем с PST и получении данных PST.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая SQL Server фиксировать и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com