Meeting Request Update/Cancel VBA

  • Thread starter Thread starter Joshua McLemore
  • Start date Start date
J

Joshua McLemore

Hello,

I have an access database that I'm taking form information and inserting it
into a outlook meeting request. I've that that working, thanks forum posts
here. But now I'm trying to create two more buttons on that form that allow
the user to update or cancel the meeting request that has already been
created.

I'll give you the code I have for creating the meeting request:

______________________________________
Private Sub CmdCancelAppointment_Click()

Dim objOApp As New Outlook.Application
Dim objAppt As AppointmentItem
Dim oExp As Outlook.Explorer


Set objOApp = New Outlook.Application
Set objAppt = objOApp.CreateItem(olAppointmentItem)
Set oExp = objOApp.Session.GetDefaultFolder(olFolderInbox).GetExplorer

With objAppt
..RequiredAttendees = [Forms]![frmEvent_Part1_Details]![Audio Emails
Combined] & ";" & [Forms]![frmEvent_Part1_Details]![Lighting Emails Combined]
& ";" & [Forms]![frmEvent_Part1_Details]![Projection Emails Combined] & ";" &
[Forms]![frmEvent_Part1_Details]![StageHands Emails Combined] & ";" &
[Forms]![frmEvent_Part1_Details]![Camera Emails Combined] & ";" &
[Forms]![frmEvent_Part1_Details]![Other Emails Combined]
..Subject = [Forms]![frmEvent_Part1_Details]![Name of Event] & " " &
[Forms]![frmEvent_Part1_Details]![Part Date Text]
..Importance = 1 ' Normal
..Start = [Forms]![frmEvent_Part1_Details]![Part Date Text] & " " &
[Forms]![frmEvent_Part1_Details]![Part Start Time Text]
..Location = [Forms]![frm All Events]![Part 1 Location]
..Body = [Forms]![frmEvent_Part1_Details]![Additional Part Notes Text]
..MeetingStatus = 1
..ResponseRequested = True
..Save
..Send
MsgBox "Event Cancellation Sent."
End With


Exit_btnSendItem_Click:
Set objOApp = Nothing
Set objAppt = Nothing
Set oExp = Nothing
Exit Sub

End Sub
__________________________________

Thanks in advance.
 
Back
Top