Dim MailMsg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
 
 
 
 
        myCredentials.UserName = My.Settings.EmailUsername
        myCredentials.Password = My.Settings.EmailPasswort
 
        MailMsg.IsBodyHtml = My.Settings.EmailHTML
 
        Dim mySmtpsvr As New SmtpClient()
 
 
 
        mySmtpsvr.EnableSsl = My.Settings.EmailSSL   'SSL aktivieren
        mySmtpsvr.Host = My.Settings.EmailSMTPServer
        mySmtpsvr.Port = CInt(My.Settings.EmailSMTPPort)
 
        mySmtpsvr.UseDefaultCredentials = False
        mySmtpsvr.Credentials = myCredentials
 
 
            MailMsg.From = New MailAddress(My.Settings.EmailAbsender) _
              'My.Settings.EM_Absender)
            MailMsg.To.Add("xx@xx.de")
            MailMsg.Subject = tboxBetreff.Text
            MailMsg.Body = tboxText.Text 
 
            mySmtpsvr.Send(MailMsg) 'warteb bis gesendet
 
            ' mySmtpsvr.SendAsync(MailMsg, gesendet) 'Asynchrones senden
            ' MailMsg.Attachments.Dispose()