Kā automātiski iestatīt šodienu kā jauna uzdevuma sākuma datumu programmā Outlook

Veidojot jaunu uzdevumu programmā Outlook, ja bieži nepieciešams iestatīt šodienu kā sākuma datumu, ir jānorāda, ka programma Outlook to izpilda automātiski. Šajā rakstā tiks aplūkota šī prasība, lai nodrošinātu vienkāršu metodi.

Pēc noklusējuma, noklikšķinot uz “Izveidot jaunu uzdevumu” programmā Outlook, uzdevums tiks parādīts ar iestatītu “Sākuma datumu” uz “Nav”, kā parādīts nākamajā attēlā. Tomēr visbiežāk esat pieradis sākuma datumu iestatīt uz pašreizējo datumu. Tāpēc datums laukā “Sākuma datums” ir jāievada vai jāizvēlas manuāli. Šādā gadījumā varat cerēt, ka Outlook var automātiski iestatīt šodienu kā jaunā uzdevuma sākuma datumu. Lai gan šādas tiešas funkcijas nav, to joprojām var iegūt, izmantojot tālāk norādīto koplietoto VBA kodu. Ja neesat pazīstams ar VBA, lūdzu, skatiet sadaļu “Kā palaist VBA kodu programmā OutlookTikmēr.

Automātiski iestatīt šodienu kā jauna uzdevuma sākuma datumu

1. Vispirms palaidiet programmu Outlook.
2. Pēc tam nospiediet “Alt + F11”, lai aktivizētu Outlook VBA redaktoru.
3. Pēc tam kopējiet šo kodu projektā “ThisOutlookSession”.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objTask As Outlook.TaskItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

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

Private Sub objTask_Open(Cancel As Boolean)
    'When opening a fresh new task item
    If Len(objTask.Subject) = 0 And Len(objTask.Body) = 0 And objTask.startDate = #1/1/4501# And objTask.DueDate = #1/1/4501# Then
 
       'Set start date to today
       objTask.startDate = Date
    End If
End Sub

4. Pēc tam pārvietojiet kursoru uz pirmo apakšprogrammu “Application_Startup”.
5. Vēlāk nospiediet taustiņa “F5” taustiņu.
6. Kopš tā laika katru reizi, kad izveidojat jaunu uzdevumu, Outlook automātiski iestatīs sākuma datumu uz pašreizējo datumu, proti, šodienu, kā parādīts nākamajā attēlā.

Sargieties no ļaunprātīgiem makro programmā Outlook

Lai gan VBA makro sniedz lietotājiem daudz ērtības un iespējas, tas arī rada daudzus potenciālos riskus. Piemēram, ja jūs iestatāt makro iestatījumus atļaut visus makro bez paziņojuma, kad e-pasts ar ļaunprātīgām makro ienāk jūsu pastkastē un atverat tajā iegultās saites, jūsu Outlook datu failam mēdz uzbrukt vīrusi. Tajā laikā jums ir jānogalina vīrusi un jāmēģina Outlook remontsVairumā gadījumu iebūvētais rīks — Scanpst — nevar tikt galā ar šo uzdevumu. Tāpēc jums vajadzētu izsaukt jaudīgāku utilītu, 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 sql atgūšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar