Hello:
I'm having troubles getting a delegated task to set a reminder. All the other stuff except for the reminder works, ie they get the task, accept it, and it shows up in their tasks. If I save it to my machine, the reminder works correctly.
The main reason I went this task route is so that I could have it remind users right before an event. Now if this function just wont work, could you please refer me an outlook object that will do this? I've looked a little at appointments but dont see where you can assign them.
Thanks in advance!
I'm having troubles getting a delegated task to set a reminder. All the other stuff except for the reminder works, ie they get the task, accept it, and it shows up in their tasks. If I save it to my machine, the reminder works correctly.
The main reason I went this task route is so that I could have it remind users right before an event. Now if this function just wont work, could you please refer me an outlook object that will do this? I've looked a little at appointments but dont see where you can assign them.
Thanks in advance!
Code:
Set olNS = Application.GetNamespace("MAPI")
Set olMail = olNS.GetItemFromID(strID)
Set objTask = Application.CreateItem(olTaskItem)
With objTask
.Subject = strTaskSubject
.Body = strBodyMain & vbCrLf & strBodyCID
.StartDate = Now
.DueDate = Now
.ReminderTime = Now
.ReminderSet = True
End With
objTask.Save
objTask.Assign
Dim myDelegate As Outlook.Recipient
Set myDelegate = objTask.Recipients.Add("[email="[email protected]"][email protected][/email]")
objTask.Send