Kuidas automaatselt ühendada kõik kohtumised ja koosolekud kõigist kalendritest Outlook VBA-ga

Outlooki lahendused September 29, 2025

Kui soovite kõigi kalendrite kohtumised ja koosolekud mugavaks kontrollimiseks alati ühte kalendrisse liita, saate rakendada selles artiklis kirjeldatud meetodit.

Võib-olla on teie Outlookis konfigureeritud palju meilikontosid. Sel juhul peab teil Outlookis olema palju kalendreid. Seetõttu peate iga kord, kui soovite kontrollida, mitu kohtumist täna on, lülituda kõikidele kalendritele. See saab olema natuke tülikas. Niisiis, miks mitte ühendada need üheks kalendriks? Järgnevalt tutvustame osa VBA-koodist, mis saab selle hõlpsalt realiseerida.

Ühendage kõik kohtumised ja koosolekud kõigist kalendritest Outlook VBA-ga

Ühendage automaatselt kõik kohtumised ja koosolekud kõigist kalendritest

  1. Käivitage kohe alguses oma Outlooki rakendus.
  2. Pärast Outlooki põhiakna sisenemist vajutage klahvikombinatsiooni Alt + F11.
  3. Seejärel pääsete aknasse "Microsoft Visual Basic for Applications".
  4. Järgmisena peate leidma ja avama projekti "ThisOutlookSession".
  5. Seejärel peaksite sellesse projekti aknasse kopeerima ja kleepima järgmised VBA koodid.
'Here we take two calendars as an example - "Calendar A" & "Calendar B"
'You can add more as per your needs
Dim WithEvents objACalendarItems As Outlook.Items
Dim WithEvents objBCalendarItems As Outlook.Items
Dim objDefaultCalendar As Outlook.Folder
 
Private Sub Application_Startup()
    Set objACalendarItems = Application.Session.folders("File A").folders("Calendar").Items
    Set objBCalendarItems = Application.Session.folders("File B").folders("Calendar").Items

    'Here we merge into the default calendar
    Set objDefaultCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
End Sub
 
Private Sub objACalendarItems_ItemAdd(ByVal Item As Object)
    Call CopyToDefaultCalendar(Item)
End Sub

Private Sub objBCalendarItems_ItemAdd(ByVal Item As Object)
    Call CopyToDefaultCalendar(Item)
End Sub

Private Sub CopyToDefaultCalendar(ByVal objItem As Object)
    Dim objCopiedAppointment As Outlook.AppointmentItem
    Dim objMoviedAppointment As Outlook.AppointmentItem
    Dim strPSTFileName As String
 
    Set objCopiedAppointment = objItem.Copy
    Set objMoviedAppointment = objCopiedAppointment.Move(objDefaultCalendar)
 
    strPSTFileName = objItem.parent.parent.Name
 
    'Tag the source of the copied appointments
    objMoviedAppointment.Categories = "From " & strPSTFileName
    objMoviedAppointment.Save
    'If want to delete it from the original calendar, add the following line:
    'objItem.Delete
End Sub

VBA kood – ühendage kõik kohtumised ja koosolekud kõigist kalendritest

  1. Pärast seda peate praegusele makrole määrama digitaalse sertifikaadi.
  2. Hiljem avage "makroseaded", et lubada digitaalselt allkirjastatud makrosid.
  3. Lõpuks saate restart oma Outlooki programmi uue makro aktiveerimiseks.
  4. Nüüdsest kopeeritakse iga kord, kui mittevaikekalendritesse lisatakse mõni uus kohtumine või koosolek, nagu järgmine ekraanipilt, vaikekalendrisse.Ühendage kalendrid

Eemaldage õigeaegselt kalendrist tähtaja ületanud üksused

Nagu me teame, on Outlookis rohkem altid erinevatele tõrgetele, kui postkast muutub järjest suuremaks. Seetõttu soovitatakse aegsasti postkastist eemaldada kasutud asjad, näiteks hilinenud kohtumised ja koosolekud. Vahepeal on parem, kui hoiate läheduses võimsat remonditööriista, nt DataNumen Outlook Repair. See võib Outlooki parandamine probleeme ilma higistamata.

Autori sissejuhatus:

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

Kommentaarid on suletud.