Paano Awtomatikong Pagsamahin ang Lahat ng Appointment at Pagpupulong mula sa Lahat ng Kalendaryo gamit ang Outlook VBA

Kung gusto mong palaging pagsamahin ang lahat ng appointment at pagpupulong mula sa lahat ng kalendaryo sa isang kalendaryo para sa maginhawang pagsusuri, maaari mong ilapat ang paraang ipinakilala sa artikulong ito.

Marahil ay marami kang mga email account na na-configure sa iyong Outlook. Sa kasong ito, dapat ay mayroon kang maraming mga kalendaryo sa iyong Outlook. Samakatuwid, sa tuwing nais mong suriin kung gaano karaming mga appointment ang mayroon ngayon, kailangan mong lumipat sa lahat ng mga kalendaryo. Medyo mahihirapan. Kaya, bakit hindi mo pagsamahin ang mga ito sa isang kalendaryo? Sa mga sumusunod, ilantad namin ang isang piraso ng VBA code, na madaling mapagtanto ito.

Awtomatikong Pagsamahin ang Lahat ng Appointment at Pagpupulong mula sa Lahat ng Kalendaryo

1. Sa simula pa lamang, ilunsad ang iyong aplikasyon sa Outlook.
2. Pagkatapos mong ipasok ang pangunahing window ng Outlook, pindutin ang mga pindutan ng "Alt + F11".
3. Pagkatapos ay mapupunta ka sa window ng "Microsoft Visual Basic for Applications".
4. Susunod na kailangan mong hanapin at buksan ang proyektong "ThisOutlookSession".
5. Pagkatapos, dapat mong kopyahin at i-paste ang mga sumusunod na VBA code sa window ng proyektong ito.

'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

6. Pagkatapos nito, kailangan mong magtalaga ng isang digital na sertipiko sa kasalukuyang macro.
7. Sa ibang pagkakataon, pumunta sa "mga setting ng macro" upang payagan ang mga macro na nilagdaan nang digital.
8. Kalaunan, maaari mong i-restart ang iyong programa sa Outlook upang maisaaktibo ang bagong macro.
9. Mula ngayon, sa tuwing may idaragdag na bagong appointment o pulong sa mga hindi default na kalendaryo, awtomatiko itong makokopya sa default na kalendaryo, tulad ng sumusunod na screenshot:

Alisin ang Mga Overdue na Item mula sa Kalendaryo sa Oras

Tulad ng alam natin, ang Outlook ay mas madaling kapitan ng iba't ibang mga error kapag ang mailbox ay nagiging mas malaki at mas malaki. Samakatuwid, iminumungkahi na alisin ang mga walang kwentang bagay mula sa mailbox sa oras, tulad ng mga overdue na appointment at pagpupulong. Pansamantala, mas mabuti kung magtabi ka ng isang makapangyarihang tool sa pag-aayos sa malapit, tulad ng DataNumen Outlook Repair. Maaari ito kumpunihin ang Outlook mga isyu nang hindi pinagpapawisan.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql paggaling at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa