SendMail
Florian
Sub SendeMail()
With Application.ActiveDocument.MailEnvelope
' /\
' \
' \
' |
' |
' Hier kommt immer die Fehlermeldung
' "Laufzeitfehler 438
' Objekt untersützt diese Eigenschaft oder Methode nicht."
' Was habe ich falsch gemacht?
.Introduction = "Einleitung"
With .Item
.Recipients.Add "name@firma.de"
.Subject = "Hier ist das Dokument."
.Send
End With
End With
End Sub