sevSMTP1.Message = rtbNachricht.Text
        sevSMTP1.MessageHTML = Msg.RTF2HTM(rtbNachricht.TextRTF)
        sevSMTP1.Notification = chkLeseBestätigung.Value
        sevSMTP1.Priority = cboPriorität.ListIndex + 1
        sevSMTP1.Recipient = txtEmpfänger.Text
        sevSMTP1.ReplyTo = GetUserDetail("User")
        sevSMTP1.SenderEMail = sevSMTP1.ReplyTo
        sevSMTP1.SenderName = GetUserDetail("Name")
        sevSMTP1.Subject = txtBetreff.Text
 
        'Daten für den Serverlogin
        sevSMTP1.UserName = sevSMTP1.ReplyTo
        sevSMTP1.Password = GetUserDetail("Password")
        sevSMTP1.ServerName = GetUserDetail("SmtpServer")
        sevSMTP1.ServerPort = GetUserDetail("SmtpServerPort")
        sevSMTP1.SMTPAUTH = GetUserDetail("SmtpAuth")
        sevPOP1.UserName = sevSMTP1.ReplyTo
        sevPOP1.Password = sevSMTP1.Password
        sevPOP1.ServerName = GetUserDetail("PopServer")
        sevPOP1.ServerPort = GetUserDetail("PopServerPort")
 
        .lblStatus.Caption = "Login..."
 
        If sevPOP1.Connect Then
 
            If sevSMTP1.Connect And Len(sevSMTP1.ErrorRcpt) = 0 Then
 
                If sevSMTP1.SendMail() > 0 Then
 
                    .lblStatus.Caption = "Fertig."
                    .roCmdOK.Enabled = True
                    .roCmdAbbrechen.Enabled = False
 
               ... 'Fehlerabfrage usw.