• Subject: Meeting Request Update/Cancel VBA
  • Author: Joshua McLemore
  • Date: 26 Jun
  • References:
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.
Joshua
26 JunMeeting Request Update/Cancel VBA.Joshua McLemore
All times are in (US) Eastern Daylight Time (GMT -4:00)