从Excel中的两个单元格获取Outlook约会的开始日期和开始时间

Question

我试图从Excel中的两个单元格中获取Outlook约会的开始日期和开始时间。

下面的语句只适用于其中一个单元格:

Sub Email()
Dim OutApp As Outlook.Application
Dim OutMeet AS Outlook.Appointment
Set OutApp = Outlook.Application
Set OutMeet = OutApp.CreateItem(olAppointmentItem)
With Outmeet
.Start = Range("X1").Value
End With
End Sub

我的两个单元格显示如下。
A1 = '25/12/2021'
A2 = '7:30 AM'

Answer 1

Sub Email()
Dim OutApp As Outlook.Application
Dim OutMeet As Outlook.AppointmentItem
Set OutApp = Outlook.Application

Set OutMeet = OutApp.CreateItem(olAppointmentItem)
With OutMeet
.Display
.Start = Range("A1").Value & " " & Format(Range("A2").Value, "h:mm")
.End = Range("B1").Value & " " & Format(Range("B2").Value, "h:mm")
'.Duration = 90
End With
End Sub