title: Make Outlook Task item through Excel Button
body: <p>I want to make a simple program in which I can create an Outlook Task. User fills in data and clicks the create button.</p>
  
  <p>I found the following code online and it should work, but it doesn't. No task is added in my Outlook, but no error is shown either. I have the feeling it somehow goes wrong with adding the recipients of the task.</p>
  
  <p>Any clue why I don't get an error but, no tasks are added? </p>
  
  <pre><code>Dim OutApp As Outlook.Application
  Dim OutTask As Outlook.TaskItem
  
  
  Set OutApp = CreateObject("Outlook.Application")
  Set OutTask = OutApp.CreateItem(olTaskItem)
  Set myRecipient = OutTask.Recipients.Add("I.wont.write.my.actual.address.in.this@example.com")
  myRecipient.Type = olTo
  
  
  
   If myRecipient.Resolved Then
      With OutTask
      .Display
         .Subject = Cells(3, "I")
         .StartDate = Now
         .DueDate = Cells(2, "I")
         .Body = "Please see the attached email for a service request assigned to you."
      End With
  End If
  Set OutTask = Nothing
  Set OutApp = Nothing
  </code></pre>
  
  <p>I just can't figure it out and it's really breaking my brain at the moment. Hope someone can hint me in the right direction!</p>