Search code examples
excelvbaoutlook

Create Outlook Meeting with AllowNewTimeProposals Disabled

I cannot find such option in documentation.
https://learn.microsoft.com/en-us/office/vba/api/outlook.appointmentitem

It is available here in Outlook User Interface, I want to have it disabled.

Outlook Meeting

My code

Set OutApp = New Outlook.Application
Set OutAppoint = OutApp.CreateItem(olAppointmentItem)

With OutAppoint
        .RequiredAttendees = RequiredAtendeesString
        .AllDayEvent = True
        '.Recipients.Add ("")
        .Start = StartDate & " " & StartHour
        .End = EndDate & " " & EndHour
        .AllDayEvent = AllDayEvent
        .Subject = Subject
        .Body = Body
        .BusyStatus = olFree
        .Location = Location
        .Save
        .MeetingStatus = olMeeting
        .ReminderSet = False
        .ResponseRequested = False
        .PropertyAccessor.SetProperty("http://schemas.microsoft.com/mapi/id/{00062002-0000-0000-C000-000000000046}/825A000B", $true)
        .Display
End With
Solution

  • You need extreme care with brackets.

    .propertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/id/{00062002-0000-0000-C000-000000000046}/825A000B", True