E-Mail senden

Benötigte Imports

Imports System.Net.Mail

Quellcode

Private Sub Mail_senden()      
    Dim Msg As New MailMessage
    Dim myCredentials As New System.Net.NetworkCredential
    myCredentials.UserName = "E-MAIL-ADRESSE"
    myCredentials.Password = "E-MAIL-PASSWORT"

    Msg.IsBodyHtml = False

    Dim mySmtpsvr As New SmtpClient()
    mySmtpsvr.EnableSsl = True
    mySmtpsvr.Host = "HOST (ZUM BEISPIEL 'gmail.com')"
    mySmtpsvr.Port = 25

    mySmtpsvr.UseDefaultCredentials = False
    mySmtpsvr.Credentials = myCredentials

    Try
        Msg.From = New MailAddress("SENDER-E-MAIL")
        Msg.To.Add("E-MAIL-EMPFÄNGER")
        Msg.Subject = "BETREFF"
        Msg.Body = "NACHRICHT"
        mySmtpsvr.Send(Msg)
        MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
    Catch ex As Exception
        MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
    End Try
End Sub