Access to Outlook and back again

[TryingMyBest]

Firstly does anyone know if this scenario is possible within Office XP?

I have a database that amongst other things can be used to record the date and duration of audits. Using the code from MS KB I have successfully managed to create a button that adds the audit to my calendar.

What I want to do next is invite an attendee to the meeting (auditee) at the point the meeting is scheduled and if the auditee accepts the meeting request clear a check box in Access. If the auditee suggests a new meeting time I want my table in access to update with the new date.

Is there a way to somehow flag the appointment in outlook as one that has been created using access and therefore any changes that are made to that appointment in outlook (either on my PC or the auditees PC) will update the access table?

Secondly, if this is possible - or if even part of this is possible - can anyone give any pointers on how and where to start. I have had a look on both MS and Helen Feddema's website and don't see a solution...yet!

Thankyou for any help or thoughts that you have on this

Jo

 

[modest]

You can change the message's flagstatus and flag dueby date, but as far as marking whether or not it came from Access, I'm not to sure.

Here's a link to send an appointment.
http://www.vba-programmer.com/Outlook_Code/Creating_Sending_Outlook_Appointment.txt

 

[TryingMyBest]

Thanks

Thanks modest...that helps a bit. My current thinking is that if I could create a template appointment in outlook I could perhaps use outlook vba to programme the update of the access db.

Looks like I have embarked on a bit of an adventure!

Jo

 

[TryingMyBest]

Hmm not quite right

Here's a link to send an appointment.
http://www.vba-programmer.com/Outlook_Code/Creating_Sending_Outlook_Appointment.txt

Have had a look at this code and it would appear that this sends an email to remind the person but doesn't actually add the appointment to their calendar. You know when you create an appointment in outlook and add attendees it sends an email which, if the attendee accepts, adds the appointment to their calendar? That's what I want to do as a start.

Any pointers?

 

[TryingMyBest]

Got part of it!

OK...I've managed to write the code to add the appointment to my calendar and invite the attendee. I needed to change the appointment type to meeting...see code in red.

Dim objOutlook As Outlook.Application
    Dim objAppt As Outlook.AppointmentItem
    
    Set objOutlook = CreateObject("Outlook.Application")
    Set objAppt = objOutlook.CreateItem(olAppointmentItem)
    
    With objAppt
        [COLOR=Red].MeetingStatus = olMeeting[/COLOR]
        .Start = Me!ApptDate & " " & Me!ApptTime
        .Duration = Me!ApptLength
        .Subject = Me!Appt
        Set myRequiredAttendee = .Recipients.Add(Me!RequiredAttendees)
        myRequiredAttendee.Type = olRequired

        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
        
        .Recipients.ResolveAll
        .Display
        .Send
        .Save
        .Close (olSave)
        End With
        
        Set objAppt = Nothing
        
End If

Set objOutlook = Nothing

What I need to do now is somehow capture the response and use that to modify the meeting status in the access db.

 

[modest]

The link wasn't a complete answer to your code it was a starting location. It was posted in the VBA for Outlook section, not "how to use Outlook in Access". I skimmed the objects and they looked universal so I figured it would probably work in Access.

Needless to say, it should get you familiar with how to send requests and what not. Again, it was a starting point. I have not yet had to do anything like what you need. The furthest I've had to deal with outlook is sending an automatic report to employees (rather simple).

 

[TryingMyBest]

See above

The link wasn't a complete answer to your code it was a starting location. It was posted in the VBA for Outlook section, not "how to use Outlook in Access". I skimmed the objects and they looked universal so I figured it would probably work in Access.

Needless to say, it should get you familiar with how to send requests and what not. Again, it was a starting point. I have not yet had to do anything like what you need. The furthest I've had to deal with outlook is sending an automatic report to employees (rather simple).

Hey modest!

I've made some progress with this now...posted above...due partly to the link you posted so thanks for that. I spent a while browsing through the info and came across a link to MS that showed how to change the appointment item to a meeting item. I guess appointments are for individuals and meetings are for groups in the MS world.

Jo