I added this code before setting up a break point just below. Getting the name of the objects that the code picks up sounds like a great idea.
Dim oApp As Object
Dim oCalendar As Outlook.MAPIFolder
Dim oNameSpace As Outlook.NameSpace
Dim oAppt As Outlook.AppointmentItem
Dim oAcct As Outlook.Recipient
Dim ApptNotes As String
Dim strName As String
Dim calName As String
'On Error GoTo Err_Exit
calName = "ATCG8S1"
Set oApp = CreateObject("Outlook.Application.16")
Set oNameSpace = oApp.GetNamespace("Mapi")
Set oAcct = oNameSpace.CreateRecipient(calName)
Dim obj As Object
For Each obj In oNameSpace.GetSharedDefaultFolder(oAcct, olFolderCalendar)
Debug.Print obj.Name
Next
Now I'm getting the same error (Outlook does not recognize one or more names.), this time on the "For Each obj In oNameSpace.GetSharedDefaultFolder(oAcct, olFolderCalendar)" line.
Is olFolderCalendar a generic code term, or is the code looking for a folder in Outlook named "FolderCalendar" that maybe doesn't exist? Or does it have something to do with the GetSharedDefaultFolder name? Could the calendar default to a different folder?