________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

        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()