Коли ви хочете швидко вставити тексти в кінець досить довгого повідомлення електронної пошти, вам знадобиться деякий час, щоб прокрутити вниз до кінця. У цій статті буде розглянуто метод, який може дозволити вам швидко перейти до кінця або початку тіла електронної пошти через 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() 'Працює лише якщо поточна електронна пошта використовується редактором Word 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 фіксувати та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com