Jei jums dažnai reikia keisti kelių susitikimų priminimo laiką, šis straipsnis jums bus labai naudingas. Čia pateiktas metodas veiksmingai išgelbės jus nuo rankinio priminimo laiko keitimo po vieną.
Ankstesnis straipsnis – „3 žingsniai, kaip sukurti ir pakeisti kalendoriaus elementų priminimus paketais“ pasidalino metodu, kaip masiškai pakeisti daugelio susitikimų priminimo laiką. Tačiau vis tiek pirmiausia reikia pakeisti peržiūros nustatymus ir tada rankiniu būdu pakeisti vieno susitikimo priminimą. Todėl čia mes jums pristatysime kur kas efektyvesnį būdą. Čia parodysime išsamius veiksmus ir konkretų VBA kodą. Taigi, jums nereikia jaudintis, kad neturite žinių apie VBA. Tiesiog skaitykite toliau.
Pakeiskite kelių susitikimų priminimo laiką
- Pačioje pradžioje paleiskite „Outlook“ programą.
- Tada eikite į VBA redaktorių su nuoroda „Kaip paleisti VBA kodą „Outlook“.".
- Tada nukopijuokite ir įklijuokite šį VBA kodą į nenaudojamą modulį.
Sub BatchChangeRemindersMultipleAppointments()
Dim lReminderMinBeforeStart As Long
Dim objSelection As Outlook.Selection
Dim i As Long
Dim objAppointment As Outlook.AppointmentItem
'Enter the number of minutes the reminder should occur prior to the start of the appointment
lReminderMinBeforeStart = InputBox("Enter the reminder minutes before start:", , "45")
Set objSelection = Outlook.ActiveExplorer.Selection
For i = objSelection.Count To 1 Step -1
If TypeOf objSelection.Item(i) Is AppointmentItem Then
Set objAppointment = objSelection.Item(i)
'Enable the reminder
If objAppointment.ReminderSet = False Then
With objAppointment
.ReminderSet = True
.Save
End With
End If
With objAppointment
.ReminderMinutesBeforeStart = lReminderMinBeforeStart
.Save
End With
End If
Next
'Prompt you of "Complete"
MsgBox "Complete!", vbInformation + vbOKOnly
End Sub
- Po to pridėkite šią makrokomandą į juostelę arba greitosios prieigos įrankių juostą.
- Pagaliau galite tai išbandyti.
- Norėdami pradėti, pasirinkite norimus susitikimus.
- Tada spustelėkite makrokomandos mygtuką.
- Toliau iššokančiajame dialogo lange įveskite priminimo minučių skaičių iki susitikimo pradžios.
- Dabar galite patikrinti pasirinktų susitikimų, kurie buvo pakeisti pagal jūsų pageidavimą, priminimo laiką.
Pašalinkite „Outlook“ klaidas
Jei dažnai susiduriate su įvairiomis „Outlook“ klaidomis, turėtumėte imtis ryžtingų priemonių. Pavyzdžiui, turite iš karto sukurti atsarginę Outlook PST failo kopiją, nuskaityti failą, ar nėra virusų ir juos naikinti, išmokti efektyviai panaudoti Scanpst pataisyti PST problemų ir gaukite išorinį taisymo įrankį, pvz., DataNumen Outlook Repair. Tai pravers, kai susidursite su varginančiomis problemomis, kurių nepavyks išspręsti gautųjų taisymo įrankiu.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com