title: Run-time error '-2147221233(8004010f)': object not found - Access Database
body: <p>I'm building a scheduling database for my office, and have it mostly finished. The last step is sending an automated meeting out for the schedule created each day. This email MUST come from a secondary email account/calendar shared by all members of my team. The code below runs just fine on my personal computer, but will not run on others even though they have access to the same email and calendar. </p>
  
  <p>The error I get is this: </p>
  
  <blockquote>
    <p>run-time error '-2147221233(8004010f)': The attempted operation failed. An object could not be found.</p>
  </blockquote>
  
  <p>The line it's screwing up on is this: <code>Set OLFolder = OLNamespace.Folders.Item("name@address.office.com")</code></p>
  
  <p>Here's my code:</p>
  
  <pre><code>Private Sub sendacdcsched_Click()
  'sends an email with a calendar appointment for the facility schedule.
  
      DoCmd.Save 'saves the record first
  
      Dim OutlookApp As Object
      Dim Outlookmessage As Object
      Dim scheduleACDC As String
      Dim OLNamespace As Object
      Dim OLFolder As Object
  
      scheduleACDC = "Schedule for ACDC for " &amp; Me.schedDate.Value
  
      'Create Instance of Outlook
      On Error Resume Next
  
      Set OutlookApp = GetObject(Class:="Outlook.Application") 'Handles if Outlook is already open
      Err.Clear
      If OutlookApp Is Nothing Then Set OutlookApp = CreateObject(Class:="Outlook.Application") 'If not, open Outlook
      On Error GoTo 0
  
      Set OLNamespace = OutlookApp.getnamespace("MAPI")
      Set OLFolder = OLNamespace.Folders.Item("name@address.office.com")
  
      'Create a new email message
      Set Outlookmessage = OLFolder.items.Add(1)
  
      'Create Outlook email with attachment
      On Error Resume Next
      With Outlookmessage
          .meetingstatus = 1 'makes it a meeting so you can add recipients
          .start = Me.schedDate &amp; " 8:00:00 AM"
          .duration = 240 'in minutes
          .To = ""  'Insert all emails addresses to be sent to here'
          .subject = "ACDC"  'email subject line'
          .Body = scheduleACDC
          .Display 'displays email before you send it. If you wish to send without seeing it displayed use .send'
      End With
  
      On Error GoTo 0
  End Sub
  </code></pre>