從自定義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