Public Sub SendMail()
        Try
            Dim MyMail As New Mail.MailMessage()
            MyMail.From = New Mail.MailAddress((XRead( _
              "/RootNode/E-Mail/Absender")))
            MyMail.To.Add((XRead("/RootNode/E-Mail/Empfänger")))
            MyMail.Subject = (XRead("/RootNode/E-Mail/Betreff"))
            MyMail.Body = Keys_erstellen_für_Datei_und_Email()
            MyMail.IsBodyHtml = False
            Dim NewSMTP As New Mail.SmtpClient((XRead("/RootNode/E-Mail/Smtp")))
            Dim Username As String = XRead("/RootNode/E-Mail/Username")
            Dim Passwort As String = XRead("/RootNode/E-Mail/Passwort")
            NewSMTP.Credentials = New Net.NetworkCredential(Username, Passwort)
            NewSMTP.Send(MyMail)
            If Form1.BackgroundWorker1.CancellationPending = True Then
                Exit Sub
            End If
        Catch ex As Exception
            MessageBox.Show(Err.Number & ex.Message & ex.StackTrace.ToString)
        End Try
    End Sub