Tentative accept a meeting without sending a message

Status
Not open for further replies.
A

Amit

New Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
I would like to be able to accept meeting tentative and not sending the response in one click.
for now I do it manually for each appointment by 2 clicks, 1. accept tentative -> 2. send\don't send response.
I have a script that accept meetings and send response.
I need help with the syntax to accept the meeting tentative.
thanks,
Amit

Function GetCurrentItem() As Object
Dim objApp As Outlook.Application

Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
End Select

Set objApp = Nothing
End Function
Sub AcceptAppointmentAndSend()

Dim oAppt As MeetingItem
Dim cAppt As AppointmentItem
Dim oRequest As MeetingItem

Dim oResponse

Set cAppt = GetCurrentItem.GetAssociatedAppointment(True)
Set oRequest = GetCurrentItem()

'option to forward to someone
'Set oAppt = oRequest.Forward
'oAppt.Recipients.Add "alias@domain.com"
'oAppt.Send

'http://www.slipstick.com/developer/accept-or-decline-a-meeting-request-using-vba/
Set oResponse = cAppt.Respond(olMeetingAccepted, True)
oResponse.Send
oRequest.Delete

Set cAppt = Nothing
Set oAppt = Nothing
Set oRequest = Nothing

End Sub
 
Status
Not open for further replies.
< Outlook being closed causing problems during copy to Excel | Deleting Duplicate Calendar Entires >
Similar threads
Thread starter Title Forum Replies Date
I Creating meeting invite with disabled tentative button Outlook VBA and Custom Forms 5
M Outlook settings will not accept a password Using Outlook 9
Paul Hobbs Automatically accept "Empty Folders" prompt Outlook VBA and Custom Forms 6
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
E Can't accept or decline task (no button appears) Using Outlook 2
A Auto Accept Meetings from the General Calendar Using Outlook 3
M Configure outlook 2007 to accept digital signatures Using Outlook 2
D Custom Form Accept and Reject Command buttons Outlook VBA and Custom Forms 2
G Auto accept meeting request for non primary account Outlook VBA and Custom Forms 1
B Meeting Accept option greyed out Using Outlook 0
J Auto Accept Notifications from a shared icloud calendar? Using Outlook 4
J Recurring meeting - i require a monthly accept confrimation Using Outlook 1
P Have to accept Outlook 2010 invitation twice Using Outlook 0
A Outlook Offers No "Accept" Option for .ics Files Using Outlook 5
H Cannot accept tasks from outlook 2013 or even from web Using Outlook 7
V "Accept + Send the Response now", VBA script? Using Outlook 1
W Add to Calendar links - auto accept with macro Using Outlook 1
B Unable to Accept meetings that are already Tentatively accepted Using Outlook 2
B Outlook 2010 asking for password constantly, won't accept correct one Using Outlook 5
B cant accept iCal calendar invites in Outlook 2007 (SP3) Using Outlook 4
C Can you have Outlook automatically accept Tasks for you? Using Outlook 7
W Cannot accept tasks... Using Outlook 15
S Must accept EULA everytime Outlook 2003 opens in Windows 7 Using Outlook 3
B conference rooms, accept agent, resources Exchange Server Administration 5
V Auto-accept meeting cancelation Outlook VBA and Custom Forms 1
D Outlook 365 Forward Meeting Related Messages to Specific Meeting Organizer Outlook VBA and Custom Forms 0
J Event/Meeting in Outlook Does Not Align with SharePoint Calendar Using Outlook 5
A Meeting organizer calendar intermittently drops meeting after delegate sends invite Using Outlook 0
A Meeting organizer calendar intermittently drops meeting after delegate sends invite Exchange Server Administration 0
C Create Meeting With Custom Form Outlook VBA and Custom Forms 2
S Skype for business meeting vba code Outlook VBA and Custom Forms 1
A Unable to save recurring Meeting to Documents folder due to error Using Outlook 2
S Meeting with Time Slots Using Outlook 2
egarneau Meeting updates with external contacts (GMail) Using Outlook 1
L automaticaly create a teams meeting with a sync Using Outlook 0
R auto send email when meeting closes from a shared calendar only Outlook VBA and Custom Forms 2
S Meeting Invite arrives from Wrong ("send-as") Sender Using Outlook 1
Daniel Schunk Meeting responses are not shown in the status area Using Outlook 2
A End-time meeting reminder (or "negative" time relative to the meeting start time) Using Outlook 1
J Help Please!!! Outlook 2016 - VBA Macro for replying with attachment in meeting invite Outlook VBA and Custom Forms 9
T Pick-a-Meeting in Outlook 365 Using Outlook 2
J No response required when delegate arranging meeting Using Outlook 0
S Accepting meeting request from calendar keeps the meeting request in the inbox Using Outlook 2
D Add all meeting rooms to the meeting request by default Outlook VBA and Custom Forms 0
Rick Rickert Would like bigger meeting notifications. Using Outlook 3
D Next Available Meeting with Userform Variables Outlook VBA and Custom Forms 1
J Outlook 2016 shows Meeting Organizer in Calendar View Using Outlook 5
C Update Notes for Meeting Attendees Using Outlook 8
D Outlook macros to create meeting on shared calendar Outlook VBA and Custom Forms 10
P Skype contact icons have disappeared at the bottom of email and meeting objects Using Outlook 2

Similar threads

Back
Top