--- description: If you want to always merge all the appointments and meetings from all calendars into one calendar for convenient check, you can apply the method introduced in this article. title: How to Auto Merge All Appointments & Meetings from All Calendars with Outlook VBA image: https://www.datanumen.com/blogs/wp-content/uploads/2017/05/merge-all-appointments-meetings-from-all-calendars-with-outlook-vba.jpg --- - - - [Home](https://www.datanumen.com/blogs/) > [Solutions](https://www.datanumen.com/blogs/category/solutions/) > [Office Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/) > [Outlook Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/outlook-solutions/) > How to Auto Merge All Appointments & Meetings from All Calendars with Outlook VBA # How to Auto Merge All Appointments & Meetings from All Calendars with Outlook VBA [Outlook Solutions](https://www.datanumen.com/blogs/category/solutions/office-solutions/outlook-solutions/) September 29, 2025 Share Now: - - - - - - - - *If you want to always merge all the appointments and meetings from all calendars into one calendar for convenient check, you can apply the method introduced in this article.* Perhaps you have many email accounts configured in your Outlook. In this case, you must have many calendars in your Outlook. Therefore, every time when you want to check how many appointments there are today, you have to switch to all the calendars. It will be a bit troublesome. So, why don’t you merge them into one calendar? In the followings, we will expose a piece of VBA code, which can realize it with ease. ![Merge All Appointments \& Meetings from All Calendars with Outlook VBA](https://www.datanumen.com/blogs/wp-content/uploads/2017/05/merge-all-appointments-meetings-from-all-calendars-with-outlook-vba.jpg "Merge All Appointments & Meetings from All Calendars with Outlook VBA") ## Auto Merge All Appointments & Meetings from All Calendars 1. At the very outset, launch your Outlook application. 2. After you enter the main Outlook window, press “Alt + F11” key buttons. 3. Then you will get into the “Microsoft Visual Basic for Applications” window. 4. Next you need to find and open the “ThisOutlookSession” project. 5. Subsequently, you ought to copy and paste the following VBA codes into this project window. ``` '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 Code - Merge All Appointments \& Meetings from All Calendars](<> "VBA Code - Merge All Appointments & Meetings from All Calendars") 6. After that, you need to assign a digital certificate to the current macro. 7. Later go to “macro settings” to permit the digitally signed macros. 8. Eventually, you can restart your Outlook program to activate the new macro. 9. From now on, every time when any new appointment or meeting is added in the non-default calendars, it’ll be auto copied to the default calendar, like the following screenshot:![Merge Calendars](<> "Merge Calendars") ## Remove Overdue Items from Calendar in Time As we know, Outlook is more prone to various errors when the mailbox becomes larger and larger. Therefore, it is suggested to remove useless items from mailbox in time, such as overdue appointments and meetings. In the meantime, it is better if you keep a potent repair tool nearby, such as DataNumen Outlook Repair. It can [repair Outlook](https://www.datanumen.com/outlook-repair/) issues without breaking a sweat. ## Author Introduction: Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including [sql recovery](https://www.datanumen.com/sql-recovery/) and outlook repair software products. For more information visit [www.datanumen.com](https://www.datanumen.com/) Share Now: - - - - - - - - [← Previous post](https://www.datanumen.com/blogs/auto-move-recipients-except-original-sender-cc-field-using-reply-outlook/) [Next post →](https://www.datanumen.com/blogs/make-stopwatch-examinations-word-via-vba/) Comments are closed. ![Data Recovery Blog]() Follow or like us on Facebook, LinkedIn and Twitter to get all promotions, latest news and updates on our products and company. - - - ### Featured Products - [DataNumen Outlook Repair](https://www.datanumen.com/outlook-repair/) - [DataNumen SQL Recovery](https://www.datanumen.com/sql-recovery/) - [DataNumen Exchange Recovery](https://www.datanumen.com/exchange-recovery/) - [DataNumen Access Repair](https://www.datanumen.com/access-repair/) - [DataNumen Excel Repair](https://www.datanumen.com/excel-repair/) - [DataNumen PDF Repair](https://www.datanumen.com/pdf-repair/) - [DataNumen Word Repair](https://www.datanumen.com/word-repair/) - [DataNumen Zip Repair](https://www.datanumen.com/zip-repair/) ### Popular posts ```json {"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.datanumen.com\/blogs\/auto-merge-appointments-meetings-calendars-outlook-vba\/#article","isPartOf":{"@id":"https:\/\/www.datanumen.com\/blogs\/auto-merge-appointments-meetings-calendars-outlook-vba\/"},"author":{"name":"AuthorCCW","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/person\/33ded6c47c77587f9158d99f05e23957"},"headline":"How to Auto Merge All Appointments & Meetings from All Calendars with Outlook VBA","datePublished":"2017-05-31T03:25:11+00:00","dateModified":"2025-09-29T10:50:16+00:00","mainEntityOfPage":{"@id":"https:\/\/www.datanumen.com\/blogs\/auto-merge-appointments-meetings-calendars-outlook-vba\/"},"wordCount":357,"commentCount":1,"publisher":{"@id":"https:\/\/www.datanumen.com\/blogs\/#organization"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/auto-merge-appointments-meetings-calendars-outlook-vba\/#primaryimage"},"thumbnailUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/05\/merge-all-appointments-meetings-from-all-calendars-with-outlook-vba.jpg","articleSection":["Outlook Solutions"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/www.datanumen.com\/blogs\/auto-merge-appointments-meetings-calendars-outlook-vba\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/www.datanumen.com\/blogs\/auto-merge-appointments-meetings-calendars-outlook-vba\/","url":"https:\/\/www.datanumen.com\/blogs\/auto-merge-appointments-meetings-calendars-outlook-vba\/","name":"How to Auto Merge All Appointments & Meetings from All Calendars with Outlook VBA","isPartOf":{"@id":"https:\/\/www.datanumen.com\/blogs\/#website"},"primaryImageOfPage":{"@id":"https:\/\/www.datanumen.com\/blogs\/auto-merge-appointments-meetings-calendars-outlook-vba\/#primaryimage"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/auto-merge-appointments-meetings-calendars-outlook-vba\/#primaryimage"},"thumbnailUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/05\/merge-all-appointments-meetings-from-all-calendars-with-outlook-vba.jpg","datePublished":"2017-05-31T03:25:11+00:00","dateModified":"2025-09-29T10:50:16+00:00","description":"If you want to always merge all the appointments and meetings from all calendars into one calendar for convenient check, you can apply the method introduced in this article.","inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.datanumen.com\/blogs\/auto-merge-appointments-meetings-calendars-outlook-vba\/"]}]},{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/www.datanumen.com\/blogs\/auto-merge-appointments-meetings-calendars-outlook-vba\/#primaryimage","url":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/05\/merge-all-appointments-meetings-from-all-calendars-with-outlook-vba.jpg","contentUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2017\/05\/merge-all-appointments-meetings-from-all-calendars-with-outlook-vba.jpg","width":1524,"height":1107,"caption":"Merge All Appointments & Meetings from All Calendars with Outlook VBA"},{"@type":"WebSite","@id":"https:\/\/www.datanumen.com\/blogs\/#website","url":"https:\/\/www.datanumen.com\/blogs\/","name":"Data Recovery Blog","description":"Discuss every aspect of data recovery","publisher":{"@id":"https:\/\/www.datanumen.com\/blogs\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/www.datanumen.com\/blogs\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/www.datanumen.com\/blogs\/#organization","name":"Data Recovery Blog","url":"https:\/\/www.datanumen.com\/blogs\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/logo\/image\/","url":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2019\/02\/logowithouttext.jpg","contentUrl":"https:\/\/www.datanumen.com\/blogs\/wp-content\/uploads\/2019\/02\/logowithouttext.jpg","width":296,"height":397,"caption":"Data Recovery Blog"},"image":{"@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/logo\/image\/"},"sameAs":["https:\/\/www.facebook.com\/DataNumen","https:\/\/x.com\/DataNumen","http:\/\/www.linkedin.com\/company\/datanumen","https:\/\/myspace.com\/datanumen\/","http:\/\/www.pinterest.com\/datanumen\/","https:\/\/www.youtube.com\/channel\/UCVIIuuKfUBHSJauUaVP13tw"]},{"@type":"Person","@id":"https:\/\/www.datanumen.com\/blogs\/#\/schema\/person\/33ded6c47c77587f9158d99f05e23957","name":"AuthorCCW","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/3516ed90fc242780d3947a989f895bc46e70c3e83485d30f2b457a007906aa58?s=96&d=mm&r=g","caption":"AuthorCCW"},"sameAs":["https:\/\/www.datanumen.com\/"]}]} ```