Creating Outlook tasks from Excel
 

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!

Creating Outlook tasks from Excel
 

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.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"David" wrote in message
...
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!