1

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"
4

1 に答える 1

0

言うほど簡単ではない

.StartTimeTone = "Eastern"

ここを見てください：http://msdn.microsoft.com/en-us/library/microsoft.office.interop.outlook._appointmentitem.starttimezone.aspx

ご覧のとおり、ここのように TimeZone オブジェクトを作成する必要があります

Outlook 2010 VBA で定期的な予定のプロパティ (タイム ゾーン) を変更する方法

siddharth 敗走の答えを見てください。

于 2012-09-24T10:03:51.683 に答える