Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i osod y dyddiad cychwyn diofyn fel heddiw wrth greu tasg newydd yn Outlook?

Pan fyddwn yn creu tasg newydd yn Outlook, y dasg gyda “Dyddiad Cychwyn”Yn cael ei arddangos gyda “Dim”Yn ddiofyn fel y dangosir y screenshot canlynol. Ond, weithiau, mae angen i chi osod heddiw fel ei ddyddiad Cychwyn yn aml, felly, mae'n rhaid i chi ddewis y dyddiad ym maes “Dyddiad cychwyn” â llaw bob tro. A oes unrhyw ffordd gyflym o osod y dyddiad cychwyn diofyn fel heddiw yn awtomatig wrth greu tasg newydd yn Outlook?

Gosodwch y dyddiad cychwyn diofyn fel heddiw wrth greu tasg newydd gyda chod VBA yn Outlook


Gosodwch y dyddiad cychwyn diofyn fel heddiw wrth greu tasg newydd gyda chod VBA yn Outlook

Efallai nad oes unrhyw ffordd dda arall o ddelio â'r dasg hon yn Outlook yn uniongyrchol, yma, byddaf yn cyflwyno cod VBA i'w ddatrys. Gwnewch y camau canlynol:

1. Lansio'r Rhagolwg, ac yna dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith ThisOutlookSession oddi wrth y Prosiect1 (VbaProject.OTM) cwarel i agor y modd, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.

Cod VBA: Gosodwch y dyddiad cychwyn diofyn fel heddiw:

Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xTaskItem As Outlook.TaskItem
Private Sub Application_Startup()
   Set xInspectors = Outlook.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
    If Not (TypeOf Inspector.CurrentItem Is TaskItem) Then Exit Sub
    Set xTaskItem = Inspector.CurrentItem
End Sub
Private Sub xTaskItem_Open(Cancel As Boolean)
If (Len(xTaskItem.Subject) = 0 And Len(xTaskItem.Body) = 0) And (xTaskItem.StartDate = #1/1/4501# And xTaskItem.DueDate = #1/1/4501#) Then
    xTaskItem.StartDate = Now
End If
End Sub

3. Ar ôl mewnosod y cod, yna rhowch y cyrchwr yn yr ail adran cod, a gwasgwch F5 allwedd i redeg y cod hwn, gweler y screenshot:

4. Ers hynny, pan fyddwch chi'n creu tasg newydd bob tro, bydd Outlook yn gosod y dyddiad cychwyn a'r dyddiad gorffen i'r dyddiad cyfredol yn ddiofyn fel y dangosir y screenshot canlynol:


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.