vba - Task Reminder to non-delegate -
i developing task reminder in access alert concerning employees critical due tasks.
i have table details due dates , want set task specific employees specific records.
i can set task outlook. there way may set task other user's outlook?
i want accomplish without setting delegates or shared folders.
dim outlookapp outlook.application dim outlooktask outlook.taskitem dim mydelegate outlook.recipient set outlookapp = createobject("outlook.application") set outlooktask = outlookapp.createitem(oltaskitem) outlooktaskoutlooktask.to = me.text33 .subject = "contract expiry in month of:" & space(2) &forms!frmrem!empname.value .body = "employeename:" & space(2) & forms!frmrem!empname.value .reminderset = true .duedate = me.doj .remindertime = me.doj - 30 & " 8:00 am" .reminderplaysound = true .save end msgbox "successfully task has been set ", vbinformation, "set task confirmd" end sub
you may assign task receiver can accept.
the vba code can found here taskitem.assign method (outlook).
sub assigntask() dim myitem taskitem dim mytaskassignee recipient set myitem = createitem(oltaskitem) myitem.assign set mytaskassignee = myitem.recipients.add("dan wilson") mytaskassignee.resolve if mytaskassignee.resolved myitem.subject = "prepare agenda meeting" myitem.duedate = + 30 myitem.display myitem.send end if exitroutine: set myitem = nothing set mytaskassignee = nothing end sub
Comments
Post a Comment