I am trying to create an Outlook task (in Outlook 2000) and then assign it to
another user. This seems to work OK, however, it never seems to set up the
reminder details. However, if i assign it so someone else then only the due
date is
sent. How to set remainder
I have provided a code snippet below which I am trying to make work.

Regards
Amirineni Chaitanya

Set oTask = oTaskFolder.Items.Add("IPM.Task")
With oTask

' store the each task item details

.Subject = strTaskName
.Body = strTaskBody
.DueDate = strDueDate
.PercentComplete = strCompPercent
.ReminderTime = strReminderDate
.ReminderSet = True

.UserProperties.Add "TaskID", olText
.UserProperties("TaskID") = strTaskId

.UserProperties.Add "AssignedTo", olText
.UserProperties("AssignedTo") = strDisplayName
End With

' send the task

oTask.Recipients.Add (strAssignTo)
oTask.ReminderSet = True
oTask.ReminderTime = strReminderDate
oTask.ReminderOverrideDefault = True
oTask.ReminderPlaySound = True
oTask.Assign
oTask.Send

This is normal behavior. You cannot set reminders for other people. Only they can.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Amirineni Chaitanya" Amirineni wrote in message ...
I am trying to create an Outlook task (in Outlook 2000) and then assign it to
another user. This seems to work OK, however, it never seems to set up the
reminder details. However, if i assign it so someone else then only the due
date is
sent. How to set remainder
I have provided a code snippet below which I am trying to make work.

Regards
Amirineni Chaitanya

Set oTask = oTaskFolder.Items.Add("IPM.Task")
With oTask

' store the each task item details

.Subject = strTaskName
.Body = strTaskBody
.DueDate = strDueDate
.PercentComplete = strCompPercent
.ReminderTime = strReminderDate
.ReminderSet = True

.UserProperties.Add "TaskID", olText
.UserProperties("TaskID") = strTaskId

.UserProperties.Add "AssignedTo", olText
.UserProperties("AssignedTo") = strDisplayName
End With

' send the task

oTask.Recipients.Add (strAssignTo)
oTask.ReminderSet = True
oTask.ReminderTime = strReminderDate
oTask.ReminderOverrideDefault = True
oTask.ReminderPlaySound = True
oTask.Assign
oTask.Send