I am trying to automate the task assigning. I can do that easily. The hard part is I want to be able to use another users task list.

I used the getshareddefault folder and can display it. But when I try to create a task item it fails. Any help is needed.


It fails here oTask1=myItems.CreateItem(olTaskItem). If I take out the myItems it puts it in my task list and assigns to Angelica.

#Define olTaskItem 3
Local oTask1
If VarType(oOutlook)<>"O"
Release oOutlook
Public oOutlook
oOutlook=CreateObject("Outlook.Application")
Endif
oNameSpace=oOutlook.GetNameSpace("MAPI")
myRecipient=oNameSpace.CreateRecipient("Helen")
myRecipient.Resolve
If myRecipient.Resolve
mytest=oNameSpace.GetSharedDefaultFolder(myRecipient, 13)
oTask1=myItems.CreateItem(olTaskItem)
With oTask1
.SUBJECT="Test"
.Body="This is a test"
.DueDate=DATE()+4
.StartDate=Date()
.Status=0
.Assign
.Recipients.Add("Angelica")
.Send()
.Save()
Endwith
Endif