Hallo liebe Forengemeinde,

ich bin sehr neu in Sachen VBA. Ich habe folgendes Problem. Ich nutze auf der Arbeit eine Wordvorlage (.dotx). In diesem Dokument gibt es verschiedene Textboxen die bearbeitet werden dürfen
und einen Bereich im Dokument indem geschrieben werden darf. Dies ist durch einen Abschnitt gelöst der bearbeitet werden darf. Der Rest im Dokument ist schreibgeschützt, sodass nicht jeder
Änderungen vornehmen kann und die Vorlage auch "sauber" bleibt.

Ich möchte nun, dass wenn die Vorlage ausgefüllt wurde, das Dokument per Mail versendet werden kann. Das würde gerne mithilfe eines cmd button machen. Beim Klick auf den cmd Button sollte
sich Outlook öffnen mit einem Text.

Ich habe schonmal Code gefunden der auch halbwegs funktioniert. JEdoch wird immer meine Vorlage "zerschossen" und überspeichert. Es sollte beim verlassen der Vorlage nichts gespeichert werden.
Folgende Lösung habe ich verwendet.



Sub SendeEmail()
Dim WsShell
Dim aws As String
Dim olapp As Object
ActiveDocument.Save
aws = ActiveDocument.FullName
Rem Outlooksitzung starten
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.To = "email@server.de" 'an
.CC = "" ' (Optional) Kopie an
.BCC = "" '(Optional) Blindkopie an"
.Subject = "Aktuelle Daten vom " & Date 'Betreff
.htmlBody = "Sehr geehrte Frau Mustermann<br><br>Anbei gewünschte Unterlagen." & _
"<br><br>Mit freundlichen Grüßen,<br>Guest212"
.attachments.Add aws
.Display
End With
Rem Optional. Die Mail sofort senden.
Rem Wenn nicht gewünscht, dann den Block löschen
Set WsShell = CreateObject("WScript.Shell")
WsShell.AppActivate olapp
WsShell.SendKeys ("%s")
Set WsShell = Nothing
Set olapp = Nothing
End Sub

ICh würde mich freuen wenn ihr mir helfen könnt.

Danke und nen schönen Abend!