时间戳

首页 > 解决方案 > 在 Outlook 中设置会议时包括 Microsoft 团队会议

vba - 在 Outlook 中设置会议时包括 Microsoft 团队会议

问题描述

有谁知道如何在使用下面的 VBA 代码在 Outlook 中设置会议时包含团队会议？

在 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

标签： vbaoutlook

解决方案

子团队会议()

将 nm 调暗为 Outlook.AppointmentItem

设置 nm = Application.CreateItem(olAppointmentItem)

nm.MeetingStatus = olMeeting

nm.Subject = "主题"

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

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

nm.requiredattendees "受邀者的邮件地址"

nm.Body = "设置邮件正文"

纳米显示

发送键“{F10}”，真

发送键“H”，真

发送键“TM”，真

结束子

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

推荐阅读