时间戳

首页 > 解决方案 > 从 MS Access 表单自动填充 Outlook 电子邮件

vba - 从 MS Access 表单自动填充 Outlook 电子邮件

问题描述

我有一个名为 ClientListtbl 的表和一个名为 ClientListfrm 的表单。在表单上有一个单击按钮可自动生成电子邮件。请看下面的代码

Private Sub Command20_Click()

    Dim LastName As Variant
    Dim Email As Variant
    Dim Notes As Variant
    Dim Insurer As Variant
    Dim Premium As Variant
    Dim RenewalDate As Date
    Dim objOutlook As Object
    Dim objEmail As Object

    LastName = Forms("ClientListfrm").LastName
    Email = Forms("ClientListfrm").EmailAddress
    Notes = Forms("ClientListfrm").Notes
    Insurer = Forms("ClientListfrm").Insurer
    Premium = Forms("ClientListfrm").Premium

    Set objOutlook = CreateObject("Outlook.Application")
    Set objEmail = objOutlook.CreateItem(0)

    With objEmail
     .To = Email
     .Subject = "transfer " & LastName & " from James"
     .HTMLBody = Insurer & _
     Premium & _
     RenewalDate & _
     Notes
     .Send
End With

    Set objEmail = Nothing
    Set objOutlook = Nothing

End Sub

我希望电子邮件不会自动发送，以便用户在发送前对其进行审查，但我似乎不知道如何更改它。

在 HTMLBody 中，我希望每个字段都有一个新行，但我见过和尝试过的所有示例都不起作用。

HTMLBody 中的 RenewalDate 在电子邮件中显示为 20000:00:00，而不是表单上显示的日期。

提前感谢您提供的任何帮助。

标签： vbaoutlookms-access-2016

解决方案

使用.Display而不是.Send.

如果要发送 HTML，则需要构建 HTML。例如

.HTMLBody = "<p>" & Insurer & "</p>" & _
     "<p>" & Premium & "</p>"

等等。或者用分隔符构建你的字符串vbCrLf，然后HtmlEncode()在结果上使用。

你没有RenewalDate在你的代码中设置。Format()如有必要，请使用该功能。

推荐阅读