Hi,
ich habe mir nach einiger Suchzeit bei Stackoverflow Code kopiert. Nun gibt eine Fehlermeldung (siehe Bild).
Ich bitte um Nachsicht, Internetprogrammierung ist ziemlich neu für mich.
mit
Edit: Mittlerweile habe ich hier Code gefunden und den Port zu 587 geändert. Jetzt bekomme ich eine andere Exception. Außerdem habe ich auf mein Smartphone die Nachricht von Gmail bekommen, dass ein Anmeldeversuch verhindert wurde.
ich habe mir nach einiger Suchzeit bei Stackoverflow Code kopiert. Nun gibt eine Fehlermeldung (siehe Bild).
Ich bitte um Nachsicht, Internetprogrammierung ist ziemlich neu für mich.
mit
VB.NET-Quellcode
- Public NotInheritable Class Form_Main
- Private Const MailFrom As String = "Adresse_von_der_die_Email_kommt@...de"
- Private Const MailTo As String = "an_welche_Adresse_es_geht@...de" ' (mein gmail)
- Private Const username As String = ".. @..de" ' ebenso meine Gmail-Adresse
- Private Const MailSubject As String = "Subject"
- Private Const MailText As String = "automatische E-Mail"
- Private Const _SmtpServerPort As Integer = 465
- Private Const _SmtpServerHost As String = "smtp.gmail.com"
- Private Const Password As String = "meinPasswort"
VB.NET-Quellcode
- Private Sub senden()
- Using SmtpServer As New Net.Mail.SmtpClient()
- Using mail As New MailMessage()
- SmtpServer.UseDefaultCredentials = False
- SmtpServer.Credentials = New Net.NetworkCredential(username, Password)
- SmtpServer.Port = _SmtpServerPort
- SmtpServer.Host = _SmtpServerHost
- SmtpServer.EnableSsl = True
- SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network
- 'mail = New MailMessage()
- mail.From = New MailAddress(MailFrom)
- mail.To.Add(MailTo)
- mail.Subject = MailSubject
- mail.Body = MailText
- SmtpServer.Send(mail)
- End Using
- End Using
- End Sub
Edit: Mittlerweile habe ich hier Code gefunden und den Port zu 587 geändert. Jetzt bekomme ich eine andere Exception. Außerdem habe ich auf mein Smartphone die Nachricht von Gmail bekommen, dass ein Anmeldeversuch verhindert wurde.
System.Net.Mail.SmtpException: "Für den SMTP-Server ist eine sichere Verbindung erforderlich, oder der Client wurde nicht authentifiziert. Die Serverantwort war: 5.7.0 Authentication Required. Learn more at"
VB.NET-Quellcode
- Using Emailantwort As New MailMessage
- Using SmtP As New SmtpClient(_SmtpServerHost)
- SmtP.UseDefaultCredentials = False
- Emailantwort.From = New MailAddress(MailFrom)
- Emailantwort.To.Add(MailTo)
- Emailantwort.Subject = MailSubject
- Dim enc As System.Text.Encoding = New System.Text.UTF8Encoding
- Emailantwort.BodyEncoding = enc
- Emailantwort.Body = MailText
- 'Emailantwort.Attachments.Add((New System.Net.Mail.Attachment(Anhangpfad)))
- Emailantwort.IsBodyHtml = True
- SmtP.Port = _SmtpServerPort
- SmtP.EnableSsl = True
- SmtP.Credentials = New System.Net.NetworkCredential(username, Password)
- SmtP.Send(Emailantwort)
- End Using
- End Using
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Bartosz“ ()