G
Gary Hillerson
I'm trying to help a small, local non-profit with newsletter
production. I'm exporting task descriptions from a database, and then
importing them into the Manager's Outlook calendar as appointments.
That works fine.
She would also like my code to send each appointment to the
responsible person(s) as either an appointment or a task, with a
reminder set.
I just implemented this by using each appointment item's ForwardAsVCal
function to create an email with the appointment attached, and then I
send that email to the responsible person(s). It works, but the
recipients have to open the attached appointment and save it to their
calendars, which isn't ideal.
I'm wondering if it would be better to create a task request and send
that to the responsible person(s). I'm not exactly sure how to do
that.
Will something like this work?
set myTask = myApp.CreateItem(olTaskItem)
with myTask
.Assign 'Does this return an object that I need to modify?
.Subject = "Task Subject"
.DueDate = myDueDate
for i = 0 to recipientsCount
set myRecip = .Recipients.Add(myRecipients(i))
next i
.ReminderTime = myReminderDate
.Send
End With
Thanks in advance,
gary
production. I'm exporting task descriptions from a database, and then
importing them into the Manager's Outlook calendar as appointments.
That works fine.
She would also like my code to send each appointment to the
responsible person(s) as either an appointment or a task, with a
reminder set.
I just implemented this by using each appointment item's ForwardAsVCal
function to create an email with the appointment attached, and then I
send that email to the responsible person(s). It works, but the
recipients have to open the attached appointment and save it to their
calendars, which isn't ideal.
I'm wondering if it would be better to create a task request and send
that to the responsible person(s). I'm not exactly sure how to do
that.
Will something like this work?
set myTask = myApp.CreateItem(olTaskItem)
with myTask
.Assign 'Does this return an object that I need to modify?
.Subject = "Task Subject"
.DueDate = myDueDate
for i = 0 to recipientsCount
set myRecip = .Recipients.Add(myRecipients(i))
next i
.ReminderTime = myReminderDate
.Send
End With
Thanks in advance,
gary