Outlook task from ACCESS

[Guest]

Is there anyway to have the fields in the Task filled in based on entries on
a form? For example. If I have a form with the following controls:
Date_Assigned, Evaluator1 (E-mail address), Due_Date. Can the entried in
these controls be entered into the Outlook taks automatically?

This is the code I am currently using to pull up the Outlook task:

Function fncAddOutlookTask()
Dim spObj As Object, objItem As Object
Set spObj = CreateObject("Outlook.Application")
Dim OutlookApp As Outlook.Application
Set objItem = spObj.CreateItem(olTaskItem)
objItem.Display
Set spObj = Nothing
End Function
------------------------------------------------------
Private Sub SendTask_Click()
fncAddOutlookTask
End Sub

Thank you for your help.

 

[benyod79 via AccessMonster.com]

Yes, you can use a With..End With Statement. Such as


FYI, this is off the top of my head, but you should get the idea.

........
objItem.Display

With objItem
..Start = me.Date_Assigned
..Subject = "Any Text Message"
..Body = "Whatever you want to put"
..ReminderMinutesBeforeStart = 15
..ReminderSet = True
..Save
End With
......The Rest of your code