Як автоматично вставити поточну дату чи час у тему чи текст електронної пошти за допомогою Outlook VBA

Багато користувачів звикли вставляти поточну дату чи час у тему чи тіло електронного листа під час створення нового листа. Ця стаття навчить вас, як досягти цього швидко.

У попередній сторost - "Як автоматично додавати поточну дату до тем електронної пошти Outlook», ви можете дізнатися, як автоматично додавати поточну дату або час до теми. Але метод у тому сost просто створити власну форму повідомлення. Таким чином, щоразу, коли ви хочете створити новий електронний лист із поточною датою чи часом у темі, вам доведеться вибрати спеціальну форму замість створення нового електронного листа, як зазвичай. Очевидно, що це буде досить громіздко.

Насправді Outlook вже запропонував нам рідне поле для вставки дати або часу. Крім того, ви можете застосувати Outlook VBA для автоматичного вставлення поточної дати чи часу в тіло чи тему нового електронного листа. Вибір методу залежить від того, як часто потрібно вставляти дату або час.

Вставте вручну за полем «Дата й час».

1. To start, запустіть Outlook.
2. Потім створіть нове повідомлення, натиснувши кнопку «Новий електронний лист» у групі «Новий» на вкладці «Домашня сторінка».
3. Згодом у вікні «Нове повідомлення» ви можете клацнути тіло електронного листа та перейти на вкладку «Вставити».
4. Далі ви можете знайти та натиснути поле «Дата й час» у групі «Текст».
5. Після цього з’явиться нове діалогове вікно. Ви можете вибрати доступний формат і натиснути кнопку «ОК».
6. Після повернення до вікна повідомлення ви можете побачити поточну дату або час у тілі електронного листа. За замовчуванням Outlook не дозволяє застосовувати поле «Дата й час» до теми.
7. Отже, нарешті, якщо ви хочете вставити дату чи час у тему, вам потрібно скопіювати їх із основного вмісту та вставити в тему вручну.

Цей метод більше рекомендується, якщо вам рідко потрібно вставити поточну дату або час. Але за умови, що вам часто або завжди потрібно вставляти, вам краще використовувати наступні коди VBA, щоб досягти цього автоматично.

Автоматична вставка з Outlook VBA

1. По-перше, натисніть клавіші «Alt + F11», щоб отримати доступ до редактора VBA.
2. Потім двічі клацніть проект «ThisOutlookSession» ліворуч, щоб відкрити його.
3. Потім скопіюйте в нього наступні коди.

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Private Sub Initialize_handlers()
    Set objInspectors = Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

Примітка: Наведені вище коди працюватимуть для автоматичної вставки поточного часу в тему та тіло. Якщо ви хочете вставити поточну дату, замініть «objMail_Open” підпункт із таким:

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub

4. Згодом підпишіть цей код, як зазвичай.
5. Пізніше, відпtart Outlook, щоб активувати макрос.
6. Нарешті можна спробувати.

• Натисніть кнопку «Новий електронний лист», щоб відкрити новий електронний лист.
• Ви побачите, що новий автоматичний електронний лист містить поточну дату або час у темі та тілі, як на зображенні нижче:

Не довіряйте невідомим листам легко

Ви, мабуть, коли-небудь отримували небажані листи. Як ви зазвичай з ними справляєтеся? Небажано завантажувати вкладення або відкривати посилання в таких листах, оскільки вони можуть містити віруси. Після зараження даних Outlook інструмент відновлення папки "Вхідні" Scanpst.exe не працюватиме. У цьому випадку вам нічого не залишається, як вдатися до більш досвідченого Виправлення PST інструмент, такий як DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджені SQL Server та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com