ich möchte gerne einen CommandButton in einem Word-Dokument erstellen (ich denke, dass das Problem auch auf Excel zutrifft). Dieser soll, sobald man ihn anklickt, das aktuelle Dokument (in dem auch er sich befindet) an in ihm voreingestellte eMail-Empfänger schicken.
Ich habe versucht, das mit folgender Prozedur zu verwirklichen:
Private Sub Verschicken_Click()
With ActiveDocument.MailEnvelope
.Introduction = "anbei die Word-Datei zur Durchsicht..." & vbCr & "Viele Grüße"
With .Item
.Subject = "eMail aus Word"
.To = "alexander.gass@siemens.com"
.CC = "alexander.gass@siemens.com"
.Send
End With
End With
End Sub
Allerdings bekomme ich folgende Fehlermeldung:
Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht
Weiß jemand etwas, das mit weiterhilft?
MfG
Pete