hi everyone,
I have trouble to send email using system.net.mail in ASP.NET 2.0 with VB
here is my code.... any body tell me what is going wrong with the code.
Code for SendEmail.vb
Imports Microsoft.VisualBasic
Imports System.Net.Mail
Public Class SendEmail
Public Sub SendEmailMessage(ByVal fromMail As String, ByVal toMail _
As String, ByVal subjectMail As String, ByVal messageMail As String)
'This procedure takes four string parameters for sending the mail
Try
'address create a mail message
Dim MailMsg As New MailMessage(New MailAddress(fromMail.Trim()), New MailAddress(toMail))
MailMsg.BodyEncoding = Encoding.Default
MailMsg.Subject = subjectMail
MailMsg.Body = messageMail.Trim() & vbCrLf
MailMsg.IsBodyHtml = True
MailMsg.Priority = MailPriority.High
'Smtpclient to send the mail message
Dim SmtpMail As New SmtpClient
SmtpMail.Host = "59.89.122.86" 'IP address of my computer system
SmtpMail.Send(MailMsg)
'Message Successful
Catch ex As Exception
MsgBox( "Failed")
'Message Error
End Try
End Sub
End Class
============================================================
Code for Default.aspx.vb
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SendEmail As New SendEmail
Dim SendTo As String = TextBox1.Text
Dim strSubject As String = TextBox2.Text
Dim strMessage As String = TextBox3.Text
SendEmail.SendEmailMessage(
, SendTo, strSubject, strMessage)
End Sub
End Class
======================================================================
waiting for response....
.NET Development8
| 
