Ja jums bieži ir jāmaina vairāku tikšanos atgādinājuma laiks, šis raksts jums būs ļoti noderīgs. Šeit izmantotā metode efektīvi ietaupīs, ja manuāli mainīsit atgādinājuma laiku pa vienam.
Iepriekšējais raksts - “3 soļi, lai izveidotu un mainītu atgādinājumus par kalendāra vienumiem paketēs”Ir kopīgojusi metodi, kā mainīt daudzu tikšanās atgādinājumu laiku. Tomēr tas joprojām prasa vispirms mainīt skata iestatījumus un pēc tam manuāli mainīt vienas tikšanās atgādinājumu. Tāpēc šeit mēs jūs iepazīstināsim ar daudz efektīvāku veidu. Šeit mēs parādīsim detalizētas darbības un konkrētu VBA kodu. Tādējādi jums nav jāuztraucas par to, ka jums nav zināšanu par VBA. Vienkārši lasiet tālāk.
Sērija Mainīt vairāku tikšanos atgādinājuma laiku
- Pašā sākumā palaidiet programmu Outlook.
- Pēc tam piekļūstiet VBA redaktoram, atsaucoties uzKā palaist VBA kodu programmā Outlook".
- Pēc tam nokopējiet un ielīmējiet šo VBA kodu neizmantotajā 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
- Pēc tam pievienojiet šo makro lentei vai ātrās piekļuves rīkjoslai.
- Visbeidzot, jūs varat to izmēģināt.
- Vispirms atlasiet vēlamās tikšanās.
- Pēc tam noklikšķiniet uz makro pogas.
- Pēc tam uznirstošajā dialoglodziņā ievadiet atgādinājuma minūšu skaitu pirms tikšanās sākuma.
- Tagad jūs varat pārbaudīt atgādinājumu laiku par izvēlētajām tikšanām, kuras ir pielāgotas jūsu vēlmēm.
Novērst Outlook kļūdas
Ja programmā Outlook bieži sastopaties ar dažādām kļūdām, jums jāveic daži stingri pasākumi. Piemēram, jums nekavējoties jādublē Outlook PST fails, jāpārbauda, vai failā nav vīrusu un tos jānogalina, jāiemācās efektīvi izmantot Scanpst noteikt PST problēmas un iegūstiet ārēju labošanas rīku, piemēram, DataNumen Outlook Repair. Tas būs noderīgi, ja rodas sarežģītas problēmas, kuras nevar tikt galā ar iesūtnes labošanas rīku.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar