Need Help Sending Mail

[Genetic Paradox]

This code should work just fine but when I'm debugging it but it gives me this error every time I try to send the message"A first chance exception of type 'System.Net.Mail.SmtpException' occurred in System.dll". There is no elaboration on the error. That is all I get.

Dim MyMailMessage As New MailMessage()
Try
MyMailMessage.From = New MailAddress("[email protected]")
MyMailMessage.To.Add("[email protected]")
MyMailMessage.Subject = "Rabid Rabi"
MyMailMessage.Body = TextBox3.Text + TextBox4.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 486
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "DICKSEVERYWHERE")
SMTP.Send(MyMailMessage)

 

[Ibdc]

Don't use a try catch for the whole thing, only the actual sending.

 

[James Iz A Pro]

Try This Code

Declarations:
Imports System.Net.Mail

The Send Button Code:

Dim WC As New System.Net.WebClient
Dim MyMailMessage As New MailMessage
MyMailMessage.From = New MailAddress("[email protected]")
MyMailMessage.To.Add("[email protected]")
MyMailMessage.Subject = "Rabid Rabi"
WC.Dispose()
MyMailMessage.Body = TextBox3.Text + TextBox4.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("[email protected]", "Password")
SMTPServer.EnableSsl = True
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
End Try
End If

 

[Genetic Paradox]

I got it working. Thank you both very much.