Outlook VBA көмегімен электрондық пошта тақырыбына немесе негізгі мәтініне ағымдағы күнді немесе уақытты автоматты түрде енгізу жолы

Көптеген пайдаланушылар жаңа электрондық поштаны жасау кезінде электрондық пошта тақырыбына немесе негізгі мәтініне ағымдағы күнді немесе уақытты енгізуге дағдыланады. Бұл мақала сізге тез арада қалай жетуге болатынын үйретеді.

Алдыңғы бost - «Электрондық поштаңыздың тақырыптарына ағымдағы күнді автоматты түрде қалай қосуға болады”, тақырыпқа ағымдағы күнді немесе уақытты автоматты түрде қосу жолын үйренуге болады. Бірақ бұл әдіс бost жай ғана хабардың теңшелетін пішінін жасау болып табылады. Осылайша, тақырыпта ағымдағы күні немесе уақыты бар жаңа электрондық поштаны жасағыңыз келген сайын, әдеттегідей жаңа электрондық поштаны жасаудың орнына теңшелетін пішінді таңдауыңыз керек. Бұл өте қиын болатыны анық.

Шын мәнінде, Outlook күні немесе уақытты енгізу үшін бізге жергілікті өрісті ұсынды. Сондай-ақ, жаңа электрондық поштаның негізгі немесе тақырыбына ағымдағы күнді немесе уақытты автоматты түрде кірістіру үшін Outlook VBA қолданбасын қолдануға болады. Қай әдісті таңдайтыныңызға келетін болсақ, ол күнді немесе уақытты қаншалықты жиі енгізу керектігіне байланысты.

«Күн және уақыт» өрісі бойынша қолмен кірістіру

1. Кімгеtart көмегімен Outlook бағдарламасын іске қосыңыз.
2. Содан кейін «Басты» қойындысының астындағы «Жаңа» тобындағы «Жаңа электрондық пошта» түймесін басу арқылы жаңа хабарлама жасаңыз.
3. Содан кейін, Жаңа хабарлама терезесінде сіз электрондық поштаның негізгі бөлігін басып, «Кірістіру» қойындысына ауыса аласыз.
4. Одан кейін «Мәтін» тобындағы «Күн және уақыт» өрісін тауып, басуға болады.
5. Осыдан кейін жаңа диалогтық терезе пайда болады. Қолжетімді пішімді таңдап, «OK» түймесін басуға болады.
6. Хабарлама терезесіне оралғаннан кейін электрондық пошта мәтінінде ағымдағы күнді немесе уақытты көре аласыз. Әдепкі бойынша, Outlook бағдарламасы тақырыпқа «Күн және уақыт» өрісін қолдануға рұқсат бермейді.
7. Демек, ақырында, тақырыптың күнін немесе уақытын енгізгіңіз келсе, оларды негізгі мәтіннен көшіріп, тақырыпқа қолмен қоюыңыз керек.

Ағымдағы күнді немесе уақытты сирек енгізу қажет болса, бұл әдіс көбірек ұсынылады. Бірақ жиі немесе үнемі енгізу қажет болса, оған автоматты түрде қол жеткізу үшін келесі VBA кодтарын қолданған дұрыс.

Outlook VBA көмегімен автоматты кірістіру

1. Біріншіден, VBA редакторына кіру үшін «Alt + F11» пернелерін басыңыз.
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