Как автоматически вставить текущую дату или время в тему или тело электронной почты с помощью Outlook VBA

Многие пользователи привыкли вставлять текущую дату или время в тему или тело электронного письма при составлении нового электронного письма. Эта статья научит вас, как добиться этого в кратчайшие сроки.

В предыдущем рost - "Как автоматически добавлять текущую дату в темы ваших электронных писем Outlook», вы можете узнать, как автоматически добавлять текущую дату или время к теме. Но метод в этом рost это просто создать пользовательскую форму сообщения. Таким образом, каждый раз, когда вы хотите создать новое электронное письмо с текущей датой или временем в теме, вам нужно выбрать настраиваемую форму вместо того, чтобы создавать новое электронное письмо, как обычно. Понятно, что это будет весьма громоздко.

На самом деле, Outlook уже предложил нам собственное поле для вставки даты или времени. Кроме того, вы можете применить Outlook VBA для автоматической вставки текущей даты или времени в тело или тему нового электронного письма. Что касается того, какой метод вы выберете, это зависит от того, как часто вам нужно вставлять дату или время.

Вставить вручную в поле «Дата и время»

1. К starт с, запустите 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» sub со следующим:

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 и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com