Sådan batch ændres påmindelsestiden for flere aftaler med Outlook VBA

Hvis du ofte har brug for at ændre påmindelsestidspunktet for flere aftaler, vil denne artikel være meget nyttig for dig. Metoden her vil effektivt spare dig for manuelt at ændre påmindelsestidspunktet én efter én.

Den forrige artikel - “3 trin til at oprette og ændre påmindelser for kalenderelementer i batches” har delt en metode til at masseændre mange aftalers påmindelsestid. Alligevel kræver det stadig, at du først ændrer visningsindstillingerne og derefter ændrer en aftales påmindelse manuelt. Derfor vil vi her introducere dig på en meget mere effektiv måde. Her vil vi vise de detaljerede trin og konkrete VBA-kode. Derfor behøver du ikke bekymre dig om ikke at have nogen viden om VBA. Bare læs videre.

Batch Skift påmindelsestidspunktet for flere aftaler

1. Start Outlook-programmet helt i starten.
2. Tilgå derefter VBA-editor med henvisning til "Sådan køres VBA-kode i din Outlook".
3. Kopier derefter og indsæt følgende VBA-kode i et ubrugt 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

4. Derefter skal du tilføje denne makro til bånd eller værktøjslinjen Hurtig adgang.
5. Endelig kan du prøve det.

• Til at begynde med skal du vælge de aftaler, du ønsker.
• Klik derefter på makroknappen.
• Indtast derefter antallet af påmindelsesminutter før aftalens start i pop op-dialogboksen.
• Nu kan du tjekke påmindelsestidspunktet for de valgte aftaler, som er blevet ændret efter dit ønske.

Fjern Outlook-fejl

Hvis du ofte støder på diverse fejl i Outlook, bør du træffe nogle robuste foranstaltninger. For eksempel skal du sikkerhedskopiere din Outlook PST-fil på én gang, scanne filen for vira og dræbe dem, lære, hvordan du effektivt anvender Scanpst til at rette PST problemer og få fat i et eksternt fixværktøj, som f.eks DataNumen Outlook Repair. Det vil være praktisk, når du støder på besværlige problemer, som ikke kan klares af indbakkereparationsværktøjet.

Forfatter introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com