Создание встречи Outlook - PullRequest
Новая
       27

Создание встречи Outlook

0 голосов
/ 02 октября 2018

Я создал базовый код, в котором он создает встречу Outlook через VBA excel UserForm.Моя проблема, однако, заключается в том, что я не знаю, как установить «Пуск» на основе значений TextBox10 и Textbox11, поскольку он не принимает оба значения текстовых полей вместе. 

 Dim oAppt As AppointmentItem

    Candidate = TextBox2.Value + " " + TextBox1.Value
    InitialDate = TextBox10.Value
    InitialTime = TextBox11.Value

        Set oAppt = Outlook.Application.CreateItem(olAppointmentItem)

            oAppt.Subject = Candidate
            oAppt.Start = TextBox10.Value + TextBox11.Value
            oAppt.Start = IntialTime
            oAppt.Recipients.Add ("Email@gmail.com")
            oAppt.Save
        Candidate = Sheets("Client Lineup List").Range("F" & lMaxRows + 1).Value

Ответы [ 2 ]

0 голосов
/ 02 октября 2018

Вы должны преобразовать свои значения TextBox в дату / время.

Вы можете быстро преобразовать столбец текста, который напоминает даты, в фактические даты с помощью VBA-эквивалента команды «Данные ► Столбцы в таблицу». 

(TextBox10.Value & " " & TextBox11.Value).TextToColumns Destination:=.Cells(1), DataType:=xlFixedWidth, FieldInfo:=Array(0, xlYMDFormat)
.NumberFormat = "yyyy-mm-dd"   'change to any date-based number format you prefer the cells to display

Примечание: вы должны проверить, что действительная дата и время.

Для получения дополнительной информации, вы можете обратиться по этой ссылке:

Excel VBA- конвертировать текст в дату?

0 голосов
/ 02 октября 2018

Во-первых, всегда используйте Option Explicit.

Сначала преобразуйте значения TextBox в дату / время.Пример ниже 

Dim myDate As Date
myDate = CDate(TextBox10.Value & " " & TextBox11.Value)

Однако в этом случае необходимы дальнейшие соображения - проверьте, что введены правильные дата и время, иначе мой пример кода выше выдает ошибку.Одним из простых решений для деталей является использование DatePicker вместо TextBox10.Раньше в VB был DateTimePicker, но я не уверен, где сейчас находится текущий эквивалент в VBA.

Кроме того, проверьте, как я соединил строки (с пробелом между ними), используйте "&", а не" + ", что может иметь интересные побочные эффекты, особенно если вы не установили Option Explicit и не объявили свои переменные (делая их Variant).

...