Dim strSignature As String, Mailtext As String, strAnr As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
Select Case TextBox_Anrede.Text
Case "Frau"
strAnr = "Sehr geehrte " & TextBox_Anrede.Text & " "
Case "Herr"
strAnr = "Sehr geehrter " & TextBox_Anrede.Text & " "
Case Else
strAnr = "Sehr geehrte Damen und Herren "
End Select
Mailtext = "<p style='font-family:Calibri, Helvetica, sans-serif; font-size:11pt;'>" & _
strAnr & TextBox_Nachname.Text & ","