Hallo Dirk,
danke für die schnelle Antwort.
Irgendetwas mach ich noch falsch, weil es nicht funktioniert.
Folgenden Quelltext verwende ich:
.
.
.
fname = Application.GetSaveAsFilename(Range("C9").Text & "_" & Range("C16").Text _
& ".xls", fileFilter:="Format: xxDNxxxx_Kunde (*.xls), *.xls")
.
.
.
doc.Subject = "Neue Anfrage " & Range("C9") & " liegt vor! (Nachricht wurde automatisch erzeugt)"
doc.Body = "file://" & fname
Call doc.send(False)
.
.
.
oder muss ich Notes noch was einstellen, daß er dieses als URL erkennt?