Office: (Office 2010) Email Button

Hallo zusammen

Ich möchte in Word 2010 ein Formular erstellen das mit einem E-Mail Button direkt per Outlook 2010 an eine vordefinierte E-Mail Adresse verschickt wird.
Folgendes Makro habe ich eingesetzt. (Makro habe ich aus dem Netz)

Sub AktivesDokumentAlsAnhang()
Dim aws As String
Dim olapp As Object
ActiveDocument.Save
aws = ActiveDocument.FullName
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.To = "...@bluewin.ch"
.Subject = "Bestellung"
.Attachments.Add aws
.Display
End With
Set olapp = Nothing
End Sub

Leider funktioniert beim drücken des Buttons nichts !

Was mache ich falsch, kann mir jemand weiterhelfen ?

Danke

:)

 

Hi
setz mal einen Haltepunkt (F9) an den Anfang des Makros und schau ob der angesprungen wird.

Outlook ist installiert?

PS

 

Ich habe den Haltepunkt gesetzt. Im Makro rührt sich nichts !
Outlook ist installiert !

Gruss

 

Dann wird das Makro gar nicht gefunden.
Erstelle im VBA-Editor ein neues Modul und füge den Code dort ein.
Bitte nicht im ThisDocument-Bereich.

Hilft das?

PS

 

Hallo PS

Leider funktioniert das auch nicht.

Gruss

 

dann stell bitte ein Beispieldokument (Fantasieadresse) bereit, so dass wir das direkt prüfen können.

PS

 

Hier ist das Dokument

Gruss

 

Hi
also in dem Dokument befindet sich kein Makro.
Vielleicht in der anderen verbundenen Vorlage "Vorlage Elektroden..."?

Wenn du nachstehenden Code im ThisDocument-Modul des Dokumentes speicherst, sollte es klappen
Code:

PS

 

Es funktioniert !!! ¨

Danke vielmal für die super Hilfe.