4

我有一个宏，它接受我选择的电子邮件的描述，并填充从模板创建的表单的“消息”字段：

sText = olItem.Body

Set msg = Application.CreateItemFromTemplate("C:\template.oft")
With msg
   .Subject = "Test"
   .To = "user@user.com"
   'Set body format to HTML
   .BodyFormat = Outlook.OlBodyFormat.olFormatHTML
   .HTMLBody = "<HTML><BODY>EmailDesc: " + sText + "</BODY></HTML>"
   .Display
End With

在这个模板中，我有更多的字段要填写，例如组合框..。

我想知道，当我点击发送按钮时，如何获取这个组合的值，并在发送前将其连接到电子邮件的内容？

生成这样的东西：

EmailDesc: TEST SEND EMAIL BLA BLA BLA..
ComboboxValue: Item1

谢谢

4

1 回答 1

7

Application_ItemSend event当您按下发送按钮时，您需要使用which fires。您在 中创建此事件ThisOutlookSession module。您的事件子可能如下所示：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo ErrorHandler

    With Item   'Item is your e-mail
        'this way you could change your subject just before you send message
        .Subject = "test subject"   
        'here some changes regarding body of the message
        .Body = .Body & " Additional text at the end or " & _
                "ComboBoxValue: " '& ... reference to combobox value here
    End With

Exit Sub
ErrorHandler:
    MsgBox "Error!"
End Sub

小心 - 这将对您的每封电子邮件执行操作，因此您应该添加一些if statements以使其仅适用于您的某些电子邮件。

于 2013-07-10T11:44:21.780 回答