With sevSMTP
        ' Mailserver (SMTP)
        .ServerName = txtServer
        .ServerPort = txtPort
 
        ' SMTP-Authentifizierung
        .SMTPAUTH = True
        .UserName = txtBenutzer
        .Password = txtPasswort
 
        ' Absenderangaben
        .SenderName = txtName
        .SenderEMail = txtAbsender
        .Organization = txtOrg
        .ReplyTo = txtAbsender
 
        ' Inhalt
        .Subject = txtBetreff
        .Notification = False
        .Priority = sevMailPriority.Normal
 
        ' Anmelden am Server
        If Not .IsConnected Then .Connect
        If .IsConnected Then
                .Recipient = sAdresse
 
                .AttachmentClear
 
                .Message = ""
                .MessageHTML = sNachricht
 
                iGesendet = .SendMail()
                If iGesendet < 0 Then
                    iAntwort = MsgBox("Versenden gescheitert! Fortfahren?" & _
                                vbCrLf & .SMTPErrorText, vbCritical Or vbYesNo, _
                                "Fehler")
                    If iAntwort = vbNo Then
                        Exit Sub
                    End If
                End If
 
            .Disconnect
        Else
            Call MsgBox("Verbindungsdaten fehlerhaft!", vbCritical Or vbOKOnly, _
              "Fehler")
        End If
    End With