Making a Email Client
Dim message As System.Net.Mail.MailMessage
Dim smtp As New System.Net.Mail.SmtpClient(txtStmp.Text, 587)
message = New System.Net.Mail.MailMessage(txtFrom.Text, txtTo.Text, txtSubject.Text, txtMessage.Text)
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(txtFrom.Text, txtPass.Text)
Try
smtp.Send(message)
MessageBox.Show("Message Sent", " Sent", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch exc As Net.Mail.SmtpException
MessageBox.Show("An Error Occured Whilst Sending", " Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
