Hallo Mase,

viel ist da vorher nicht. Die Userform kann ich ja nicht posten, oder?

ich versuche es mal mit den Tags:

Private Sub CommandButton1_Click()



     Dim Ausgstr As String

     Dim AnzZeichen As Long

     Dim AnzZeichen1 As Long

    

     prüfds = TextBox5.Value

Const SB As String = "."

        If InStr(prüfds, SB) > 0 Then

        AnzZeichen1 = Len(TextBox5.Value)

            If AnzZeichen1 <> 10 Then

            MsgBox "Bitte Geburtsdatum als DD.MM.YYYY oder DDMMYYYY angeben!"

            GoTo losgehts

            End If

    GoTo losgehssss

    End If

   

    If Len(TextBox5.Text) <> 8 Then

        MsgBox "Unzulässiges Datum"

        GoTo dankeende

    End If



     Ausgstr = TextBox5.Value

     AnzZeichen = Len(Ausgstr)

     If AnzZeichen <> 8 Then

     MsgBox "Bitte im Format DDMMYYYY angeben!"

     GoTo dankeende

     End If

     Dayt = Left(Ausgstr, AnzZeichen - 6)

     Montht = Right(Ausgstr, AnzZeichen - 2)

     Montht = Left(Montht, 2)

     yeart = Right(Ausgstr, AnzZeichen - 4)

     TextBox5.Value = Dayt & "." & Montht & "." & yeart

    

     If IsDate(TextBox5.Value) Then GoTo losgehssss Else GoTo dankeende



losgehssss:

If TextBox8.Value <> "" Then SBeraiekl = " SB: " & TextBox8.Value





Dim objOutlook As Object

Dim objMail As Object



Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)



With objMail
   .getinspector
   .To = "empfänger@mail.de"
   .cc = "kopie@mail.de"
   .Subject = "Betreff "
   
   .HTMLBody = "Sehr geehrte Damen und Herren,<br><br>" _
   & "text" _
 & "<br><br><table width=""40%""><tr><td>Name: </td><td>" & TextBox2.Value & "</td></tr>" & _
    "<tr><td>Vorname: </td><td>" & TextBox3.Value & " </td></tr>" _
    & "<tr><td>Vorname2: </td><td>" & TextBox4.Value & "</td></tr>" & _
    "<tr><td>Geburtsdatum: </td><td>" & TextBox5.Value & "</td></tr>" _
   & "<tr><td>Geburtsort: </td><td>" & TextBox6.Value & "</td></tr>" & _
    "<tr><td>Anschrift: </td><td>" & TextBox7.Value & "</td></tr></table>" _
   & vbCrLf & vbCrLf & "<br><br>Text." & vbCrLf _
   & vbCrLf & "<br><br>Für Rückfragen stehe ich Ihnen gern zur Verfügung." & vbCrLf & vbCrLf _
   & "<br><br>Vielen Dank.<br><br>" _
   & vbCrLf & vbCrLf & .HTMLBody
   
   '.Display
   If CheckBox1.Value = False Then .Send Else .display        'Sendet die Email automatisch
End With

Unload Me

dankeende:

losgehts:

End Sub