Rubrik: HTML/Internet/Netzwerk · HTML/Email | VB-Versionen: VB.NET | 12.10.07 |
Beim Einsatz von VB.NET 2005 (Framework 2.0) funktioniert der Tipp E-Mail versenden - mit Authentifizierung (VB.NET) nicht mehr. In diesem Fall
muss man die neue Klasse System.Net.Mail.SmtpClient verwenden:
Imports System.Net.Mail
...
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
' Neues MailMessage-Objekt mit Absender und
' Empfänger-Adresse erstellen
Dim oMail As New MailMessage("Ihre_Mailadresse", "Empfänger_Mailadresse")
' SMTP-Server
Dim oSMTP As New SmtpClient
With oSMTP
' Mailserver
.Host = "Ihr_Mailserver"
.Port = 25
' Erweiterte Mail-Einstellungen
.UseDefaultCredentials = False
.DeliveryMethod = SmtpDeliveryMethod.Network
' SMTP-AUTH mit UserName und Kennwort
.Credentials = New Net.NetworkCredential("Benutzername", "Kennwort")
End With
With oMail
' Betreff
.Subject = "Test-Nachricht"
' Nachricht (kein HTML)
.IsBodyHtml = False
.Body = "Dies ist eine Test-Nachricht"
' ggf. Kopie-Empfänger hinzufügen
'.CC.Add(New MailAddress("emailadresse"))
' ggf. BCC-Empfänger hinzufügen
' .Bcc.Add(New MailAddress("emailadresse"))
' Anlagen hinzufügen
' .Attachments.Add(New Attachment(("pfad_und_dateiname")))
' Priorität einstellen
.Priority = MailPriority.Normal
End With
Try
' Nachricht senden
oSMTP.Send(oMail)
MsgBox("Nachricht wurde versandt.")
Catch oEx As Exception
MsgBox("Fehler: " & oEx.Message.ToString)
End Try
End Sub