问如何在outlook中使用时区设置约会

EN

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