how to I fix I get an error that it requires a starttls
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.Credentials = New Net.NetworkCredential("me@gmail.com", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
mail = New MailMessage()
mail.From = New MailAddress("me@gmail.com", "my name")
mail.To.Add("me@hotmail.com")
mail.Subject = "Test Mail"
mail.Body = "This Is for testing SMTP mail from GMAIL"
SmtpServer.Send(mail)
MsgBox("mail send")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class
Private Sub test(Optional ByVal smtp As String = "smtp.gmail.com")
Dim toAdd As String = " test@gmail.com"
Dim fromAdd As String = "test@gmail.com"
Dim pass As String = "pswd"
Dim client As SmtpClient = New SmtpClient(smtp)
Dim mail As New MailMessage
mail.From = New MailAddress(fromAdd)
mail.To.Add(toAdd)
mail.Subject = "Test Zip File"
mail.Body = "This Is just a test"
client.Port = 465 '465 587 25
client.Credentials = New System.Net.NetworkCredential(fromAdd, pass)
client.EnableSsl = True
MsgBox("here")
' client.Timeout = Int32.MaxValue
Try
client.Send(mail)
Catch ex As SmtpException
MsgBox(ex.Message)
End Try
MsgBox("done")
End Sub
port 465 times out
port 25 gives a starttls error
port 587 give required secure connection
Michael Fowler
Your code looks fine, assuming you are using a valid email/user/pass in your actual code.
Open in new window
https://msdn.microsoft.com/en-us/library/system.net.mail.smtpclient.enablessl.aspx