excel-VBA, skal oprette en Task i min Outlook på en given dato.

Sub CreateOutlookTasks()

' erklærer variabler
Dim EndDateArray As Range
Dim LastRow As Integer
LastRow = Range("SlutRowIA").Row ' henter rækkenummer for den række jeg har navngivet til "SlutRowIA")
' Første række henter jeg fra en constant (FIRSTNOTHEADERROW) der indeholder værdien

'Herunder vil jeg så generere en tekststreng til select af de aktuelle celler
RangeString = "J" & FIRSTNOTHEADERROW & ":J" & LastRow ' genererer strengen der skal vælge de alle de slutdatoer der findes i min plan

Set EndDateArray = Range(RangeString) ' kaster slutdatoer ind i mit array (som i virkeligheden er et range)

For i = 1 To EndDateArray.Cells.Count ' vi løber vores SlutDateArray igennem med en For-løkke

If IsDate(EndDateArray.Cells(i, 1)) Then ' hvis der findes en slutdato i cellen
  If EndDateArray.Cells(i, 1) > Date Then ' hvis slutdato er ud i fremtiden
    If EndDateArray.Cells(i, 1) < Date + 14 Then ' hvis der er mindre end 7 dage til vi når slutdato

      MsgBox "Dato er ud i fremtiden og der er under 7 dage til."
      DateString = Format(EndDateArray.Cells(i, 1), "YY/dd/mm")
     
      ' her vil jeg så indsætte en kode der opretter en Task i min Outlook så jeg får udført nogle aktioner
      ' opret en Task i Outlook
      Set myOlApp = CreateObject("Outlook.Application")
      Set myItem = myOlApp.CreateItem(olTaskItem)
      myItem.Subject = "Kontroller slutprøve fra produktion"
      myItem.DueDate = EndDateArray.Cells(i, 1)
      myItem.Save

      Set myItem = Nothing
      Set myOlApp = Nothing

    End If
  End If
End If
Next i

End Sub