| Author: Rathi 05 Jul 2008 | Member Level: Gold | Rating:  Points: 6 |
hai friend
try this
Imports System.Web
Imports System.Net.Mail
Imports system.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Partial Class Ajasociate
Inherits System.Web.UI.Page
Protected Sub btnSendmail_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSendmail.Click
Dim SmtpClient = New SmtpClient()
Dim message = New MailMessage()
Dim Desc As String = ""
Try
Dim fromAddress = New MailAddress(txtEmail.Text, txtName.Text)
SmtpClient.Host = "localhost"
message.From = fromAddress
message.To.Add("hghgfh@rediffmail.com")
message.Subject = ("Business Inquiry")
' message.CC.Add("gfhgfh@hotmail.com")
message.Bcc.Add("ghse@clicknfind.in")
'MsgBox("var1 type is: " & vbCrLf + "var1 type is")
Desc = Desc + "contact Name:" & txtName.Text + vbCrLf
Desc = Desc + "Company Name:" & CompanyName.Text + vbCrLf
Desc = Desc + "Mobile:" & Mobile.Text + vbCrLf
Desc = Desc + "Land Line:" & LandLine.Text + vbCrLf
Desc = Desc + "Message:" & txtMessage.Text + vbCrLf
message.IsBodyHtml = False
message.Body = (Desc)
'message.Body = ("contact Name:" + txtName.Text + ",Company Name:" & CompanyName.Text & ",Mobile No:" & Mobile.Text & ",Land Line:" & LandLine.Text & ",Message:" & txtMessage.Text & "")
SmtpClient.Send(message)
lblStatus.Text = "Email successfully sent."
Catch ex As Exception
lblStatus.Text = "Send Email Failed.<br>" + ex.Message
End Try
End Sub
|
| Author: Nalin Gajera 05 Jul 2008 | Member Level: Gold | Rating: Points: 6 |
Dim Email As New System.Net.Mail.MailMessage( _
"test@yahoo.com", "test11@yahoo.com")
Email.Subject = "test subject"
Email.Body = "this is a test"
Dim mailClient As New System.Net.Mail.SmtpClient()
'This object stores the authentication values
Dim basicAuthenticationInfo As _
New System.Net.NetworkCredential("username", "password")
'Put your own, or your ISPs, mail server name onthis next line
mailClient.Host = "Mail.RemoteMailServer.com"
mailClient.UseDefaultCredentials = False
mailClient.Credentials = basicAuthenticationInfo
mailClient.Send(Email)
|
| Author: tushqi 05 Jul 2008 | Member Level: Silver | Rating: Points: 6 |
Dim fromAddress = New MailAddress(txtEmail.Text, txtName.Text)
SmtpClient.Host = "localhost"
message.From = fromAddress
message.To.Add("hghgfh@rediffmail.com")
message.Subject = ("Business Inquiry")
' message.CC.Add("gfhgfh@hotmail.com")
message.Bcc.Add("ghse@clicknfind.in")
'MsgBox("var1 type is: " & vbCrLf + "var1 type is")
Desc = Desc + "contact Name:" & txtName.Text + vbCrLf
Desc = Desc + "Company Name:" & CompanyName.Text + vbCrLf
Desc = Desc + "Mobile:" & Mobile.Text + vbCrLf
Desc = Desc + "Land Line:" & LandLine.Text + vbCrLf
Desc = Desc + "Message:" & txtMessage.Text + vbCrLf
message.IsBodyHtml = False
message.Body = (Desc)
'message.Body = ("contact Name:" + txtName.Text + ",Company Name:" & CompanyName.Text & ",Mobile No:" & Mobile.Text & ",Land Line:" & LandLine.Text & ",Message:" & txtMessage.Text & "")
SmtpClient.Send(message)
lblStatus.Text = "Email successfully sent."
Catch ex As Exception
lblStatus.Text = "Send Email Failed.<br>" + ex.Message
End Try
End Sub
|