Question

我已经构建了一个表单，可以在其上存储某些联系人数据。我希望包含一些按钮/功能，以便尽可能地保持用户在表单中切换Outlook组件（日历，邮件等）。

在这种情况下，用户可以从单独的ListBox中交换电子邮件地址，当他们点击按钮时，它将使用其中一个中的电子邮件。使用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中 - 相关文章使用外部联系而不是从Outlook内部

Answer 1

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

结果证明正确的语法是：

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

从自定义展望表单

1 个答案: