Outlook VBA를 사용하여 모든 일정의 모든 약속 및 모임을 자동으로 병합하는 방법

Outlook 솔루션 2025 년 9 월 29 일

편리한 확인을 위해 모든 달력의 모든 약속과 모임을 항상 하나의 달력으로 병합하려는 경우이 기사에서 소개 한 방법을 적용 할 수 있습니다.

Outlook에 구성된 많은 전자 메일 계정이있을 수 있습니다. 이 경우 Outlook에 많은 일정이 있어야합니다. 따라서 오늘 몇 개의 약속이 있는지 확인하고 싶을 때마다 모든 캘린더로 전환해야합니다. 조금 번거로울 것입니다. 그렇다면 하나의 캘린더로 병합하지 않는 이유는 무엇입니까? 다음에서는 쉽게 구현할 수있는 VBA 코드를 공개합니다.

모든 캘린더의 모든 약속 및 회의 자동 병합

처음에는 Outlook 응용 프로그램을 시작하십시오.
기본 Outlook 창으로 들어간 후 "Alt + F11"키 버튼을 누릅니다.
그런 다음 "Microsoft Visual Basic for Applications"창으로 이동합니다.
다음으로 "ThisOutlookSession"프로젝트를 찾아서 열어야합니다.
그런 다음이 프로젝트 창에 다음 VBA 코드를 복사하여 붙여 넣어야합니다.

'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

그런 다음 현재 매크로에 디지털 인증서를 할당해야합니다.
나중에 "매크로 설정"으로 이동하여 디지털 서명 된 매크로를 허용합니다.
마지막으로 Outlook 프로그램을 다시 시작하면 새 매크로가 활성화됩니다.
이제부터는 기본이 아닌 캘린더에 새 약속이나 회의가 추가 될 때마다 다음 스크린 샷과 같이 기본 캘린더에 자동으로 복사됩니다.

일정에서 기한이 지난 항목 제거

아시다시피 Outlook은 사서함이 커질 때 다양한 오류가 발생하기 쉽습니다. 따라서 기한이 지난 약속 및 모임과 같이 제때 사서함에서 쓸모없는 항목을 제거하는 것이 좋습니다. 그 동안에는 다음과 같은 강력한 수리 도구를 근처에 두는 것이 좋습니다. DataNumen Outlook Repair. 그것은 수 수리 Outlook 땀을 흘리지 않고 문제.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. SQL 복구 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM