使用 VBA 从 MS Access 发送电子邮件答案

【问题标题】：Using VBA to send email from MS Access使用 VBA 从 MS Access 发送电子邮件
【发布时间】：2021-11-21 21:26:24
【问题描述】：

你好 stackoverflow 成员

我是一名长期使用 MS Access 的用户，他已远离 VBA 和 SQL，并创建了一个表单，并希望使用从子表单捕获数据的按钮（基于查询）发送电子邮件。

我使用这个YouTube 视频作为指导，但遇到了卡住（从“msg =...”开始，当我尝试运行代码时（如下）。

不胜感激。

Private Sub cmd_EmailContact_Click()

    Dim Msg As String
    
    **msg = "Dear " & First name & ",<P>" & _
        Student First name & "has been successfully been loaded on the platform" & ",<P>" & _
        "Student login details on the platform are:" & ",<P>" & _
        "Username:" & Username & ",<P>" & _
        "Password:" & Password**

    Dim O As Outlook.Application
    Dim M As Outlook.MailItem
    
    Set O = New Outlook.Application
    Set M = O.CreateItem(olMailItem)
    
    With M
        .BodyFormat = olFormatHTML
        .HTMLBody = Msg
        .To = Email
        .Subject = "Student available on OARS"
        .Display        
    End With
    
    Set M = Nothing
    Set O = Nothing

End Sub

【问题讨论】：

这能回答你的问题吗？ Sending Email using Access VBA
什么是Student First name？你认为这是某种变量名吗？ fwiw，我不建议使用 youtube 来学习如何编码。
您真正要问的是“如何使用变量在多行上创建字符串？”因为其余代码都很好（与实际从任何地方发送电子邮件无关），尽管我认为不需要.BodyFormat。
尝试使用msg = "Test" 而不是设置msg 的代码块，它应该可以工作。
感谢您对 BraX 的建议。我会试试 msg = "Test"。我想在电子邮件的正文中包含以下变量。在表单上的查询中填充变量。 - 名字（教师姓名） - 学生名字 - 用户名 - 密码

标签： vba forms ms-access-2010

【解决方案1】：

要以 HTML 格式发送电子邮件，您需要使用 HTML 标记格式化正文并设置olMailItem（电子邮件）的HTMLBody 属性，如下所示。

该示例使用后期绑定（无需引用 Outlook），这意味着它可以在安装了不同版本的 Outlook 时运行。

Private Sub cmd_EmailContact_Click()

    Dim firstName As String, _
        studentFirstName As String, _
        userName As String, _
        password As String, _
        email As String, _
        body_ As String
    
    'provide values
    firstName = "ABC"
    studentFirstName = "XYZ"
    userName = "User"
    password = "Pass"
    email = "foo@bar.com"
    
    'build body
    body_ = "<p> Dear" & firstName & ", </p>" _
          & "<p>" & studentFirstName & " has been successfully been loaded on the platform. </p>" _
          & "<p> Student login details on the platform are: </p>" _
          & "<p> Username: " & userName & "</p>" _
          & "<p> Password: " & password & "</p>"

    'send email
    With CreateObject("Outlook.Application")
        With .CreateItem(0) 'olMailItem
            .BodyFormat = 2 'olFormatHTML
            .To = email
            .Subject = "Student available on OARS"
            .HTMLBody = "<html><head></head><body>" & body_ & "</body></html>"
            .Display
        End With
    End With
    
End Sub

您需要为以下变量提供值：

名字
学生名字
用户名
密码
电子邮件

【讨论】：