Why would I get an Invalid or unqualified reference part way through an AppointItem?

Question

The code stops running with .Body = "" highlighted and says it is an invalid or unqualified reference. Any insights are greatly appreciated.

Note that the variables that start with Appt_ are all global variables defined in another module.

Sub RegisterAppointmentList(CName As String)

' adds a list of appontments to the Calendar in Outlook
Dim olApp As Outlook.Application
Dim olAppItem As Outlook.AppointmentItem

Set olAppItem = Application.CreateItem(olAppointmentItem)

On Error Resume Next

Set olApp = GetObject("", "Outlook.Application")
On Error GoTo 0

If olApp Is Nothing Then
    On Error Resume Next
    Set olApp = CreateObject("Outlook.Application")
    On Error GoTo 0
    If olApp Is Nothing Then
        MsgBox "Outlook is not available!"
        Exit Sub
    End If
End If


olAppItem _
    .Location = ""
    .Body = ""
    .Start = Nothing
    .End = Nothing
    .ReminderSet = True
    .ReminderMinutesBeforeStart = 15
    .BusyStatus = olFree
    .RequiredAttendees = "[email protected]"
     On Error Resume Next
    .Start = Appt_STime
    .End = Appt_ETime
    .Subject = CName & "," & Appt_Subject
    .Location = Appt_Location
    .Body = Appt_Description
    .ReminderSet = True
    .BusyStatus = olBusy
     On Error GoTo 0
    .Save ' saves the new appointment to the default folder

Set olAppItem = Nothing
Set olApp = Nothing
MsgBox "Done !"
End Sub

Answer 1

If you want to change multiple properties, the best way to do it would be using "With":

With olAppItem
    .Location = ""
    .Body = ""
    .Start = Nothing
    .End = Nothing
    .ReminderSet = True
    .ReminderMinutesBeforeStart = 15
    .BusyStatus = olFree
    .RequiredAttendees = "[email protected]"
     On Error Resume Next
    .Start = Appt_STime
    .End = Appt_ETime
    .Subject = CName & "," & Appt_Subject
    .Location = Appt_Location
    .Body = Appt_Description
    .ReminderSet = True
    .BusyStatus = olBusy
     On Error GoTo 0
    .Save ' saves the new appointment to the default folder
End With