如何使用 MS Outlook 中的用戶表單填充新電子郵件窗口（主題和正文字段）？

Question

我定期為我的工作向供應商發出采購訂單，或者；

• 像普通人一樣寫電子郵件或；
• 使用宏打開我生成的模板

  Sub New_Email_from_PO_Template() Dim myOlApp As Outlook.Application Dim MyItem As Outlook.MailItem Set myOlApp = CreateObject("Outlook.Application") Set MyItem = myOlApp.CreateItemFromTemplate("C:\\Blah\\template.oft") MyItem.Display End Sub

我的目標是通過創建一個用戶表單來消除出錯的可能性，該表單將填充一個新電子郵件窗口，允許我在手動單擊 [發送] 之前進行任何所需的更改並添加附件。

這里包括一個我創建的用戶表單。

我創建的 Userform 中的文本框如下；

1. 收件人姓名
2. 采購訂單號
3. 采購訂單說明
4. 位置
5. 項目編號
6. 日期需要

在 [SubmitButton] 之后，數據將被填充到新電子郵件窗口的主題和正文字段中。

主題行：

• “采購訂單# [采購訂單編號] - [采購訂單描述] - [位置]”

身體：

• “致 [Recipient_Name]，請找到與 [Location] 的 [PurchaseOrderDescription] 有關的附加采購訂單 (PO# [PurchaseOrderNumber])。所需日期：[DateRequired] 謝謝和親切的問候，[用戶的 Outlook 簽名]”

我開發的代碼如下；

Sub ShowPOSubmissionUserform()
POSubmissionEmailGenerator.Show
End Sub

Sub InitialisePOSubmissionUserform()
'Empty ProjectNumberTextbox
ProjectNumberTextbox.Value = ""

'Empty ProjectNameTextbox
ProjectNameTextbox.Value = ""

'Empty PONumberTextbox
PONumberTextbox.Value = ""

'Empty RecipientNameTextbox
RecipientNameTextbox.Value = ""

'Empty DateRequiredTextbox
DateRequiredTextbox.Value = ""
End Sub


Private Sub CloseButton_Click()
Unload Me
End Sub


Private Sub SubmitButton_Click()
'Creates a new e-mail item and modifies its properties
Dim OutlookApp As Object
Dim MItem As Object
Dim email_ As String
Dim subject_ As String
Dim body_ As String
Dim attach_ As String
Set OutlookApp = CreateObject("Outlook.Application")
email_ = POSubmissionEmailGenerator.ProjectNumberTextbox.Value
subject_ = "Hello this is the subject"
body_ = "Line 1" & vbNewLine & vbNewLine & "Line 3"
'create Mail Item and send it
Set MItem = OutlookApp.CreateItem(0)
With MItem
.To = email_
.Subject = subject_
.Body = body_
End With
End Sub

目前，當按下提交時，什么也沒有發生。 需要添加什么才能使其至少打開“新建電子郵件”窗口？

Answer 1

With MItem
    .To = email_
    .Subject = subject_
    .Body = body_
    .Display '<<  
End With