Excel VBA - 與東部時區創建Outlook約會

Question

我有一個創建Outlook約會的Excel宏。除了我需要將時區設置爲「東部」以外，我可以將所有工作都做好。我的一些同事住在其他時區，我想確保預約的時間設定在他們的正確時間。這是我現在的代碼。如何將時區設置爲東部（美國&加拿大）？

Set objOL = CreateObject("Outlook.Application") 
     Set objItem = objOL.CreateItem(1) 
     With objItem 
      .StartTimeZone = "Eastern" 
      .Start = Range("B4").Text & " " & Range("C4").Text 
      .End = Range("B4").Text & " " & Range("D4").Text 
      .Body = "Centra Link: " & Range("K4") & vbCrLf & vbCrLf & " Phone: " & Range("I4") & vbCrLf & vbCrLf & "Lead facilitator: " & Range("E4") & vbCrLf & "Co-facilitator: " & Range("F4") & vbCrLf & vbCrLf & Range("MISC_HEADER") & ": " & Range("H4") 

      .Location = Range("I4") & ", Leader Code: " & Range("J4") 
      .alldayevent = False 
      .Subject = Range("A4") 
      .ReminderMinutesBeforeStart = 30 
      .ReminderSet = True 
      .Save 
     End With 
Set objItem = Nothing 
Set objOL = Nothing 
MsgBox "An appointment has been created for " & Range("A4") & " on " & Range("B4"), vbOKOnly, "Calendar Appointment" 

Answer 1

這是不那麼容易，至於說

.StartTimeTone = "Eastern" 

這裏看看：http://msdn.microsoft.com/en-us/library/microsoft.office.interop.outlook._appointmentitem.starttimezone.aspx

你看，你就必須創建一個TimeZone對象，喜歡這裏

How to Modify Properties (Time Zone) of Recurring Appointments in Outlook 2010 VBA

看看siddharth潰敗的答案。