Если вы хотите быстро вставить текст в конец довольно длинного сообщения электронной почты, вам потребуется некоторое время, чтобы прокрутить его до конца. В этой статье будет представлен метод, позволяющий быстро перейти к концу или началу тела электронной почты с помощью VBA.
Иногда при просмотре длинного электронного письма может возникнуть необходимость быстро перейти к началу или концу текста сообщения. Например, вы хотите проверить подпись отправителя, поэтому вам нужно перейти к концу. Как правило, приходится прокручивать страницу вниз до самого конца. Это может быть довольно утомительно. Поэтому мы предлагаем вам фрагмент кода VBA, который поможет вам перейти к началу или концу текста всего одним щелчком мыши.
Быстрый переход к началу или концу тела сообщения
- Для начала запустите программу 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 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
- После этого вам лучше добавить две новые подпрограммы на панель быстрого доступа окна сообщения.
- Во-первых, откройте электронное письмо в окне сообщений.
- Затем щелкните стрелку вниз на панели быстрого доступа.
- Из выпадающего списка вы должны выбрать «Дополнительные команды».
- В следующем окне вы можете добавить макросы на панель быстрого доступа, как показано на следующем снимке экрана:
- Наконец, нажмите серию «ОК», чтобы сохранить изменения.
- Теперь вы можете перейти к началу или концу электронного письма, просто нажав кнопку на панели быстрого доступа, как показано на следующем изображении:
Что делать, если файл PST скомпрометирован
Из-за того, что файл PST подвержен ошибкам и повреждению, вы должны сделать все возможное, чтобы защитить свои данные PST. Например, вам необходимо периодически создавать резервную копию файла PST. Более того, чтобы иметь возможность вернуться поврежденный файл PST данные вовремя, вам лучше держать под рукой мощный инструмент, например DataNumen Outlook Repair. Он специализируется на устранении проблем с PST и получении данных PST.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая SQL Server фиксировать и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com