Seit der Umstellung bei uns ouf Outlook 2016 funktionieren meine kleinen Helferlein, aus der Access Datenbank Outlook-Mails zu versenden nur noch, wenn auf das Einfügen der Signatur verzichtet werden.
Beispielsweise produziert folgender Code einen 'Anwendungsfehler':
- Code: Alles auswählen
Option Explicit
Public Sub EmailMitSignatur()
Dim olApp As Object
Dim olMail As Object
Dim strOldBody As String
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.Createitem(0)
With olMail
.GetInspector.Display
strOldBody = .htmlBody
.To = "beispiel@beispiel.org"
.Subject = "Test"
.htmlBody = "Hallo!<br><br>" & _
"Nur ein Test<br><br>" & _
"Grüßle, Max<br><br>" & _
strOldBody
End With
End Sub
Vor allen Dingen die folgenden Zeilen:
- Code: Alles auswählen
.GetInspector.Display
strOldBody = .htmlBody
Für Ideen habt Dank
Manfred
.