G
Graham
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. if I create teh task, set the reminder and save it (you
cannot assign it to your self I believe), then the reminder is set up
correctly. However, if i assign it so someone else then only the due date is
sent. Am I going mad, or is this default behaviour for Outlook 2000.
I have provided a code snippet below which I am trying to make work.
Regards
Graham
Sub AddApprovedTask(sName)
Set myItem = Application.CreateItem(3)
myItem.Subject = "Task Assignment: "
myItem.ReminderSet = True
myItem.ReminderTime = "16/01/2006 16:00"
myItem.DueDate = "16/01/2006 16:00"
myItem.Body = "" Test task item
myItem.Attachments.Add Item
If sName = Application.GetNameSpace("MAPI").CurrentUser Then
myItem.Save
Else
myItem.Assign
Set myDelegate = myItem.Recipients.Add(sName)
myItem.Send
End If
End Sub
another user. This seems to work OK, however, it never seems to set up the
reminder details. if I create teh task, set the reminder and save it (you
cannot assign it to your self I believe), then the reminder is set up
correctly. However, if i assign it so someone else then only the due date is
sent. Am I going mad, or is this default behaviour for Outlook 2000.
I have provided a code snippet below which I am trying to make work.
Regards
Graham
Sub AddApprovedTask(sName)
Set myItem = Application.CreateItem(3)
myItem.Subject = "Task Assignment: "
myItem.ReminderSet = True
myItem.ReminderTime = "16/01/2006 16:00"
myItem.DueDate = "16/01/2006 16:00"
myItem.Body = "" Test task item
myItem.Attachments.Add Item
If sName = Application.GetNameSpace("MAPI").CurrentUser Then
myItem.Save
Else
myItem.Assign
Set myDelegate = myItem.Recipients.Add(sName)
myItem.Send
End If
End Sub