E-Mail versenden - mit Authentifizierung (VB 2005) Dieser Tipp zeigt, wie man unter VB 2005 (Framework 2.0) E-Mails mit Anlagen versenden kann und zusätzlich SMTP-AUTH aktiviert.
Autor:   Daniel (mag3rquark)	Bewertung:     [ Jetzt bewerten ]	Views:  18.796
ohne Homepage	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 9 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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