Office 2016 Variable Felder über Commandbutton in Mail Betreff einlesen

[Rizzo]

Hallo zusammen,

ich habe ein Word 2013 Dokument mit einem Commandbutton hinterlegt, der aus dem Dokument eine Mail erzeugt und das Dokument als Anhang einfügt.
Es wird auch ein vor belegter Betreff und Text aus dem Dokument mit in der Mail mit gezogen.

Jetzt möchte ich aber noch gewisse variable Felder aus dem Dokument die gefüllt werden noch mit in den Betreff für die Mail ziehen lassen.

Dazu benötige ich jetzt Eure Hilfe!

Benötige das Coding und wie muss ich die Eingabefelder dafür einstellen?

Mein aktuelles Coding ist folgendes für den Commandbutton:

Private Sub CommandButton1_Click()


'Public Sub AttachToEmail()
  Dim Outlook As Object
  Dim Mail As Object
  Dim Att As Object
  Dim Fullname As String
  Dim Dlg As Office.FileDialog

  If ActiveDocument.Saved Then
    Fullname = ActiveDocument.Fullname
  Else
    Set Dlg = Application.FileDialog(msoFileDialogSaveAs)
    Dlg.Show
    If Dlg.SelectedItems.Count Then
      Fullname = Dlg.SelectedItems(1)
      ActiveDocument.SaveAs Fullname
    Else
      Exit Sub
    End If
  End If

'  Set Outlook = GetObject(, "outlook.application")
'  Set Mail = Outlook.CreateItem(0)
'  Set Att = Mail.Attachments.Add(Fullname)
'  Mail.Subject = Att.DisplayName
'  Mail.Display

Set olapp = CreateObject("Outlook.Application")
Set olitem = olapp.CreateItem(OlMailItem)
olitem.Subject = "TEXT für Betreff in der Mail"
olitem.body = "TEXT für Mail."
olitem.to = "Mailadresse"
ActiveDocument.SaveAs "Speicherort der Datei"
olitem.Attachments.Add ActiveDocument.Fullname
olitem.Display



End Sub

Vielen Dank

Gruß

Rizzo