Insert into MS Outlook

[Bre-x]

Hi,

I found this code to insert a record into MS Outlook. It works fine.

I have two questions:

1.- How can I insert a record into MS Outlook for each record on a table?
2.- If I run this code from my workstation it insert a record into my MS
Outlook.
How can I insert a record into another user MS Outlook ( we dont have
MS Exchange)?

Regards,

Bre-x


Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject("outlook.application")
Set outappt = outobj.CreateItem(olAppointmentItem)

With outappt
.Start = "07/20/07" & " " & "10:30:00 AM"
.End = "07/21/07" & " " & "12:30:00 PM"
.Subject = "VBA Code, From MS Access, Testing"
.Body = "Test Body, Test Est"
.Location = "My Location"
.ReminderMinutesBeforeStart = 10
.ReminderSet = True
.Save
End With
Set outobj = Nothing