Untested, but I think this is what you are after:


Dim olApp As Outlook.Application
Dim olTsk As TaskItem
Dim lngRow as Long
Set olApp = New Outlook.Application
Set olTsk = olApp.CreateItem( olTaskItem)


lngRow = 2 `start in row  2

While cells(lngrow,1) <> "" ` stops when you hit first blank cell
With olTsk
.Subject = Cells(lngRow, 1)
.StartDate = Cells(lngRow, 2)
.DueDate = Cells(lngRow, 3)
.Categories = Cells(lngRow, 4)
.Save
End With
lngRow = lngrow + 1
Wend


Set olTsk = Nothing
Set olApp = Nothing

End Sub

Try this... it works for me. You need to create a reference to Outlook for the
code to be executed.


Sub Send_Msg()
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Dim rowNum As Integer

Set objOL = New Outlook.Application
For rowNum = 2 To ActiveWorkbook.Worksheets(1).UsedRange.Rows.Count
Set objMail = objOL.CreateItem(olMailItem)
Application.DisplayAlerts = False
With objMail
.To = ActiveWorkbook.Worksheets(1).Cells(rowNum, 1).Value
.Subject = "ABCD"
.Body = "Hello " & ActiveWorkbook.Worksheets(1).Cells(rowNum, 2).Value & ","
& vbCr & vbCr & _
ActiveWorkbook.Worksheets(2).Cells(1, 1) & vbCr & _
ActiveWorkbook.Worksheets(2).Cells(3, 1) & vbCr & _
ActiveWorkbook.Worksheets(2).Cells(5, 1) & vbCr & _
ActiveWorkbook.Worksheets(2).Cells(7, 1) & vbCr & _
ActiveWorkbook.Worksheets(2).Cells(9, 1) & vbCr & _
.Send

End With
Next rowNum
Set objMail = Nothing
Set objOL = Nothing
End Sub