Блог

Главная - Вопросы по программированию - Как настроить встречу в Outlook с часовым поясом

Как настроить встречу в Outlook с часовым поясом

#vba #outlook

Вопрос:

Я написал код, который создает встречу в 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

Спасибо

Комментарии:

1. Попробуйте использовать AppointmentItem. Время начала и время назначения. Часовой пояс

2. Привет, я пытался, как вы упомянули. Но я не уверен, как отправить значение? Не могли бы вы привести мне, пожалуйста, пример? В моем коде: ` С помощью myapt . Дисплей. Начальный часовой пояс = Что я должен передать здесь для Великобритании .Конечный часовой пояс = Что я должен передать здесь для Великобритании В конце «

Ответ №1:

О назначении им.Начальное значение свойства всегда представлено в местном часовом поясе, проверьте приложение.Часовые пояса.Текущий часовой пояс, который возвращает значение часового пояса, представляющее текущий локальный часовой пояс системы Windows.

Информация о часовом поясе используется для сопоставления времени встречи с правильным временем UTC при сохранении встречи и с правильным местным временем, когда элемент отображается в календаре.

О назначении им.Свойство StartTimeZone возвращает или задает TimeZone значение, соответствующее часовому поясу для времени начала встречи.

О назначении им.Свойство EndInEndTimeZone возвращает или задает значение даты, представляющее дату и время окончания встречи, выраженные в AppointmentItem.EndTimeZone .

Комментарии:

1. Привет @Евгений Астафьев, я пробовал, как вы упомянули. Но я не уверен, как отправить значение? Не могли бы вы привести мне, пожалуйста, пример? В моем коде: ` С помощью myapt . Дисплей. Начальный часовой пояс = Что я должен передать здесь для Великобритании .Конечный часовой пояс = Что я должен передать здесь для Великобритании В конце «

Метки: