Skip to main content

Conas cosc ​​a chur ar Outlook a mheabhrú ró-luath nó ró-mhall?

Mar shampla, oibríonn tú ó 9:00 am go dtí 6:00 in gach lá, ach anois tá coinne á dhéanamh agat ag 10:00 am agus cuir meabhrúchán 2 uair an chloig leis in Outlook. Is é sin le rá go n-oibreoidh an meabhrúchán ag 8:00 am sula dtosóidh do chuid oibre. Ar an láimh eile, d’fhéadfadh go mbeadh an meabhrúchán fuaime i lár na hoíche i gcásanna speisialta. Tá sé sin deacair go leor, agus b’fhéidir go mbeidh roinnt úsáideoirí Outlook ag iarraidh cosc ​​a chur ar Outlook a mheabhrú ró-luath nó ró-mhall. Tabharfaidh mé macra VBA isteach anseo chun tú a réiteach in Outlook.

Cluaisín Oifige - Cumasaigh Eagarthóireacht agus Brabhsáil Tábáilte i Microsoft Office, Ag Cur le hObair
Kutools le haghaidh Outlook - Treisiú Outlook le 100+ Gnéithe Casta le haghaidh Éifeachtúlacht Superior
Treisigh do Outlook 2021 - 2010 nó Outlook 365 leis na hardghnéithe seo. Bain sult as triail chuimsitheach 60-lá saor in aisce agus ardaigh do thaithí ríomhphoist!

Chun cosc ​​a chur ar Outlook a mheabhrú ró-luath nó ró-mhall, is féidir leat déanamh mar a leanas:

Céim 1: Brúigh an Eile + F11 idir an dá linn chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

Céim 2: Leathnaigh an Microsoft Outlook Object sa phána chlé, agus greamaigh an macra VBA seo a leanas isteach sa ThisOutlookSession.

VBA: Cosc a chur i gcuimhne ró-luath nó ró-mhall in 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

 

nótaí: Féadfaidh tú do thréimhse oibre a shonrú leis na paraiméadair seo a leanas a athrú sa chód VBA thuas:
meabhrúchánMaxHour = 20
meabhrúchánMinHour = 9

Céim 3: Sábháil an VBA seo, agus déan do Microsoft Outlook a atosú.

As seo amach, agus coinne á chruthú agat le ham meabhrúcháin uait agus an tréimhse oibre á shonrú agat, cuirfidh sé bosca dialóige aníos chun tú a mheabhrú tar éis duit an Sábháil & Dún cnaipe.

Má tá an t-am meabhrúcháin níos luaithe ná an meabhrúchán sonraitheMinHour, cliceáil an Is ea sa bhosca dialóige, athróidh sé an t-am meabhrúcháin agus cuirfidh sé fuaim an mheabhrúcháin ag an meabhrúchán sonraitheMinHour.

Má tá an t-am meabhrúcháin níos déanaí ná an meabhrúchán sonraitheMaxHour, cliceáil an Is ea sa bhosca dialóige, athróidh sé an t-am meabhrúcháin agus meabhróidh sé duit ag an meabhrúchán sonraitheMaxHour.

Nóta: Oibríonn an cód VBA seo go maith le Outlook 2013, ach ní oibríonn sé le Outlook 2010 agus 2007.


Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin ProSábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations