Append to outlook

[Eddyoftheyear]

Is there a way that I can append records from access to outlook task list.

I have the following fields in the datasheet:

Date will be duedate
Activity will be the title
Staff will be the staff who the task assigned to.
Notes will be the body of the task.

Help please!!!

 

[Eddyoftheyear]

I tried the below codes and worked well for me. But the issue now is that it does not move set of records to outlook. I have to do it one at a time.

Any suggestions

private sub cmdexportTask_click()

Dim OutlookApp As Outlook.Application
Dim OutlookTask As Outlook.TaskItem

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookTask = OutlookApp.CreateItem(olTaskItem)

With OutlookTask
.Subject = "Some text " & me.OrgID
.Body = me.schTitle
.ReminderSet = True
.ReminderTime = DateAdd("n", 15, me.schDate)
.DueDate = me.schDate
.ReminderPlaySound = True
.ReminderSoundFile = "C:\Windows\Media\Ding.wav" 'Modify path.
.Save
End With
End sub