[PROBLEM] Z wysylaniem email

[mcgloster]

witam mam blad w tym kodzie

 

Imports System

Imports System.Net.Mail

Imports System.Threading



Public Class Form1

    Dim login As String

    Dim haslo As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim smtpServer As New SmtpClient()

        Dim mail As New MailMessage()

        smtpServer.Credentials = New Net.NetworkCredential("twój login bez @gmail.com)", "hasło do skrzynki")

        smtpServer.Port = 587

        smtpServer.Host = "smtp.gmail.com"

        smtpServer.EnableSsl = True

        mail = New MailMessage()

        mail.From = New MailAddress("twój [email protected]")

        mail.To.Add("twój [email protected]")

        mail.Subject = ("tematit")

        mail.Body = "Nick: " + nick + Chr(12) + "Problem: " + problem

        Nick = textbox1.Text

        Problem = textbox2.text

        smtpServer.Send(mail)

    End Sub

End Class

jak chce wyslac email mam cosc takiego

 

Serwer SMTP wymaga bezpiecznego połączenia lub nie uwierzytelniono klienta. Odpowiedź serwera: 5.5.1 Authentication Required.

 

[Seba65439]

Tam gdzie masz twój login bez @gmail.com wpisz z @gmail.com ja tak mam i działa tak zapobiegawczo masz cały kod:

 

Imports System
Imports System.Net.Mail
Imports System.Threading
Imports System.Text
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      

        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("@gmail.com", "haslo")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        SmtpServer.EnableSsl = True
        mail.To.Add("@gmail.com")
        mail.From = New MailAddress("@gmail.com")
        mail.Subject = "tytul"
        mail.Body = " coś: " + TextBox1.Text & Chr(12) + " coś2: " + TextBox2.Text & Chr(12) + " coś3: " + TextBox3.Text
        SmtpServer.Send(mail)

[mcgloster]

dzieki dziala