Slik endrer du påminnelsestidspunkt for flere avtaler med Outlook VBA

Hvis du ofte trenger å endre påminnelsestiden for flere avtaler, vil denne artikkelen være til stor hjelp for deg. Metoden her vil effektivt spare deg for å manuelt endre påminnelsestidspunktet én etter én.

Den forrige artikkelen – "3 trinn for å opprette og endre påminnelser for kalenderelementer i grupper” har delt en metode for å masseendre mange avtalers påminnelsestid. Likevel krever det fortsatt at du først endrer visningsinnstillingene og deretter endrer en avtales påminnelse manuelt. Derfor vil vi her introdusere deg en mye mer effektiv måte. Her vil vi vise de detaljerte trinnene og konkret VBA-kode. Derfor trenger du ikke bekymre deg for å ikke ha kunnskap om VBA. Bare les videre.

Batch Endre påminnelsestidspunktet for flere avtaler

1. Helt i begynnelsen, start Outlook-programmet.
2. Gå deretter til VBA-editor med referanse til "Hvordan kjøre VBA-kode i Outlook".
3. Deretter kopierer og limer du inn følgende VBA-kode i en ubrukt 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. Etter det legger du til denne makroen på båndet eller hurtigtilgangsverktøylinjen.
5. Til slutt kan du prøve det.

• Til å begynne med velger du avtalene du ønsker.
• Klikk deretter på makroknappen.
• Deretter, i popup-dialogboksen, angi antall påminnelsesminutter før avtalen starter.
• Nå kan du sjekke påminnelsestidspunktet for de valgte avtalene, som har blitt endret etter ditt ønske.

Eliminer Outlook-feil

Hvis du ofte støter på diverse feil i Outlook, bør du gjøre noen robuste tiltak. Du må for eksempel sikkerhetskopiere Outlook PST-filen din med en gang, skanne filen for virus og drepe dem, lære hvordan du effektivt bruker Scanpst for å fikse PST problemer og få tak i et eksternt fikseverktøy, som f.eks DataNumen Outlook Repair. Det vil komme godt med når du støter på plagsomme problemer som ikke kan håndteres av reparasjonsverktøyet for innboksen.

Forfatterinnledning:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql fikse og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med