Hallo,

ich habe per Word ein Formular erstellt und dieses mit einem "per Mail versenden" Button versehen. Klickt man auf diesen, wird automatisch eine Mail an dem Empfänger geschickt, die das Word Dokument im Anhang enthält, sowie einen festen vordefinierten Betreff sowie Body.

Mein Ziel ist es aber, dass sich die Betreffzeile der Mail an die ausgefüllten Felder im Formular anpasst. (wird z.B. in das Namensfeld im Formular ein Namen eingetragen, soll dieser schon direkt im Betreff der Mail zu sehen sein plus weitere Informationen)

Ich bräuchte zusätzlich zu dem Word Dokument im Anhang den Inhalt des Formulars in Textform direkt in der Mail.

Hier ist mein bisheriger Code für den "per Mail versenden" Button:

Private Sub CommandButton1_Click()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document

Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument
Doc.Save

With EmailItem
.Subject = "Subject"
.Body = "Body"
.To = "email@unternehmen.com"
.Importance = olImportanceNormal
.Attachments.Add Doc.FullName
.Send
End With

Application.ScreenUpdating = True

Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing

End Sub




Kann mir da jemand weiterhelfen?

Du hättest für die zweite Frage keinen neuen Thread aufmachen müssen. Habe die zweite Frage mal hier eingefügt. Lg, Solaris