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