如何在vb.net windows表单应用中设置Outlook项的时区

Imports Outlook = Microsoft.Office.Interop.Outlook

Public Sub CreateOutlookAppointmentWithTimeZone()
    ' 创建Outlook应用程序实例
    Dim outlookApp As New Outlook.Application()
    
    ' 创建约会项
    Dim appointment As Outlook.AppointmentItem = outlookApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
    
    ' 设置约会的基本属性
    appointment.Subject = "Meeting with Team"
    appointment.Body = "Discuss project progress and plan for next steps."
    appointment.Start = DateTime.Now ' 设置开始时间
    appointment.End = appointment.Start.AddHours(1) ' 设置结束时间
    
    ' 设置时区
    Dim timeZone As Outlook.TimeZones = outlookApp.TimeZones
    Dim timeZoneIndex As Integer = timeZone.FindId("Eastern Standard Time") ' 以东部标准时间为例
    appointment.StartTimeZone = timeZone.Item(timeZoneIndex)
    appointment.EndTimeZone = timeZone.Item(timeZoneIndex)
    
    ' 显示约会项
    appointment.Display()
    
    ' 释放COM对象
    System.Runtime.InteropServices.Marshal.ReleaseComObject(timeZone)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(appointment)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(outlookApp)
End Sub