从自定义 Outlook 窗体生成新电子邮件

Question

我构建了一个表单，可以在上面存储某些联系人数据。我想包含几个按钮/功能，以尽可能多地将用户保持在表单中，而不是在 Outlook 组件（日历、邮件等）之间切换。

在这种情况下，用户可以从单独的列表框中交换电子邮件地址，当他们点击按钮时，它将使用其中一个列表中的电子邮件。使用 VBS，因为我正在处理自定义 Outlook 表单。

Sub GenerateButton_Click()
     'Generates Email with all of the CCs
     'Variables
     Set FormPage = Item.GetInspector.ModifiedFormPages("Commands")
     Set DoSend = FormPage.Controls("DoSendListBox")
     mailList = ""
     'Generate Email List
     For x = 0 to (DoSend.ListCount - 1)
         mailList = mailList & DoSend.List(x) & ";"
     Next
     'Compose Email
     Set msg = Application.CreateItem(olMailItem)
     msg.Subject = "Hello World!"
     msg.To = mailList
End Sub  

会发生什么
- 编译
- 点击时没有任何反应

研究
- 通常在VBA
中的在线论坛 - 相关文章使用外部连接而不是内部展望

Answer 1

已解决
注意：单击"脚本"选项并选择对象项。在新窗口中，您可以浏览类，从中我能够找到MailItem。您可以在右侧窗格中看到所有方法/属性。

事实证明，正确的语法是：

Set msg = Application.CreateItem(MailItem)
msg.Display