Kuriant naują užduotį programoje „Outlook“ ir dažnai norint nustatyti šios dienos pradžios datą, reikia nustatyti, kad programa „Outlook“ ją atliktų automatiškai. Šiame straipsnyje aptarsime šį reikalavimą, kad būtų pateiktas paprastas metodas.
Pagal numatytuosius nustatymus, kai „Outlook“ programoje spustelėsite „Sukurti naują užduotį“, užduotis bus rodoma su „Pradžios data“, nustatyta kaip „Nėra“, kaip parodyta toliau pateiktame paveikslėlyje. Tačiau dažniausiai esate įpratę nustatyti pradžios datą į dabartinę datą. Todėl lauke „Pradžios data“ turite įvesti arba pasirinkti datą rankiniu būdu. Tokiu atveju galite tikėtis, kad „Outlook“ automatiškai nustatys šiandieną kaip naujos užduoties pradžios datą. Nors tokios tiesioginės funkcijos nėra, vis tiek galite ją gauti naudodami toliau pateiktą bendrą VBA kodą. Jei nesate susipažinę su VBA, žr. „Kaip paleisti VBA kodą „Outlook“.“ tuo tarpu.
Automatiškai nustatyti šiandieną kaip naujos užduoties pradžios datą
- Norėdami pradėti, paleiskite „Outlook“ programą.
- Tada paspauskite „Alt + F11“, kad suaktyvintumėte „Outlook VBA“ redaktorių.
- Tada nukopijuokite šį kodą į 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
- Po to perkelkite žymeklį į pirmąją „Application_Startup“ subrutiną.
- Vėliau paspauskite mygtuką „F5“.
- Nuo tada kiekvieną kartą kuriant naują užduotį, „Outlook“ automatiškai nustatys pradžios datą į dabartinę datą, būtent šiandien, kaip parodyta toliau pateiktame paveikslėlyje.
Saugokitės kenkėjiškų makrokomandų programoje „Outlook“.
Nors VBA makrokomanda suteikia vartotojams daug patogumo ir galimybių, ji taip pat kelia daug galimų pavojų. Pavyzdžiui, jei nustatote makrokomandos nustatymus taip, kad visos makrokomandos būtų leidžiamos be įspėjimo, kai į jūsų pašto dėžutę patenka el. laiškas su kenkėjiškomis makrokomandomis ir atidarote jo įterptąsias nuorodas, jūsų „Outlook“ duomenų failas yra linkęs užpulti virusų. Tuo metu jūs turite nužudyti virusus ir bandyti „Outlook“ taisymasDažniausiai integruotas įrankis – „Scanpst“ – negali atlikti šios užduoties. Todėl turėtumėte pasitelkti patikimesnę programą, pvz. DataNumen Outlook Repair.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com