Assuming that the data starts at Row 2 in Column A, try...
Option Explicit
Sub CreateTasks()
Dim olApp As Object
Dim olTask As Object
Dim LastRow As Long
Dim i As Long
Set olApp = CreateObject("Outlook.Application")
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
If Cells(i, "A").Value <> "" Then
Set olTask = olApp.CreateItem(3) 'olTaskItem
With olTask
.Subject = "Invoice - " & Cells(i, "B").Value
.Body = "Please invoice customer " & Cells(i, "B").Value & "."
.Status = 1 'olTaskInProgress
.Importance = 2 'olImportanceHigh
.DueDate = Cells(i, "A").Value
.ReminderSet = True
.ReminderTime = Cells(i, "A").Value + TimeValue("09:00:00")
.Save
End With
End If
Next i
End Sub
Note that the reminder is set for 9:00 AM on the due date. Change this and other properties, accordingly.
Bookmarks