I'm having trouble setting the time zone of an appointment.
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.
If I move "StartInStartTimeZone" above "Start" the time zone isn't changed.
My objective is -
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.
VBA Code:
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 -