Private Sub Speichern()
 
    Dim ZWSP_Code As String
    Dim HTML_Code As String
 
    ADOCON.ConnectionTimeout = 0
    ADOCON.CursorLocation = adUseClient
    ADOCON.Open COMADOCon
 
    SQL_Suchstring = "select * from kunden_email "
    SQL_Suchstring = SQL_Suchstring & " where betreff like " & Chr(39) & Trim( _
      Betreff.Text) & Chr(39)
    ADORS1.Open SQL_Suchstring, ADOCON, adOpenKeyset, adLockPessimistic
 
    x = ADORS1.RecordCount
    ADORS1.Close
 
    ADOCON.Close
 
    If (x = 0) Then
 
        Me.MousePointer = vbHourglass
 
        P.ServerName = "x"
        P.ServerPort = 110
        P.UserName = "x"
        P.Password = "x"
 
        S.ServerName = "x"
        S.ServerPort = 25
        S.UserName = "x"
        S.Password = "x"
 
        S.SenderName = "www.xyz.de"
        S.SenderEMail = "info@xyz.de"
 
        If Not P.IsConnected Then
            If Not P.Connect Then
                ZWSP_Text1 = ZWSP_Text1
            Else
                P.Disconnect
                End If
            End If
 
        Call Pruefung_Fehler
 
        If FehlerKennzeichen = 1 Then
            FehlerKennzeichen = 0
            Exit Sub
            End If
 
        Open (App.Path & "\Schriftverkehr_Kunden\" & "Anzeige.html") For Input _
          As #1
        While (Not EOF(1))
            Line Input #1, ZWSP_Text1
            If HTML_Code = "" Then
                HTML_Code = ZWSP_Text1
            Else
                HTML_Code = HTML_Code & vbCrLf & ZWSP_Text1
                End If
        Wend
        Close #1
 
        HTML_Code = Replace(HTML_Code, "!BETREFF!", Betreff.Text)
 
        HTML_Code = Replace(HTML_Code, "!ANREDE!", Trim(Anrede.Text))
 
        ZWSP_Code = Replace(Nachricht.Text, vbCrLf, "<br />")
 
        HTML_Code = Replace(HTML_Code, "!TEXT!", ZWSP_Code)
 
        S.Subject = Trim(Betreff.Text)
        S.Message = "jallo"
        'S.MessageHTML = HTML_Code
 
        'S.Recipient = EMail.Text
        S.Recipient = "Matthias_Wild@gmx.de"
        S.BCC = ""
 
        'S.AttachmentClear
        'S.AttachmentAdd App.Path & "\Schriftverkehr_Kunden\" & "Anzeige.html", 
        ' False
 
        If Not S.IsConnected Then
            S.Connect
            End If
 
        x = S.SendMail
 
          If x < 0 Then
            MsgBox "LastReponse: " & S.LastResponse & vbCrLf & _
              "SMTPError: " & CStr(S.SMTPError) & " - " & S.SMTPErrorText, _
              vbCritical, "Status"
            S.Disconnect
            Exit Sub
          Else
 
            ADOCON.ConnectionTimeout = 0
            ADOCON.CursorLocation = adUseClient
            ADOCON.Open COMADOCon
 
            If (COMNeuzugang = 1) Then
 
                SQL_Suchstring = " select * from kunden_email "
                SQL_Suchstring = SQL_Suchstring & " order by nummer desc "
                ADORS3.Open SQL_Suchstring, ADOCON, adOpenKeyset, _
                  adLockPessimistic
 
                ADORS3.AddNew
 
                ADORS3!KundenNr = COMKundenNr
                ADORS3!Empfaenger = Trim(Empfaenger.Text)
                ADORS3!Anrede = Trim(Anrede.Text)
                ADORS3!Betreff = Trim(Betreff.Text)
                ADORS3!Text = Trim(Nachricht.Text)
                ADORS3!Mitarbeiter = Trim(COMAnwenderName)
                ADORS3!Datum = Format(Date, "dd.mm.yyyy")
                ADORS3!Anlage = Trim(Anlage.Text)
 
                ADORS3.Update
 
                ADORS3.Close
            End If
 
            ADOCON.Close
 
            MsgBox "Nachricht versandt (" & CStr(x) & " Bytes)", vbInformation, _
              "Status"
          End If
 
        S.Disconnect
        Me.MousePointer = 0
    Else
        MsgBox "E-Mail bereits versendet", vbInformation, "Status"
    End If
 
    Unload Me
    Kunden_EMail_Uebersicht.Show
 
 
End Sub