Kā automātiski ievietot pašreizējo datumu vai laiku e-pasta tēmā vai pamattekstā, izmantojot Outlook VBA

Daudzi lietotāji, rakstot jaunu e-pasta ziņojumu, ir pieraduši e-pasta tēmā vai pamattekstā ievietot pašreizējo datumu vai laiku. Šis raksts jums iemācīs, kā to ātri sasniegt.

Iepriekšējā lppost - "Kā automātiski pievienot pašreizējo datumu jūsu Outlook e-pasta priekšmetiem”, varat uzzināt, kā tēmai automātiski pievienot pašreizējo datumu vai laiku. Bet metode tajā lppost ir vienkārši izveidot pielāgotu ziņojuma formu. Tādējādi katru reizi, kad vēlaties izveidot jaunu e-pasta ziņojumu ar pašreizējo datumu vai laiku tēmā, jums ir jāizvēlas pielāgotā forma, nevis jāizveido jauns e-pasts kā parasti. Acīmredzot tas būs diezgan apgrūtinoši.

Patiesībā programma Outlook mums jau ir piedāvājusi vietējo lauku datuma vai laika ievietošanai. Varat arī lietot Outlook VBA, lai automātiski ievietotu pašreizējo datumu vai laiku jaunā e-pasta ziņojuma pamattekstā vai tēmā. Tas, kādu metodi izvēlaties, ir atkarīgs no tā, cik bieži jums jāievada datums vai laiks.

Manuāli ievietojiet pēc lauka “Datums un laiks”.

1. Uz start, palaidiet programmu Outlook.
2. Pēc tam izveidojiet jaunu ziņojumu, noklikšķinot uz pogas "Jauns e-pasts" cilnes "Sākums" grupā "Jauns".
3. Pēc tam logā Jauns ziņojums varat noklikšķināt uz e-pasta pamatteksta un pāriet uz cilni “Ievietot”.
4. Pēc tam varat atrast un noklikšķināt uz lauka "Datums un laiks" grupā "Teksts".
5. Pēc tam parādīsies jauns dialoglodziņš. Varat izvēlēties pieejamo formātu un pēc tam noklikšķināt uz pogas “OK”.
6. Pēc atgriešanās ziņojuma logā e-pasta ziņojuma pamattekstā varat redzēt pašreizējo datumu vai laiku. Pēc noklusējuma programma Outlook neļauj objektam lietot lauku “Datums un laiks”.
7. Tādējādi, visbeidzot, ja vēlaties objektam ievietot datumu vai laiku, tie ir jākopē no pamatteksta un jāielīmē objektā manuāli.

Šī metode ir ieteicamāka, ja jums reti jāievada pašreizējais datums vai laiks. Bet ar nosacījumu, ka jums bieži vai vienmēr ir nepieciešams ievietot, labāk izmantot tālāk norādītos VBA kodus, lai to sasniegtu automātiski.

Automātiskā ievietošana, izmantojot Outlook VBA

1. Pirmkārt, nospiediet taustiņu "Alt + F11", lai piekļūtu VBA redaktoram.
2. Pēc tam veiciet dubultklikšķi uz projekta “ThisOutlookSession” kreisajā pusē, lai to atvērtu.
3. Pēc tam nokopējiet tajā tālāk norādītos kodus.

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

Piezīme: Iepriekš minētie kodi darbosies, lai objektā un pamattekstā automātiski ievietotu pašreizējo laiku. Ja vēlaties ievietot pašreizējo datumu, aizstājiet "objMail_Open”apakšraksts ar šādu tekstu:

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. Pēc tam parakstiet šo kodu kā parasti.
5. Vēlāk reztart Outlook, lai aktivizētu makro.
6. Beidzot jūs varat izmēģināt.

• Tieši noklikšķiniet uz pogas "Jauns e-pasts", lai atvērtu jaunu e-pastu.
• Jūs pamanīsit, ka jaunā e-pasta automātiskā tēmā un pamattekstā ir pašreizējais datums vai laiks, piemēram, attēlā zemāk:

Neuzticieties nezināmiem e-pastiem

Jūs noteikti kādreiz esat saņēmis nevēlamus e-pastus. Kā jūs parasti ar viņiem tiekat galā? Šāda veida vēstulēs nav ieteicams lejupielādēt pielikumus vai atvērt saites, jo tajos var būt vīrusi. Tiklīdz jūsu Outlook dati tiek inficēti, iesūtnes labošanas rīks Scanpst.exe nedarbosies. Šajā gadījumā jums neatliek nekas cits, kā ķerties pie pieredzējušāka PST labojums rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp bojāts SQL Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar