I am trying to do something similar to this post:
http://www.microsoft.com/communities...9d2&sloc=en-us

I have this code working:
Sub CreateTask()
Const olTaskItem = 3
Dim oOlookApp As Object
Dim oOlookTask As Object
Dim rng As Range
Set oOlookApp = CreateObject("Outlook.Application")

Set rng = Range("A1")

While rng.Value ""
Set oOlookTask = oOlookApp.CreateItem(olTaskItem)

With oOlookTask
.Subject = rng.Value
.Save
End With
Set rng = rng.Offset(1)

Wend
End Sub

This will create the tasks from a list in column A and assigns them to me.

What I need is the tasks to be assigned to people who I have listed in
column B.

How can this code be modified to assign the tasks?

Thanks!