![]() Set listattendees = Application.CreateItem(olMailItem) VbCrLf & "Where: " & strLocation & vbCrLf & "When: " & _ "Organizer: " & objOrganizer & vbCrLf & "Subject: " & strSubject & _ ![]() StrCopyData = vbCrLf & "-Original Appointment-" & vbCrLf & _ ObjAttendeeReq = objAttendeeReq & " " & objAttendees(x).Address If objAttendees(x) objItem.Organizer Then If objAttendees(x).MeetingResponseStatus = 0 Then ' 0 = no response, 2 = tentative, 3 = accepted, 4 = declined, Set objApp = CreateObject("Outlook.Application") This macro works with either the selected item or opened item, using the GetCurrentItem function, which is available at " Outlook VBA: Work with Open Item or Selected Item" The organizer is not included in the message. A new message will open, addressed to all invitees (required, optional, or resource) that has not yet responded. ![]() To use, select a meeting on the calendar or open a meeting and run the macro. If location and attendees fields are not picked up when the macro runs against a selected meeting, open the meeting and run it. Get the GetCurrentItem function from Outlook VBA: work with open item or selected item and paste it at the end of the module.Right click on Project1 and choose Insert > Module.In Outlook VBA, valid response statuses are: Constant This can be tweaked to send messages addressed to those who accepted, are tentative, or declined by changing the 0 in this line: If objAttendees(x).MeetingResponseStatus = 0 Then to the constant representing another response type.
0 Comments
Leave a Reply. |