Automatische Signaturen in E-Mails mit Access-Outlook-Makros

Question

Ich versuche, ein Massen-E-Mail-Makro zusammenzustellen, das durch eine Tabelle iterieren und E-Mails und Empfängernamen abrufen wird. Für Branding-Zwecke möchte ich jede E-Mail mit Unterschriften versehen.

Ich versuche, das MailItem Objekt zu verwenden, aber ich immer laufen in zwei Probleme:

1. .Display erstellt eine neue E-Mail-Ausblick und füllt es mit der Standardsignatur. Jedoch wird .body die Signatur mit der Textzeichenfolge in strMessage löschen. Ich vermute es, weil ich nicht sowohl einen Tisch (inkl. Bilder, etc) als auch Strings im selben E-Mail-Objekt haben kann?

2. Ich habe versucht, die .send und .body-Methode auf Microsoft Outlook 15 und 16 Objektbibliotheken. Während beide an 16 arbeiten, scheint keiner in 15 zu existieren. Ich bekomme immer einen "anwendungsdefinierten oder objektdefinierten Fehler". Ich kann keine Dokumentation zu Outlook 15-Bibliotheken finden. Weiß jemand, welche Methoden 15 zu .send und .body äquivalent sind?

   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

Betrachten MailItem die GetInspector() Eigenschaft mit Signaturtext vorher abrufen und dann auf Nachrichtentext verketten. Rendering kann variieren, so versuchen .HTMLBody über .Body in beiden Linien:

... 
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

Dies funktioniert mit allen möglichen Varianten von Outlook, und verwendet die späte Bindung so Versionen/Referenzen sollte kein Problem sein.

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