带有 Access-Outlook 宏的电子邮件中的自动签名

Question

我正在尝试组合一个群发电子邮件宏，该宏将遍历一个表格，提取电子邮件和收件人姓名。出于品牌推广的目的，我想发送带有签名的每封电子邮件。

我正在尝试使用 MailItem 对象，但我一直遇到 2 个问题：

1. .display 创建一个新的 Outlook 电子邮件并使用默认签名填充它。但是，.body 将使用 strMessage 中的文本字符串擦除签名。我猜是因为我不能在同一个电子邮件对象中同时拥有表格（包括图片等）和字符串？

2. 我已经在 Microsoft Outlook 15 和 16 对象库上尝试了 .send 和 .body 方法。虽然两者都在 16 上工作，但在 15 中似乎都不存在。我总是得到一个“应用程序定义的或对象定义的错误”。我找不到任何有关 Outlook 15 库的文档，有人知道 15 的哪些方法等效于 .send 和 .body 吗？

   Dim OApp As Object, OMail As Object, signature As String
   Set OApp = CreateObject("Outlook.Application")
   Set OMail = OApp.CreateItem(0)
   
   Dim rs As DAO.Recordset
   Dim db As Database
   Dim strSQL As String, strFirstName As String, strLastName As String, strFullName As String, strSubject As String, strMessage As String
   
   Set db = CurrentDb
   
   strSQL = "SELECT Email, FirstName, LastName FROM PersonsT WHERE [PersonsT]![Attended]=True"
   
   Set rs = db.OpenRecordset(strSQL)
   
   Do While Not rs.EOF
   strFirstName = rs.Fields("FirstName")
   strLastName = rs.Fields("LastName")
   strFullName = rs.Fields("FirstName") & " " & rs.Fields("LastName")
   
   strSubject = "Greetings"
   strMessage = "Hello " & strFullName & vbNewLine & vbCrLf & " Let me be the first to congratulate you on registering in this program"
   
   With OMail
   .Display
   End With
   
   With OMail        
       .to = rs![Email]
       .Subject = strSubject
       .body = strMessage
       .send     
   End With
   
   rs.MoveNext
       Loop
   
           Set OMail = Nothing
           Set OApp = Nothing
   
           rs.Close
           Set rs = Nothing
   

Answer 1

考虑使用 MailItem 的 GetInspector() 属性预先检索签名文​​本，然后连接到邮件正文。渲染可能会有所不同，因此请在两行中尝试 .HTMLBody 而不是 .Body：

...
Dim signature As String

oMail.GetInspector
signature = oMail.Body

With OMail        
    .Recipients.Add rs![Email]
    .Subject = strSubject
    .Body = strMessage & signature
    .Display     
End With

Answer 2

这适用于各种风格的 Outlook，并使用后期绑定，因此版本/引用不应该成为问题。

Dim OutApp          As Object
Dim OutMail         As Object
Dim signature       As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail                               ' This creates a blank email and captures the users default signature.
    .BodyFormat = 2                        'olFormatHTML
    .Display
End With

signature = OutMail.HTMLBody