sending mail error in vb.net

Question

1.00/5 (1 vote)

See more:

VB

Imports System.Net.Mail
Public Class Form1
    Public Property EnableSsl As Boolean
    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("username", "pwd")
            SmtpServer.Port = 993
            SmtpServer.Timeout = 30000
            SmtpServer.Host = "smtp.gmail.com"
            SmtpServer.EnableSsl = True
            mail = New MailMessage()
            mail.From = New MailAddress("username.com")
            mail.To.Add("toadress")
            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

Unable to read data transport layer error c

Posted 18-Aug-14 0:01am

zuber ahmed

Updated 18-Aug-14 11:29am

Kschuler

v2

Add a Solution

Comments

Kschuler 18-Aug-14 17:30pm

Which line of code causes the error? And did you try googling the error message?

https://www.google.com/search?q=Unable+to+read+data+transport+layer+error+c&rlz=1C1EODB_enUS581US581&oq=Unable+to+read+data+transport+layer+error+c&aqs=chrome..69i57&sourceid=chrome&es_sm=122&ie=UTF-8

Sergey Alexandrovich Kryukov 18-Aug-14 18:45pm

"toaddress" is not a valid mail address, so what would you expect? :-)
—SA

[no name] 18-Aug-14 19:00pm

And you would need to use the correct port.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

-Dr_X- · Answer 1 · 2014-08-18T14:09:00

Imports System.IO
Imports System.Net
Imports System.Net.Mail

Public Class Mail

	Public Shared Sub Send(fromEmail As String, toEmail As String, subject As String, body As String)

		Using mm As New MailMessage(fromEmail, toEmail)
			mm.Subject = subject
			mm.IsBodyHtml = True
			mm.Body = body
			'If fuAttachment.HasFile Then
			'	Dim FileName As String = Path.GetFileName(fuAttachment.PostedFile.FileName)
			'	mm.Attachments.Add(New Attachment(fuAttachment.PostedFile.InputStream, FileName))
			'End If
			mm.IsBodyHtml = False
			Dim smtp As New SmtpClient()
			smtp.Host = "smtp.gmail.com"
			smtp.EnableSsl = True
			Dim NetworkCred As New NetworkCredential(fromEmail, "ThatPasswordOfYours")
			smtp.UseDefaultCredentials = True
			smtp.Credentials = NetworkCred
			smtp.Port = 587
			smtp.Send(mm)
		End Using
	End Sub

End Class