Mitme kohtumise meeldetuletusaja paketi muutmine Outlook VBA abil

Kui teil on sageli vaja mitme kohtumise meeldetuletusaega muuta, on see artikkel teile palju abiks. Siinne meetod säästab teid tõhusalt meeldetuletusaja käsitsi muutmisest ükshaaval.

Eelmine artikkel - "3 sammu, et luua ja muuta meeldetuletusi kalendriüksuste partiidena” on jaganud meetodit paljude kohtumiste meeldetuletusaja hulgi muutmiseks. Siiski nõuab see ikkagi esmalt vaate seadete muutmist ja seejärel ühe kohtumise meeldetuletuse käsitsi muutmist. Seetõttu tutvustame siin teile palju tõhusamat viisi. Siin näitame üksikasjalikke samme ja konkreetset VBA koodi. Seega ei pea te muretsema, et teil pole VBA-st teadmisi. Lihtsalt loe edasi.

Mitme kohtumise meeldetuletusaja paketi muutmine

  1. Päris alguses, start Outlooki programm.
  2. Seejärel avage VBA redaktor, viidates "Kuidas Outlookis VBA-koodi käivitada".
  3. Järgmisena kopeerige ja kleepige järgmine VBA kood kasutamata moodulisse.
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

VBA kood – mitme kohtumise meeldetuletusaja pakettmuutmine

  1. Pärast seda lisage see makro lindile või kiirjuurdepääsu tööriistaribale.
  2. Lõpuks võite proovida.
  • Alustuseks valige soovitud kohtumised.
  • Seejärel klõpsake makro nuppu.Käivitage valitud kohtumistel makro
  • Järgmisena sisestage hüpikaknasse meeldetuletuse minutite arv enne kohtumisttart.Sisestage meeldetuletusminutid enne kirjet Start
  • Nüüd saate kontrollida valitud kohtumiste meeldetuletusaega, mida on teie soovi järgi muudetud.Muudetud meeldetuletuse aeg

Välistage Outlooki vead

Kui teil esineb Outlookis sageli mitmesuguseid tõrkeid, peaksite võtma mõned jõulised meetmed. Näiteks peate oma Outlooki PST-faili korraga varundama, skannima faili viiruste ja nende tapmise suhtes, õppima, kuidas Scanpsti tõhusalt kasutada paranda PST probleeme ja hankige väline parandustööriist, nt DataNumen Outlook Repair. See on kasulik, kui ilmnevad tülikad probleemid, mida postkasti parandustööriist ei suuda lahendada.

Autori tutvustus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.