Marking a Task Completed for another User

[Lor]

I am using Outlook 2003 with Exchange and am trying to programatically mark a
task as completed.

The simple code I have is:

Sub MarkComplete()

Set myItem =
Application.Session.GetDefaultFolder(olFolderTasks).Items("This is the
subject of my task")
myItem.MarkComplete

End Sub

This works if I am doing it for my own account, however, how do I mark a
task as completed on another account (I have the proper permissions set to do
this; the other account is listed under "Other Tasks" while in the tasks
window).

Thank you for any help.
Lor

 

[Dmitry Streblechenko]

Use GetSharedDefaultFolder instead of GetDefaultFolder.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Lor]

Dmitry,

Thanks for the help. The final code that I used was:

Function MarkComplete()

Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim myItem As Outlook.TaskItem
Dim myTask As String

Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("Jane Smith")
myRecipient.Resolve
myTask = "Subject Name of Task"
Set myItem =
Outlook.Application.Session.GetSharedDefaultFolder(myRecipient,
olFolderTasks).Items(myTask)
myItem.MarkComplete

End Function