title: Excel-created Outlook appointment only notifies me
body: <p>I am trying to set up an Outlook calendar at work, from Excel data sheets.</p>
  
  <p>I run a query to get data, then treat it, and fill Outlook calendar events.<br>
  The problem is, when I enter my required attendees, via my olAppointmentItem, it only notifies me and fills my calendar, not my colleagues' calendars.<br>
  I think this might come from the fact that I create it from my own Outlook account.</p>
  
  <p>Here is the mapping of my Excel sheet:<br>
  <a href="https://i.stack.imgur.com/Dw3BS.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Dw3BS.png" alt="enter image description here"></a></p>
  
  <p>Here is the code I use:</p>
  
  <pre class="lang-vb prettyprint-override"><code>Sub RegisterAppointmentList()
      ' adds a list of appointments to the Calendar in Outlook
      Dim olApp As Outlook.Application
      Dim olAppItem As Outlook.AppointmentItem
      Dim row As Long
  
      On Error Resume Next
      Worksheets("to_be_added").Activate 'worksheet with the list of my appointments to be added
  
      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
      row = 2 ' first row with appointment data in the active worksheet
      Dim mysub, myStart, myEnd
      While Len(Cells(row, 2).text) &lt;&gt; 0
          mysub = "Test"
          myStart = DateValue("09/20/2019") + TimeValue("8:00") 'date and time
          myEnd = DateValue("09/20/2019") + TimeValue("9:00") 'date and time
          Set olAppItem = olApp.CreateItem(olAppointmentItem) 
              ' set default appointment values
              .Location = "Office" 'Location of my event
              .Body = "Test appointment" 'title
              .ReminderSet = True
              .BusyStatus = olBusy 'doesn't need to set people busy
              ```
              .RequiredAttendees = "me@company.com" 'this works just fine
              .RequiredAttendees = "colleague@company.com" 'this doesn't work
              ```
              'On Error Resume Next
              .Start = myStart
              .End = myEnd
              .AllDayEvent = False
              .Subject = mysub
              '.Location = Cells(row, 9).Value
              '.Body = Cells(row, 8).Value
              '.ReminderSet = True
              '.BusyStatus = olBusy
              .Categories = "In" 'My own categories (two possibilities, In or Out)
              On Error GoTo 0
              .Save 
          End With
          row = row + 1
      Wend
      Set olAppItem = Nothing
      Set olApp = Nothing
  End Sub
  </code></pre>
  
  <p>I think this is just a parameter that doesn't catch or something, because it works fine on my own calendar, I get reminders as well as events.</p>