ACCESS 2007 - 在发生特定事件时使用 Outlook 自动发送和发送电子邮件

Question

我正在尝试在 Microsoft Access 2007 中创建一个应用程序。如何在特定事件发生时使用 Outlook 2007 以静默方式发送电子邮件，而无需任何用户交互。我应该如何处理这个问题。如果你能提供一些 VBA 那就太好了，但如果没有，你能指导我如何实现这一点吗？

Answer 1

我能够使用以下代码解决我的问题：

Public Sub SendEmail()

    Email_Bcc = "[email protected]"
    Email_Body = "Email body!!!!"
    Email_Subject = "Email Subject"

    On Error GoTo debugs

    Set Mail_Object = CreateObject("Outlook.Application")
    Set Mail_Single = Mail_Object.CreateItem(0)

    With Mail_Single
        .Subject = Email_Subject
        .To = Email_Send_To
        .cc = Email_Cc
        .BCC = Email_Bcc
        .Body = Email_Body
        .send
    End With

debugs:
    If Err.Description <> "" Then MsgBox Err.Description

End Sub

Answer 2

首先在您想要发送电子邮件的事件中或在您希望事件调用的函数中声明几个变量。

Public Started As Boolean
Public oApp As Outlook.Application
Public oItem As Outlook.MailItem

接下来，打开或获取 Outlook（如果它正在运行）。

On Error Resume Next
'Get Outlook if it's running
Set oApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
     'Outlook wasn't running, start it from code
     Set oApp = CreateObject("Outlook.Application")
    Started = True
End If

现在，对您的电子邮件进行您需要做的事情。

 Set oItem = oApp.CreateItem(olMailItem)
 With oItem
    .To = "[email protected]"
    .Subject = "Your email, sirrah."
    .Body = "Please enjoy this complimentary email."
    'Send the email
    .Send
End With

最后，如果之前没有运行，请关闭 Outlook 并进行清理。

Set oItem = Nothing
If Started Then
    oApp.Quit
End If

Answer 3

您可以通过使用宏和“SendObject”操作来实现“无代码”。请务必填写所有必要的参数“收件人”、“主题”、“消息文本”，然后将“编辑消息”参数设置为“否”。

然后，您可以将此宏附加到您想要的任何事件，例如按钮的 OnClick 事件。