access database to outlook calendar

Negativ3
Negativ3 used Ask the Experts™
on
I would like to have an access database linked to my outlook calendar for administration of the calendar. So using access to input data then upload into outlook.

What I have is equipment which needs calibration every 180 days, and I would like a simple way to enter the data into outlook.

The data I am looking at is fairly simple. Fields as follows:
1. Date
2. Equipment ID
3. Description
4. Validity period (days)
5. Hyperlink to a PDF document (certificate)

So based on 1+4 a reminder could be setup in outlook. Is it possible to do this?

Thanks
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Most Valuable Expert 2012
Top Expert 2014
Commented:
You can automate Outlook from Access:

http://support.microsoft.com/kb/160502

The code that actually adds the Appointment is in Step 7.

Dim outobj As Outlook.Application
            Dim outappt As Outlook.AppointmentItem
            Set outobj = CreateObject("outlook.application")
            Set outappt = outobj.CreateItem(olAppointmentItem)
            With outappt
               .Start = Me!ApptDate & " " & Me!ApptTime
               .Duration = Me!ApptLength
               .Subject = Me!Appt
               If Not IsNull(Me!ApptNotes) Then .Body = Me!ApptNotes
               If Not IsNull(Me!ApptLocation) Then .Location = _
                  Me!ApptLocation
               If Me!ApptReminder Then
                  .ReminderMinutesBeforeStart = Me!ReminderMinutes
                  .ReminderSet = True
               End If
               .Save
            End With

Obviously, that code is referring to Fields on the form where it's running, so you'd have to replace those bits with valid references to your controls.

For my money, however, the easiest way to handle this is by using vbMAPI (www.everythingaccess.com). It's simple, easy to install and deploy, and works very well.

Author

Commented:
Very nice solution, thanks

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial