Creating Tasks in Exchange Server 2003

Hi All,
I have been really struggling to find out how to carry out some basic tasks in exchange server , having a rdbms background

Some besic queries if anyone can help me out with code samples.

I need to create an exe(which can be in vb or vb.net) which will need to do below mentioned tasks from a different machine other than the one holding the exchange server.

1) How to connect to exchange server database?

2) How to add microsoft outlook tasks for particular user, so that if he opens his mailbox he can see the list of tasks? tasks are retrieved from an oracle table

I am also unable to find any documentation and code samples on microsoft outlook tasks as far as urn schemas and properties are concerned.

Waiting for some really helpful response from the group.

Thanks & Regards
-Varun

I have been able to find some useful information on using ado to connect to local exchange server and create an microsoft outlook task, but this will only work if run locally on exchange server.....


This design is not exhaustive, i.e. It do not expose a way to assign tasks
or set task recurrences, but if all you care about is
creating/modifying/deleting tasks plus setting duedate/status/completed
information on Task items in Private/Public Tasks folders, this should help
get you get some of the ways there.

Cut and Paste this definition.[VB]

'Core Task Properties
Const cdoTaskStartDate =
"http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}
/0x00008104" 'PT_SYSTIME
Const cdoTaskDueDate =
"http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}
/0x00008105" 'PT_SYSTIME
Const cdoTaskPercentComplete =
"http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}
/0x00008102" 'PT_DOUBLE
Const cdoTaskComplete =
"http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}
/0x0000811c" 'PT_BOOLEAN
Const cdoTaskDateCompleted =
"http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}
/0x0000810f" 'PT_SYSTIME
Const cdoTaskStatus =
"http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}
/0x00008101" 'PT_LONG
Const cdoTaskState =
"http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}
/0x00008113" 'PT_LONG
Const cdoTaskActualEffort =
"http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}
/0x00008110" 'PT_LONG
Const cdoTaskEstimatedEffort =
"http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}
/0x00008111" 'PT_LONG
Const cdoTaskMode =
"http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}
/0x00008518" 'PT_LONG

'Common Props
Const cdoBillingInformation =
"http://schemas.microsoft.com/mapi/id/{00062008-0000-0000-C000-000000000046}
/0x00008535" 'PT_UNICODE
Const cdoCompanies =
"http://schemas.microsoft.com/mapi/id/{00062008-0000-0000-C000-000000000046}
/0x00008539" 'PT_MV_UNICODE
Const cdoMileage =
"http://schemas.microsoft.com/mapi/id/{00062008-0000-0000-C000-000000000046}
/0x00008534" 'PT_UNICODE

'Reminder Props
Const cdoReminderDelta =
"http://schemas.microsoft.com/mapi/id/{00062008-0000-0000-C000-000000000046}
/0x00008501" 'PT_LONG
Const cdoReminderNextTime =
"http://schemas.microsoft.com/mapi/id/{00062008-0000-0000-C000-000000000046}
/0x00008560" 'PT_SYSTIME
Const cdoReminderTime =
"http://schemas.microsoft.com/mapi/id/{00062008-0000-0000-C000-000000000046}
/0x00008502" 'PT_SYSTIME
Const cdoReminderSet =
"http://schemas.microsoft.com/mapi/id/{00062008-0000-0000-C000-000000000046}
/0x00008502" 'PT_BOOLEAN


'Cut and Paste into VB, etc.
Private Sub Form_Load()
Dim TaskItem As New ADODB.Record

'Modify this URL to point to an item in your task folder
TaskItem.Open
"file://./backofficestorage/exappsdom.extest.microsoft.com/MBX/administrator
/tasks/mytask.eml", , adModeReadWrite, adCreateOverwrite
TaskItem.Fields.Item("DAV:contentclass") = "urn:content-classes:task"

TaskItem.Fields.Item("http://schemas.microsoft.com/exchange/outlookmessagecl
ass").Value = "IPM.Task"

'Set core Task props
TaskItem.Fields.Item(cdoTaskStartDate).Value = Now
TaskItem.Fields.Item(cdoTaskDueDate).Value = Now
TaskItem.Fields.Item(cdoTaskActualEffort).Value = 36000 'Minutes. This
prop is really funky.
TaskItem.Fields.Item(cdoTaskEstimatedEffort).Value = 72000 ''Minutes.
This prop is also funky.

'Set additional Props

TaskItem.Fields.Item("urn:schemas-microsoft-comfficeffice#Keywords").Val
ue = Array("Mango", "Kiwi")
TaskItem.Fields.Item("urn:schemas:httpmail:textdescription").Value =
"Ship the Product!!"
TaskItem.Fields.Item("urn:schemas:httpmail:subject").Value = "Tasks
Rock!!"
TaskItem.Fields.Item(cdoBillingInformation).Value = "Microsoft
Corporation"
TaskItem.Fields.Item(cdoCompanies).Value = Array("Cisco", "Microsoft")
TaskItem.Fields.Item(cdoMileage).Value = "120"
TaskItem.Fields.Append cdoTaskState, adInteger, , , 1
TaskItem.Fields.Update

'Set the PercentComplete and Task Status together for Unassigned Tasks
'TaskItem.Fields.Append cdoTaskPercentComplete, adDouble, , , "0.0"
'TaskItem.Fields.Append cdoTaskStatus, adInteger, , , 0
'TaskItem.Fields.Update
'MsgBox "The Task Status is Unassigned!"

'Set the PercentComplete and Task Status together when updating Task
Status
'TaskItem.Fields.Append cdoTaskPercentComplete, adDouble, , , "0.5"
'TaskItem.Fields.Append cdoTaskStatus, adInteger, , , 1
'TaskItem.Fields.Update
'MsgBox "The Task Status was Updated!"

'Set the PercentComplete, Task Status, Task Complete and
TaskDateCompleted together
'TaskItem.Fields.Append cdoTaskPercentComplete, adDouble, , , "1.0"
'TaskItem.Fields.Append cdoTaskStatus, adInteger, , , 2
'TaskItem.Fields.Item(cdoTaskComplete).Value = True
'TaskItem.Fields.Item(cdoTaskDateCompleted).Value = Now
'TaskItem.Fields.Update
'MsgBox "The Task Status was Updated!"

TaskItem.Close
End Sub

I want to know when a Task is assigned what properties should be set. Pls help

Hello, I wrote this code from your this preceding code and it seems to be not functionnal.
In fact, it write in right folder but the message format seems to be wrong (message appear like simple mailmessage and not like outlook Task).

please can you help me ?

thanks a lot