title: VBA Excel create Outlook 2013 Appointment
body: <p>I am trying to create an Outlook Appointment with a Macro, I am having an issue with the code giving me an error of "Object Doesn't support this property or method" when it comes the Default Appointment Values. I have tried several fixes but am not experienced enough to resolve. Any assistance is greatly appreciated. </p>
  
  <p>Here is what I am working with:</p>
  
  <pre><code>Sub CalendarInvite()
  
      Dim olApp As Object
      Dim olAppItem As Object
      Dim r As Long
  
      Set olApp = GetObject("", "Outlook.Application")
  
      Dim mysub, myStart, myEnd
  
          mysub = Range("Title")
          myStart = Range("Date")
          myEnd = Range("Date")
  
          'creates a new appointment
          Set olAppItem = olApp.CreateItem(olAppointmentItem)
  
          'set default appointment values
          With olAppItem
              .Location = Range("Location")
              .Body = Range("Body")
              .ReminderSet = True
              .BusyStatus = olFree
              .RequiredAttendees = "email@email.com"
              'saves the new appointment to the default folder
              .Save
          End With
  
      Set olAppItem = Nothing
      Set olApp = Nothing
  
  End Sub
  </code></pre>