Fehlermeldung: Benutzerdefinierter Typ nicht definiert

[thorstens1304]

Hallo,

ich habe die folgende Funktion in eine neue Datenbank kopiert:

Code [Auswählen] Erweitern

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?

[bahasu]

Hi,

ist bei den Verweisen auch MS Outlook aufgeführt?

Harald

[thorstens1304]

Danke. Das war der richtige Ansatz, der mir fehlte.