Kako automatski spojiti sve sastanke i sastanke iz svih kalendara sa Outlook VBA

Ako želite uvijek spojiti sve obaveze i sastanke iz svih kalendara u jedan kalendar radi lakše provjere, možete primijeniti metodu predstavljenu u ovom članku.

Možda imate mnogo naloga e-pošte konfigurisanih u vašem Outlooku. U tom slučaju morate imati mnogo kalendara u Outlooku. Stoga, svaki put kada želite provjeriti koliko sastanaka ima danas, morate se prebaciti na sve kalendare. To će biti malo problematično. Pa, zašto ih ne spojite u jedan kalendar? U nastavku ćemo izložiti dio VBA koda koji ga može realizirati s lakoćom.

Automatsko spajanje svih sastanaka i sastanaka iz svih kalendara

1. Na samom početku pokrenite svoju Outlook aplikaciju.
2. Nakon što uđete u glavni Outlook prozor, pritisnite tipke “Alt + F11”.
3. Zatim ćete ući u prozor „Microsoft Visual Basic za aplikacije“.
4. Zatim morate pronaći i otvoriti projekt “ThisOutlookSession”.
5. Nakon toga, trebali biste kopirati i zalijepiti sljedeće VBA kodove u ovaj prozor projekta.

'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. Nakon toga, potrebno je da dodijelite digitalni certifikat trenutnom makrou.
7. Kasnije idite na „postavke makroa“ da biste dozvolili digitalno potpisane makroe.
8. Na kraju, možete restart svoj Outlook program da aktivirate novi makro.
9. Od sada, svaki put kada se bilo koji novi sastanak ili sastanak doda u kalendare koji nisu zadani, automatski će se kopirati u zadani kalendar, kao što je sljedeći snimak ekrana:

Uklonite zakašnjele stavke iz kalendara na vrijeme

Kao što znamo, Outlook je skloniji raznim greškama kada poštanski sandučić postaje sve veći i veći. Stoga se predlaže da se na vrijeme uklone beskorisni predmeti iz poštanskog sandučeta, kao što su zakasneli termini i sastanci. U međuvremenu, bolje je da u blizini držite moćan alat za popravku, kao što je npr DataNumen Outlook Repair. Može popraviti Outlook problema bez znojenja.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com