Как да вмъкнете автоматично текущата дата или час в тема или тяло на имейл с Outlook VBA

Много потребители са свикнали да вмъкват текущата дата или час в темата или тялото на имейла, когато съставят нов имейл. Тази статия ще ви научи как да го постигнете за бързо време.

В предишната стрost - "Как да добавите автоматично текущата дата към предметите на вашите имейли в Outlook”, можете да научите как автоматично да добавяте текущата дата или час към темата. Но методът в този post е просто да създадете персонализирана форма на съобщение. По този начин всеки път, когато искате да създадете нов имейл с текущата дата или час в темата, трябва да изберете персонализираната форма, вместо да създавате нов имейл, както обикновено. Очевидно ще бъде доста тромаво.

Всъщност Outlook вече ни предложи собствено поле за вмъкване на дата или час. Освен това можете да приложите Outlook VBA за автоматично вмъкване на текущата дата или час в тялото или темата на новия имейл. Що се отнася до метода, който изберете, зависи от това колко често трябва да вмъквате датата или часа.

Ръчно вмъкване по поле „Дата и час“.

1. Към starт, стартирайте Outlook.
2. След това създайте ново съобщение, като щракнете върху бутона „Нов имейл“ в групата „Ново“ в раздела „Начало“.
3. След това в прозореца за ново съобщение можете да щракнете върху тялото на имейла и да преминете към раздела „Вмъкване“.
4. След това можете да намерите и щракнете върху полето „Дата и час“ в групата „Текст“.
5. След това ще се появи нов диалогов прозорец. Можете да изберете наличен формат и след това да щракнете върху бутона „OK“.
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 и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com