Hallo,
ich habe die folgende Funktion in eine neue Datenbank kopiert:
Public Function SendMail(Empfaenger, Anhang, Betreff As String)
Dim ool As Outlook.Application
Dim oMail As Outlook.MailItem
'Anhang
Dim myattachments As Variant
' Verweis zu Outlook + neue Nachricht
Set ool = CreateObject("Outlook.Application")
Set oMail = ool.CreateItem(olMailItem)
Set myattachments = oMail.Attachments
' Befreff-Zeile
oMail.Subject = Betreff
' An-Zeile (Empfänger)
oMail.To = Empfaenger
' Texteingabe (Nachricht selbst)
oMail.Body = "Hallo, anbei finden Sie die Kundendaten zu den Ihnen aktuell übersandten Lizenzbestellungen."
myattachments.Add Anhang
'-------- Mail versenden -----
oMail.Send
'----------------------------------
End Function
Für Zeile 2 kriege ich die Fehlermeldung: Benutzerdefinierter Typ nicht definiert. Was muss ich wieder einstellen?
Hi,
ist bei den Verweisen auch MS Outlook aufgeführt?
Harald
Danke. Das war der richtige Ansatz, der mir fehlte.