VBA Script to Add a Shared Calendar to Users Outlook

[pastacode lang=”markdown” manual=”‘You%20will%20need%20to%20disable%20Macro%20Security%20for%20this%20to%20run%0A’Use%20GPO%20to%20deploy%20VbaProject.OTM%20to%20%25appdata%25%5CMicrosoft%5COutlook%20folder%0A%0APrivate%20Sub%20Application_Startup()%0A%20%0ACall%20OpenMeetingRoom1%0A%20%0AEnd%20Sub%0A%0ASub%20OpenMeetingRoom1()%0A%0A%20%20%20%20Dim%20myNamespace%20As%20Outlook.NameSpace%0A%20%20%20%20Dim%20myRecipient%20As%20Outlook.Recipient%0A%20%20%20%20Dim%20CalendarFolder%20As%20Outlook.Folder%0A%20%20%20%20%0A%20%20%20%20Set%20myNamespace%20%3D%20Application.GetNamespace(%22MAPI%22)%0A%20%20%20%20Set%20myRecipient%20%3D%20myNamespace.CreateRecipient(%22Meeting%20Rooom%201%22)%0A%20%20%20%20myRecipient.Resolve%0A%20%20%20%20If%20myRecipient.Resolved%20Then%0A%20%20%20%20%20%20%20%20Call%20ShowCalendar(myNamespace%2C%20myRecipient)%0A%20%20%20%20End%20If%0A%20%0AEnd%20Sub%0A%0A%0A%0ASub%20ShowCalendar(myNamespace%2C%20myRecipient)%0A%20%20%20%20Dim%20CalendarFolder%20As%20Outlook.Folder%0A%0A%20%20%20%20Set%20CalendarFolder%20%3D%20_%0A%20%20%20%20%20%20%20%20myNamespace.GetSharedDefaultFolder%20_%0A%20%20%20%20%20%20%20%20(myRecipient%2C%20olFolderCalendar)%0A%20%20%20%20’Open%20up%20the%20Calendar%0A%20%20%20%20’CalendarFolder.Display%0AEnd%20Sub%0A” message=”” highlight=”” provider=”manual”/]