Creating Outlook tasks from Excel

[David]

I am trying to do something similar to this post
http://www.microsoft.com/communitie...64c58b-60a1-4e77-845c-bb886df409d2&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!

 

[Ken Slovak - [MVP - Outlook]]

Look at the Assign() method of the task item. Look at the VBA Object Browser
Help on that method to see some sample code for working with that method.