Sub cmdVersenden_Click()


   Dim comboBox As ContentControl
   Dim wert As String
   Set comboBox =         ThisDocument.SelectContentControlsByTitle("PersonalNumber")(1)

     If Not comboBox Is Nothing Then
        If comboBox.Type = wdContentControlComboBox Then
             wert = comboBox.Value
            MsgBox "Der Inhalt des Dropdown-Felds wurde in die Variable kopiert: " & wert
        Else
            MsgBox "Das ausgewählte Formularfeld ist kein ComboBox-Feld."
        End If
    Else
        MsgBox "Das ComboBox-Formularfeld wurde nicht gefunden."
    End If


    Dim OutlookApp As Object
    Dim OutlookMail As Object
    
    Set OutlookApp = CreateObject("Outlook.Application")
    
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    TmpDOC = FindTemp() & "Dokument_Betrieb.doc"
    
    ActiveDocument.SaveAs FileName:=TmpDOC, FileFormat:=wdFormatDocument, _
    LockComments:=False, Password:="", AddToRecentFiles:=True, _
    WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, SaveFormsData:=False,    SaveAsAOCELetter:=False
    
    
    With OutlookMail
        .Subject = "Dokument- Betriebs-Personal - " & wert
        .To = "interne.Email@Betrieb.de"
        .Body = "Sehr geehrte Damen und Herren," & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "anbei ein Dokument vom Betrieb" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
        .Attachments.Add TmpDOC                     ' Dokument als Anhang anfügen
        .Display                                    ' E-Mail anzeigen (nicht senden)
    End With
End Sub