title: Create Outlook meeting request, with Excel data
body: <p>I am working on code to create an Outlook Meeting Request to send to a list of invitees.<br />
  I see the Meeting Request in my Calendar, but I am unable to send it.<br />
  How can I get it to send?</p>
  <pre class="lang-vb prettyprint-override"><code>Sub AddAppointments()
      ' Create the Outlook session
      Set myOutlook = CreateObject(&quot;Outlook.Application&quot;)
  
      ' Start at row 2
      r = 2
  
      Do Until Trim(Cells(r, 1).Value) = &quot;&quot;
          ' Create the AppointmentItem
          Set myApt = myOutlook.CreateItem(1)
          ' Set the appointment properties
          myApt.Subject = Cells(r, 1).Value
          myApt.Location = Cells(r, 2).Value
          myApt.Start = Cells(r, 3).Value
          myApt.Duration = Cells(r, 4).Value
          myApt.Recipients.Add Cells(r, 8).Value
          myApt.MeetingStatus = olMeeting
          myApt.ReminderMinutesBeforeStart = 88
          myApt.Recipients.ResolveAll
          myApt.AllDayEvent = AllDay
  
          ' If Busy Status is not specified, default to 2 (Busy)
          If Trim(Cells(r, 5).Value) = &quot;&quot; Then
              myApt.BusyStatus = 2
          Else
              myApt.BusyStatus = Cells(r, 5).Value
          End If
          If Cells(r, 6).Value &gt; 0 Then
              myApt.ReminderSet = True
              myApt.ReminderMinutesBeforeStart = Cells(r, 6).Value
          Else
              myApt.ReminderSet = False
          End If
          myApt.Body = Cells(r, 7).Value
          myApt.Save
          r = r + 1
          myApt.Send
      Loop
  End Sub
  </code></pre>