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.
- Uathoibriú ríomhphost le Auto CC / BCC, Auto Ar Aghaidh le rialacha; seol Freagra Auto (As Oifig) gan freastalaí malartaithe a bheith ag teastáil...
- Faigh meabhrúcháin cosúil le Rabhadh BCC nuair a thugann tú freagra ar gach duine agus tú ar an liosta BCC, agus Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh le haghaidh ceangaltán dearmadta...
- Feabhas a chur ar éifeachtacht ríomhphoist le Freagra (Gach) Le Ceangaltáin, Auto Cuir Beannacht nó Dáta & Am isteach i Síniú nó Ábhar, Freagair Ríomhphoist Il...
- Sruthlínigh ríomhphost le Ríomhphoist a Athghairm, Uirlisí Ceangail (Comhbhrúigh Uile, Sábháil Uile...), Bain Dúblaigh, agus Tuarascáil Thapa...
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 Pro: Sá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.