How to send email from windows applcation using vb.net

See more:

VB

U am tryig to write simple routine to send email from desktop appliation.
For simplicity I have a form with one button. The code is hardcoded but I can add the bells and whistles later. When I run it it debugs OK but comes up with an error "uable to connect to remote server" Any help will be much appreciated.

Imports System.Net.Mail
Imports System.Net

Public Class Form1


    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim mFrom, mTo As String
        mFrom = "hostemailaddress@yahoo.co.uk"
        mTo = "targetemailaddress@yahoo.com"
        Dim mPort As Int32
        mPort = 25      'default port for mail server

        Dim email As New MailMessage(mFrom, mTo)
        email.Subject = "Test Subject"        
        email.Body = Hello World
        Dim mySmtpClient As New SmtpClient("yahoo.co.uk", mPort)
        mySmtpClient.UseDefaultCredentials = True

        Dim emailAdr As String
        Dim passwrd As String

        emailAdr = "hostemailaddress@yahoo.co.uk"
        passwrd = "password"
        mySmtpClient.Credentials = New NetworkCredential(emailAdr, passwrd)
        mySmtpClient.Send(email)

        
    End Sub

End Class