Vba 在outlook中设置会议时包括Microsoft团队会议

是否有人知道在使用下面的VBA代码在Outlook中设置会议时如何包括团队会议

下面是我的代码：

Sub setmeeting()

    Dim O As Outlook.Application
    Dim OAPT As Outlook.AppointmentItem

    Set O = New Outlook.Application

    Set OAPT = O.CreateItem(olAppointmentItem)
    OAPT.MeetingStatus = olMeeting

    With OAPT

        .RequiredAttendees = "abc@gmail.com"
        .OptionalAttendees = "abc@gmail.com"
        .Subject = "I Love VBA"
        .Start = "11/21/2019 12:00:00 PM"
        .End = "11/21/2019 12:30:00 PM"
        .Body = "Hello World"
        .Location = "Cubicle"
        .Display
        .Send

    End With

    Set OAPT = Nothing
    Set O = Nothing

End Sub

---

在团队约会中设置了许多与团队相关的属性。这些属性将约会与团队服务器链接起来，我认为如果不先与团队服务器通信，就无法设置这些属性

---

查看现有的团队约会（单击IMessage按钮）。

团队约会上设置了许多与团队相关的属性。这些属性将约会与团队服务器链接起来，我认为如果不先与团队服务器通信，就无法设置这些属性

查看现有团队约会（单击IMessage按钮）。

子团队会议（）

将nm设置为Outlook.AppointmentItem

Set nm=Application.CreateItem（olAppointmentItem）

nm.MeetingStatus=olMeeting

nm.Subject=“Subject”

nm.Start='格式：DD/MM/YYYY HH:MM:SS AM/PM

nm.End=“”格式：DD/MM/YYYY HH:MM:SS AM/PM

nm.RequiredAttenders“受邀者的邮件地址”

nm.Body=“设置电子邮件的正文”

纳米显示器

SendKeys“{F10}”，真

SendKeys“H”，对

SendKeys“TM”，真实

端接头

'如果正在执行循环，请在开始下一个循环之前添加等待时间

将nm设置为Outlook.AppointmentItem

Set nm=Application.CreateItem（OLAPPointItem）

nm.MeetingStatus=olMeeting

nm.Subject=“Subject”

nm.Start='格式：DD/MM/YYYY HH:MM:SS AM/PM

nm.End=“”格式：DD/MM/YYYY HH:MM:SS AM/PM

nm.RequiredAttenders“受邀者的邮件地址”

nm.Body=“设置电子邮件的正文”

纳米显示器

SendKeys“{F10}”，真

SendKeys“H”，对

SendKeys“TM”，真实

端接头

'如果正在执行循环，请在开始下一个循环之前添加等待时间