Batch wijzigen De herinneringstijd van meerdere afspraken wijzigen met Outlook VBA

Als u vaak de herinneringstijd van meerdere afspraken moet wijzigen, zal dit artikel u aanzienlijk helpen. De methode hier zal u effectief behoeden voor het handmatig één voor één wijzigen van de herinneringstijd.

Het vorige artikel - "3 stappen om herinneringen voor agenda-items in batches te maken en te wijzigen” heeft een methode gedeeld om de herinneringstijd van veel afspraken in bulk te wijzigen. Toch moet u nog steeds eerst de weergave-instellingen wijzigen en vervolgens de herinnering van één afspraak handmatig wijzigen. Daarom zullen we u hier een veel effectievere manier voorstellen. Hier laten we de gedetailleerde stappen en concrete VBA-code zien. U hoeft zich dus geen zorgen te maken dat u geen kennis heeft van VBA. Lees gewoon verder.

Batch Wijzig de herinneringstijd van meerdere afspraken

1. Start allereerst het programma Outlook.
2. Open vervolgens de VBA-editor met verwijzing naar "Hoe u VBA-code in uw Outlook uitvoert'.
3. Kopieer en plak vervolgens de volgende VBA-code in een ongebruikte module.

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

4. Voeg daarna deze macro toe aan het lint of de werkbalk Snelle toegang.
5. Eindelijk kun je het proberen.

• Selecteer om te beginnen de gewenste afspraken.
• Klik vervolgens op de macroknop.
• Voer vervolgens in het pop-upvenster het aantal minuten in dat als herinnering moet worden weergegeven voordat de afspraak begint.
• Nu kunt u de herinneringstijd van de geselecteerde afspraken controleren, die naar uw wens zijn aangepast.

Elimineer Outlook-fouten

Als u regelmatig diverse fouten tegenkomt in Outlook, moet u een aantal robuuste maatregelen nemen. U moet bijvoorbeeld in één keer een back-up maken van uw Outlook PST-bestand, het bestand scannen op virussen en ze doden, leren hoe u Scanpst effectief kunt gebruiken om repareer PST problemen en krijg een externe fix-tool, zoals DataNumen Outlook Repair. Het is handig als u lastige problemen tegenkomt die niet kunnen worden opgelost door de inbox-reparatietool.

Auteur Inleiding:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql-oplossing en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com