如何在带有时区的outlook中设置约会

Question

我已经编写了一个在 Outlook 2016 中创建约会的代码，但我被困在这里更改时区。任何人都可以在这里帮助提前谢谢。

Sub Outlook_Appointment()
Dim o As Outlook.Application
Set o = New Outlook.Application

Dim ONS As Outlook.Namespace
Set ONS = o.GetNamespace("MAPI")

Dim CAL_FOL As Outlook.Folder
Set CAL_FOL = ONS.GetDefaultFolder(olFolderCalendar)

Dim myapt As Outlook.AppointmentItem
Set myapt = CAL_FOL.Items.Add(olAppointmentItem)

With myapt

    .Display
    .Start = Date + TimeValue("15:30:00")
    .End = Date + TimeValue("16:30:00")
    .Location = "Seattle"
    .Subject = "Discussion"
    .Body = "This is a test mail to block the calendar"
    .ReminderMinutesBeforeStart = TimeValue("00:15:00")
    .To = "abc@gmail.com"
    .Save

End With
End Sub

谢谢

Answer 1

AppointmentItem.Start 属性值始终以本地时区表示，请查看 Application.TimeZones.CurrentTimeZone，它返回表示当前 Windows 系统本地时区的 TimeZone 值。

时区信息用于将约会映射到保存约会时的正确 UTC 时间，以及当项目在日历中显示时映射到正确的本地时间。

AppointmentItem.StartTimeZone 属性返回或设置一个TimeZone 值，该值对应于约会开始时间的时区。

AppointmentItem.EndInEndTimeZone 属性返回或设置一个 Date 值，该值表示在 AppointmentItem.EndTimeZone 中表示的约会的结束日期和时间。