Set Outlook Appointment Time Zone

[288enzo]

I'm having trouble setting the time zone of an appointment.

AppointmentItem.StartTimeZone property (Outlook)

Office VBA reference topic

docs.microsoft.com

I have tried "StartTimeZone" & "StartInStartTimeZone" = EST

StartTimeZone gives me an error '424' Object required
StartInStartTimeZone converts the appointment start date and time from 03/14/2022 14:00 to 12/30/1899 12 AM

Creating the appointment works perfect if I don't mess with the time zone, but I'll be sending this to recipients all across the US and need the time zone to be set.

Sub appointment()

Dim App As Outlook.Application
Dim Meet As Outlook.AppointmentItem
Dim stime As Variant

Set App = Outlook.Application
Set Meet = App.CreateItem(olAppointmentItem)

stime = [H1] & " " & Format([B5], "hh:mm")

With Meet
.Subject = ""

.Start = stime
.StartInStartTimeZone = EST
.Duration = 120
.Importance = olImportanceHigh
.ReminderMinutesBeforeStart = 15
.Body = ""
.MeetingStatus = olMeeting

.display
End With

End Sub

If I move "StartInStartTimeZone" above "Start" the time zone isn't changed.

My objective is -