Help with send email

[JohnSmith40272]

Could someone PLEASE tell me what is wrong here? I’m trying to get my windows application to send an email by pressing a button on the form, but I keep getting this ex.message of “Failure Sending Mail”. I do not get any other error messages. This error occurs at line “obj.Send(Mailmsg)”. I'm using VB2008 Express.

Thanks for any help.


Dim obj As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient
Dim Mailmsg As New System.Net.Mail.MailMessage
Mailmsg.To.Clear()

Mailmsg.To.Add(New System.Net.Mail.MailAddress(SendingEmailTo))
Mailmsg.From = New System.Net.Mail.MailAddress(EmailFrom)

Mailmsg.Subject = EmailSubject
Try
Mailmsg.Body = EmailMessage

obj.Host = "smtp.SomeServer.com"
obj.Send(Mailmsg)
Catch ex As Exception
MsgBox("Error Sending The Email For The Following Reason" + Chr(13) + Chr(13) + ex.Message)
Exit Sub
End Try

MsgBox("Message Sent")

[Hack]

http://msdn.microsoft.com/en-us/libr...mtpclient.aspx