Update outlook from access

[xaurien]

Hi all,

I have an access database to manage when people need to retake a qualification. I would like find a way to integrate these into an outlook calendar as individual entries.

I have found one way by exporting to a csv file and then importing that from outlook. Is there a way i can automate this?

Regards

Sean

 

[darbid]

Client not going to change its mind tomorrow?

So what do you have in your access table.

Do you have

a name
an email address
the date they must do the course again
the name of the course

 

[xaurien]

lol im sure client will change his mind again soon.

table structure is 2 tables.

tblStaff
-name
-staffid (primary)

tblCourses
-courseid (primary)
-staffid
-coursename
-expiry date

so i would like to insert name + course into the calendar entry and to set them on the date of the course expiry and also one month before that.

any ideas?

Sean

 

[darbid]

This should get you started

Dim olApp As Outlook.Application
Dim olExp As Outlook.Explorer
Dim olAppointment As Outlook.AppointmentItem
    
On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")

If Err.Number = 429 Then
    Set olApp = CreateObject("Outlook.Application")
End If

Set olAppointment = CreateItem(olAppointmentItem)

With olAppointment
    .subject = "coursename"
    .ReminderMinutesBeforeStart = "15"  'need to put this in minutes
    .Start = "11/07/2009"   'for this and end you need date AND time
    .End = "11/07/2009"
    .Save
End With
    

Set olApp = Nothing
Set olAppointment = Nothing

 

[xaurien]

cool, thanks for the help, thats loads to get me started, and im sure i can get the rest on my own!

Thanks

Sean