Here is some code From a previous Cheryl Fisher's post
(from:
http://tinyurl.com/2knwj , where you will find
additional examples) which will get you started:
Dim rs as DAO.Recordset
Dim db as DAO.Database
Dim olApp As Outlook.Application
Dim olNewMeeting As Outlook.AppointmentItem
Dim strSQL as String
Set db = CurrentDB
Set olApp = New Outlook.Application
strSQL = "Select * from tblAppointments"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
Do while not rs.EOF()
Set olNewMeeting = olApp.CreateItem(olAppointmentItem)
With olNewMeeting
'***Substitute your recordset field names below,
'where appropriate.
.Recipients.Add "Your profile name or email
address"
.Start = #7-21-99 2:30:00 PM#
.Duration = 30
.Importance = olImportanceHigh
.Subject = "Programming Outlook"
.Save
End With
rs.MoveNext
Loop
rs.close
set rs=nothing
set olApp = nothing
Note that you will need to set a reference to the Microsoft
DAO x.xx Object
Library and Microsoft Outlook xx.x Object Library which are
appropriate to
your versions of Access and Outlook.
Jim
-----Original Message-----
I cannot find a way to link MS Access to my Outlook
Calender. I would Like to Populate my Outlook Calender
from inside MS Access. Simple stuff, just an appointment
description and date/time. When I try to link only 20
fields are linked and none of them are correct, or at least
decypherable. There are Basic fields that appear to be
email fields, "from, senders name, to, received, has
attachments, date created, etc. but no fields for
appointment time/date. The data is Live, but I cannot see
all fields. Any help would be appreciated. thx
