ms-access - 从 MS Access 发送电子邮件 不允许使用第三方 dll

Question

我需要从 MS Access 数据库发送一系列电子邮件通知。

• 没有像 Redemption 这样的第三方 dll
• 无法触发 Outlook 安全警告
• 电子邮件将包含一个 PDF 附件

我知道要执行此操作，我需要使用 MAPI，但我似乎找不到使用 VBA 执行此操作的方法。

如有任何帮助，我们将不胜感激

谢谢

斯科特

Answer 1

如果您可以接受要求计算机上存在 CDO，并且您不介意用户提供的 SMTP 服务器，则可以使用它。只需谷歌一些示例代码，但为了方便起见，我将在下面粘贴一些来自 www.rondebruin.nl 的代码。 :

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
'    Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

'    iConf.Load -1    ' CDO Source Defaults
'    Set Flds = iConf.Fields
'    With Flds
'        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
'                       = "Fill in your SMTP server here"
'        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'        .Update
'    End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
          "This is line 1" & vbNewLine & _
          "This is line 2" & vbNewLine & _
          "This is line 3" & vbNewLine & _
          "This is line 4"

With iMsg
    Set .Configuration = iConf
    .To = "ron@debruin.nl"
    .CC = ""
    .BCC = ""
    .From = """Ron"" <ron@something.nl>"
    .Subject = "Important message"
    .TextBody = strbody
    .Send
End With

End Sub

添加附件可以使用 iMsg 上的.AddAttachment "C:\files\filename.pdf" 来完成。