Hallo Leute,
bei Mail.Display kommt die Fehlermeldung" unzulässiger oder nicht ausreichend definierter Verweis" - Die Bibliothek/Verweis Microsoft Outlook 15 Object Library ist aktiviert.
Danke
Martin
With Mail
.To = ""
.CC = ""
.Subject = "" 'Betreff
.BodyFormat = 2 '2 = HTML, 1 = Text
.Attachments.Add strDatei 'Anhang
.Body = strBodyText 'Bodytext / Signatur
End With
'** Erzeugte Datei schließen
Workbooks(Dir(strDatei)).Close
'** Erzeugte Datei wieder löschen
'** .Kill (strDatei)
'** E-Mail anzeigen
.Mail.Display
End Sub