如何使用 Excel 用户窗体自动发送 Outlook 电子邮件？答案

【问题标题】：How to send outlook email automatically using Excel UserForm?如何使用 Excel 用户窗体自动发送 Outlook 电子邮件？
【发布时间】：2015-02-23 15:39:17
【问题描述】：

感谢您对此的任何帮助。我制作了一个用户表单，它从用户那里收集标准，然后当他们点击提交时，它会打开 Outlook 并将该数据通过电子邮件发送给我。

我有 2 个问题。第一个是当我尝试使用 SENDKEYS 方法时，我遇到了拼写检查功能，阻止了电子邮件的实际发送，而用户无需通过它。有没有办法绕过拼写检查并发送电子邮件？

其次，如果不使用 SENDKEYS，我找不到实际自动发送电子邮件的方法，但我确信有更好的方法来发送电子邮件，而不是使用 TAB 键击操作窗口。

Private Sub SubmitButton_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim strBody, RequestName, ProductName, Month, TestName, Summary As String

If Me.RequesterNameTxt.Value <> "" And Me.ProductCombo.Value <> "" And Me.MonthCombo.Value <> "" And Me.TestNameCombo <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

RequestName = Me.RequesterNameTxt.Value
ProductName = Me.ProductCombo.Value
Month = Me.MonthCombo.Value
TestName = Me.TestNameCombo.Value
Summary = Me.SummaryTxt.Value


strBody = "<HTML><BODY>"
strBody = "Requester Name: " & RequestName & "<BR>" & "Product Name: " & ProductName & "<BR>" & "Month: " & Month & "<BR>" & _
"Test Name: " & TestName & "<BR>" & "<BR>" & "Summary of Request: " & Summary
strBody = strBody & "</BODY></HTML>"

On Error Resume Next
With OutMail
    .To = "example@gmail.com;"
    .CC = ""
    .bcc = ""
    .Subject = "QA Service Request"
    .htmlBody = strBody
    .send 'This fixed my issue. I had this as .Display which opens email up and doesn't send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Application.SendKeys ("%s")
    Else: MsgBox "Please fill out all form data before submitting request. Thank you!"
End If

结束子

【问题讨论】：

您好，请查看 Ron de Bruin 的网站，该网站非常有用，我很确定您可以找到有关使用 excel LINK987654321@发送邮件的所有信息

标签： vba email outlook sendkeys

【解决方案1】：

您需要改用 Outlook 项目的Send 方法。 Send 方法使用为会话指定的默认帐户发送项目。在配置文件中定义了多个 Microsoft Exchange 帐户的会话中，添加到配置文件的第一个 Exchange 帐户是主 Exchange 帐户，也是会话的默认帐户。要指定不同的帐户来发送项目，请将 SendUsingAccount 属性设置为所需的 Account 对象，然后调用 Send 方法。

我还建议使用 Recipients 属性来添加收件人。该属性返回代表 Outlook 项目的所有收件人的 Recipients 集合。

【讨论】：