Я пытаюсь создать макрос для пользовательской формы Excel, который проверяет, доступны ли дата и время в outlook на основе даты и времени в моей пользовательской форме. В настоящее время я создаю встречи Outlook из моей пользовательской формы с помощью следующего макроса, но у меня нет возможности проверить, доступны ли дата и время, прежде чем выполнять встречу. Возможно, в моей пользовательской форме есть способ создать кнопку, которая бы проверяла, доступны ли введенные дата и время? Мне нужно, чтобы даты были с понедельника по субботу и с 9:00 до 18:00. Вот мой код:

Пользовательская форма, которая создает Мои встречи из Excel в Outlook

Пользовательская форма, которая создает встречи

Sub outlook_call()


Dim cb As Object
Dim lastrow As Long, ws As Worksheet
Set ws = Sheets("appointments")
lastrow = ws.Cells(Rows.Count, 11).End(xlUp).Row + 1

Set myOutlook = CreateObject("Outlook.Application")


Do Until appvision.appname.Value = ""
    ' Create the AppointmentItem
    Set myApt = myOutlook.CreateItem(1)
    ' Set the appointment properties
    myApt.Subject = appvision.appname.Value
    myApt.Location = appvision.appname.Value
    myApt.Start = appvision.TextBox2.Value
    'myApt.Duration = appvision.ComboBox1.Value
     'If Busy Status is not specified, default to 2 (Busy)
    'If UserForm2.ComboBox3.Value = "" Then
     '  myApt.BusyStatus = 2
    'Else
       ' myApt.BusyStatus = UserForm2.ComboBox3.Value
   ' End If
    If appvision.TextBox9.Value > 0 Then
      myApt.ReminderSet = True
       myApt.ReminderMinutesBeforeStart = appvision.TextBox9.Value
    Else
        myApt.ReminderSet = False
    End If
    myApt.Body = appvision.TextBox4.Value
    myApt.Display
Exit Do
Loop
End Sub
|источник

0