从自定义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