Sending Mail In Vb.net

	Sending Mail In Vb.net
	Discussion by Jimmy89 with 6 Replies. Last Update: October 7, 2009, 6:15 pm

Jimmy89

Hi,
I am trying to allow my program to send emails via a smtp server. Everything seems to be working the only problem is that i get an error response from the server saying

QUOTE

The SMTP server requires a secure connection or the client was not authenticated. The server response was: 5.7.0 Authentication required

The Code that I am using is

CODE

Private Sub SendMail()
Dim fromAddress As New MailAddress("from@mail.com", "Support")
Dim toAddress As New MailAddress(txtEmail.Text, "User")
Dim msg As New MailMessage(fromAddress, toAddress)

msg.Body = My.Application.Info.DirectoryPath + "\support\mailtemplate.html"
msg.Subject = "Support Ticket"
msg.IsBodyHtml = True

Dim mailSender As New System.Net.Mail.SmtpClient()
mailSender.Host = "mail.myserver.com"
mailSender.Port = 587
Try
mailSender.Send(msg)
MsgBox("Message sent")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

All I think I have to do is set up authentication for the server, but im not sure how to do that!
Thanks,
-jimmy

Mon Dec 3, 2007 Reply New Discussion

faulty.lee

Ya, most SMTP server now require authentication to send email, as a spam prevention feature, but i still receive as much spam or even more nowadays :rolleyes:

Try add these code

CODE

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'basic authentication
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "my_username_here") 'set your username here
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "super_secret") 'set your password here

I copied the 3 lines of code from http://www.systemwebmail.com/faq/3.8.aspx

I haven't got time to test it out. Give it a try and post the result here.

Good Luck

Tue Dec 4, 2007 Reply New Discussion

Jimmy89

I seem to be getting my fair share of spam also, your not alone! :rolleyes:

I went to the website and found that if I'm using .net 2 (which I am) I can use different code.

CODE

Sub Authenticate()
'create the mail message
Dim mail As New Net.Mail.MailMessage()

'set the addresses
mail.From = New Net.Mail.MailAddress("me@mycompany.com")
mail.To.Add("you@yourcompany.com")

'set the content
mail.Subject = "This is an email"
mail.Body = "this is the body content of the email."

'send the message
Dim smtp As New Net.Mail.SmtpClient("127.0.0.1")

'to authenticate we set the username and password properites on the SmtpClient
smtp.Credentials = New Net.NetworkCredential("username", "secret")
smtp.Send(mail)
End Sub 'Authenticate

This was from: http://www.systemnetmail.com/faq/4.2.aspx

yet this still returns the same error!

QUOTE

The SMTP server requires a secure connection or the client was not authenticated. The server response was: 5.7.0 Authentication required

EDIT: I attempted using my astahost smtp details and now get a Failure Sending Mail error. The Inner Exception is

QUOTE

Unable to read data from the transport connection: net_io_connectionclosed.

Wed Dec 5, 2007 Reply New Discussion

faulty.lee

You can try sending through a working SMTP server, say, your existing SMTP server for your normal email provider. That way, you can eliminate the problem which might be caused by the server itself

Wed Dec 5, 2007 Reply New Discussion

Jimmy89

faulty, that should have been my first thought! it worked! which leads me to wonder why its not working with AstaHost? It must be something to do with the server and the way mail is setup through CPanel.

Wed Dec 5, 2007 Reply New Discussion

(G)

I have the same problem. I tried using the example above but I' still getting this error message.

The SMTP server requires a secure connection or the client was not authenticated. The server response was: 5.7.0 Authentication required.

is there any other reason for this behavior?

Thanks for your help.

Tony

Thu Sep 10, 2009 Reply New Discussion

(G)

try to use SSL encryption;

Dim smtp As New System.Net.Mail.SmtpClient smtp.Host = "your host goes here" smtp.Port = "ypur host port goes here" smtp.EnableSsl = True ' this is the important thing smtp.Send([MailMessage])

Wed Oct 7, 2009 Reply New Discussion