通过VBA添加Skype会议邀请

我想通过excel宏发送Skype会议邀请。有办法吗？目前我只能创建一个普通会议邀请

Dim olApp As Outlook.Application

Dim ol_Meeting As Outlook.AppointmentItem

Set olApp = New Outlook.Application

Set ol_Meeting = olApp.CreateItem(olAppointmentitem)
ol_Meeting.MeetingStatus = olMeeting

With ol_Meeting

  .Display
  .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name

End With

---

假设您正在使用Skype for Business并假设宏供您使用，您只需创建outlook会议邀请并添加自动Skype链接，右键单击Skype会议链接，编辑超链接，复制它并添加到宏的电子邮件正文中

---

这将使用链接填充您的电子邮件，以访问您通常发送的任何Skype会议。它适合我。

Skype meeting是outlook加载项。并且不遵循对象模型。我认为这可以通过

Send key

方法实现。发送Alt键快捷方式，如本例中的

Alt

H

PM

您还可以使用Microsoft UI Automation来定位元素并模拟单击。这可能比sendkeys更可靠。我没有足够的声誉发表评论，但我认为在不使用Skype控件的情况下添加链接意味着您将丢失会议提醒中的“加入在线会议”。这并不能提供问题的答案。一旦你有足够的钱，你将能够；相反-