Create Task in Outlook from Access

J

JochemAUS

I want to create a task in Outlook (when a user clicks on a button) from
Access. Please note I am using Office 97.

When I am using the code from a question answered earlier, I get an error
message: "You don't have appropiate permission to perform this operation
(Runtime-error -2147287035 (80030005)" for line 4 of the code.

Besides this error message, it is not clear for me how I can use the
information of the active record of the form to include in the new task. I
would like to enter the fields "Tracker ID" and "Applicant", number
respectively text field, from the form "Applications" in the subject. .

Is it please possible to change my code?

I am using the next code now:

Dim objOutlook As Outlook.Application
Dim NewTask As Outlook.TaskItem
Set objOutlook = CreateObject("Outlook.application")
Set NewTask = objOutlook.CreateItem(olTaskItem)

NewTask.Subject = "Conditional Approval: NAME" & " (" & Now() & ")"
NewTask.PercentComplete = 10
NewTask.StartDate = Now()
NewTask.Body = "Insert Bistrack ID"
NewTask.Status = olTaskInProgress
NewTask.ReminderSet = True
NewTask.ReminderPlaySound = True
NewTask.ReminderTime = Now() + 1
NewTask.Display

Set NewTask = Nothing
Set objOutlook = Nothing

Thank you very much for your help!


Jochem van Grondelle
 
Top