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

or

Sut i atal Outlook rhag atgoffa'n rhy gynnar neu'n rhy hwyr?

Er enghraifft, rydych chi'n gweithio rhwng 9:00 am a 6:00 pm bob dydd, ond nawr rydych chi'n gwneud apwyntiad am 10:00 am ac yn ychwanegu nodyn atgoffa o 2 awr ar ei gyfer yn Outlook. Mae hynny'n golygu y bydd y nodyn atgoffa yn gweithio am 8:00 am cyn i'ch gwaith ddechrau. Ar y llaw arall, gall y nodyn atgoffa swnio ganol nos mewn achosion arbennig. Mae hynny'n eithaf anghyfleus, ac efallai y bydd rhai defnyddwyr Outlook eisiau atal Outlook rhag atgoffa'n rhy gynnar neu'n rhy hwyr. Yma, byddaf yn cyflwyno macro VBA i chi ei ddatrys yn Outlook.

Tab Swyddfa - Galluogi Golygu a Phori Tabbed yn y Swyddfa, a Gwneud Gwaith yn Haws Orau ...
Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch Pwerus i Microsoft Outlook
  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl rheolau; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangos 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 ar unwaith; Auto Ychwanegu Cyfarchiad wrth ateb; Auto Ychwanegu Dyddiad ac Amser yn destun ...
  • Offer Ymlyniad: Auto Detach, Cywasgu Pawb, Ail-enwi Pawb, Auto Save All ... Adroddiad Cyflym, Cyfrif Postiau Dethol, Tynnwch y Post a Chysylltiadau Dyblyg ...
  • Bydd mwy na 100 o nodweddion datblygedig datrys y rhan fwyaf o'ch problemau yn Outlook 2010-2019 a 365. Nodweddion llawn treial am ddim 60 diwrnod.

Er mwyn atal Outlook rhag atgoffa'n rhy gynnar neu'n rhy hwyr, gallwch wneud fel a ganlyn:

Cam 1: Pwyswch y Alt + F11 allweddi yn y cyfamser i agor ffenestr Microsoft Visual Basic for Applications.

Cam 2: Ehangu'r Gwrthrychau Microsoft Outlook yn y cwarel chwith, a gludwch y macro VBA canlynol i'r ThisOutlookSession.

VBA: Atal atgoffa yn rhy gynnar neu'n rhy hwyr yn Outlook

Public WithEvents g_CalendarItems As Outlook.Items
Public Sub Application_Startup()
Set g_CalendarItems = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub g_CalendarItems_ItemAdd(ByVal Item As Object)
CheckReminder Item
End Sub
Private Sub g_CalendarItems_ItemChange(ByVal Item As Object)
CheckReminder Item
End Sub
Sub CheckReminder(ByVal Item As Object)
On Error GoTo ProcError
Dim strProcName As String
strProcName = "CheckReminder"
reminderMaxHour = 20
reminderMinHour = 9
Dim aAptItem As Outlook.AppointmentItem
Set aAptItem = Item
If aAptItem.ReminderSet Then
Dim reminderDate As Date
reminderDate = aAptItem.Start - aAptItem.ReminderMinutesBeforeStart / (24 * 60)
reminderHour = (reminderDate - Int(reminderDate)) * 24
tolerance = 0.01 ' avoid floating point small diffs (little bit less than a min)
If reminderHour < reminderMinHour - tolerance Or reminderHour > reminderMaxHour + tolerance Then
' best guess, first try to advance to next minHour
reminderDateSuggestion = reminderDate + (reminderMinHour - reminderHour) / 24
' verify if first guess is valid
If reminderHour < reminderMinHour - tolerance And reminderDateSuggestion <= aAptItem.Start Then
' OK, first guess is valid, keep it
ElseIf reminderHour > reminderMaxHour Then
' go back to max hour (same day)
reminderDateSuggestion = reminderDate - (reminderHour - reminderMaxHour) / 24
Else
' go back to max hour (previous day)
reminderDateSuggestion = reminderDate - (reminderHour + 24 - reminderMaxHour) / 24
End If
rep = MsgBox("The Reminder time is out of specified working period. Would you like to change the Reminder time?" , vbQuestion + vbYesNoCancel)
If rep = vbCancel Then
aAptItem.Display
ElseIf rep = vbYes Then
aAptItem.ReminderMinutesBeforeStart = (aAptItem.Start - reminderDateSuggestion) * 24 * 60
aAptItem.Save
End If
End If
End If
ProcExit:
Exit Sub
ProcError:
MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & vbCrLf & "In procedure: " & strProcName
End Sub

 

Nodyn: Gallwch chi nodi'ch cyfnod gwaith gyda newid y paramedrau canlynol yn y cod VBA uchod:
atgoffaMaxHour = 20
atgoffaMinHour = 9

Cam 3: Arbedwch y VBA hwn, ac ailgychwynwch eich Microsoft Outlook.

O hyn ymlaen, wrth greu apwyntiad gydag amser atgoffa allan ohonoch yn nodi'r cyfnod gwaith, bydd yn popio blwch deialog i'ch atgoffa ar ôl i chi glicio ar y Arbed a Chau botwm.

Os yw'r amser atgoffa yn gynharach na'r nodyn atgoffa penodedig, cliciwch ar y Ydw yn y blwch deialog, bydd yn newid yr amser atgoffa ac yn gwneud i'r nodyn atgoffa swnio yn y nodyn atgoffa penodedig.

Os yw'r amser atgoffa yn hwyrach na'r nodyn atgoffa penodolMaxHour, cliciwch y Ydw yn y blwch deialog, bydd yn newid yr amser atgoffa ac yn eich atgoffa yn y nodyn atgoffa penodedigMaxHour.

Nodyn: Mae'r cod VBA hwn yn gweithio'n dda gydag Outlook 2013, ond nid yw'n gweithio gydag Outlook 2010 a 2007.


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.