Imports System Imports System.String Imports System.Net.Mail Imports System.Text Partial Class BusinessAssociates_TellAFriend Inherits System.Web.UI.Page Dim ProductId As String Dim enurl As String Protected Sub BtnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSave.Click email1() clearfields() CreateMessageAlert(Me, "Mail Sent Successfully.!", "strkeyval") End Sub Protected Sub clearfields() txtEmailId.Text = "" txtFEmailId.Text = "" txtFName.Text = "" txtName.Text = "" End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Session("ProductCode") <> Nothing Then ProductId = Session("ProductCode") End If 'ProductId = Request.QueryString("Product_Id") 'encoding the Product ID passed by previous page enurl = EncodeURL(ProductId).ToString If Not IsPostBack Then btnCancel.Attributes.Add("onclick", "javascript:window.close();") End If End Sub Public Sub email1() Try Dim StrMail As String = "" Dim objmessage As New MailMessage() Dim sr As New SmtpClient 'Dim k As String 'k = Session("ProductURL").ToString StrMail = "" StrMail = StrMail & "" & "" & "" StrMail = StrMail & "" & "

" StrMail = StrMail & "" StrMail = StrMail & "" & "
" StrMail = StrMail & "
" StrMail = StrMail & "
" StrMail = StrMail & "" & "Dear" & " " & txtFName.Text & "," & "" StrMail = StrMail & "
" & "
" StrMail = StrMail & "" & "I thought you might be interested in product " StrMail = StrMail & " " & "" ' StrMail = StrMail & productname StrMail = StrMail & "" & " " & "featured on Atcomaart.com" & "" StrMail = StrMail & "
" StrMail = StrMail & "
" StrMail = StrMail & "" & "Please click on the following link to view the product" & "" & "
" 'StrMail = StrMail & "
" & "
" StrMail = StrMail & "" & "To see the specification of product details go to :" & "" 'StrMail = StrMail & "" & "To see the specification of the" StrMail = StrMail & " " & "" ' StrMail = StrMail & productname ' StrMail = StrMail & "" & " " & "," & "go to" & "" StrMail = StrMail & "
" StrMail = StrMail & "
" StrMail = StrMail & " " StrMail = StrMail & "http://www.atcomaart.com/SearchProductDetails.aspx?ProductCode=" & enurl.ToString StrMail = StrMail & "" StrMail = StrMail & "
" & "
" StrMail = StrMail & "" & "If unable to view the page, please copy the link and paste it in a new browser window." & "" StrMail = StrMail & "
" & "
" 'StrMail = StrMail & "" & "Please contact our product management team for any further support" & "" & "
" StrMail = StrMail & "" & "Please contact our product management team at " & "" & " " StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "contact@atcomaart.com" StrMail = StrMail & "" StrMail = StrMail & "" StrMail = StrMail & "" & " " & "for any further support." StrMail = StrMail & "
" & "
" ' StrMail = StrMail & "" & "To know more about Atcomaart please visit the link below " & "" & "
" StrMail = StrMail & "" & "To know more about Atcomaart ,please visit this link " & "" StrMail = StrMail & "" & "http://www.atcomart.com" StrMail = StrMail & "" StrMail = StrMail & "
" & "
" StrMail = StrMail & "" & "Best Regards :" & "" StrMail = StrMail & "
" & "" & txtName.Text & "" StrMail = StrMail & "

" Dim mailmsg As New MailMessage 'From requires an instance of the MailAddress type mailmsg.From = New MailAddress("contact@atcomaart.com", txtEmailId.Text) 'To is a collection of MailAddress types mailmsg.To.Add(New MailAddress(txtFEmailId.Text, "Atcomaart Ltd.")) 'MyMailMessage.CC.Add(New MailAddress("pankajmishra2006@gmail.com", "CC Name")) ' mailmsg.Bcc.Add(New MailAddress("pankaj.mishra@edeskservices.com", "eDesk Services Ltd.")) mailmsg.Subject = "New Product Information - " & enurl.ToString mailmsg.Body = StrMail mailmsg.IsBodyHtml = True mailmsg.Priority = MailPriority.High Dim smtpsrver As New SmtpClient("smtp.rediffmailpro.com") smtpsrver.Credentials = New Net.NetworkCredential("contact@atcomaart.com", "traamocta") smtpsrver.Send(mailmsg) ' ''Dim fromaddr As New MailAddress(txtEmailId.Text) ' ''objmessage.From = fromaddr ' ''objmessage.Subject = "New Product Information - " & ProductId '' ''objmessage.From = fromaddr '' ''objmessage.Subject = " New Registration " ' ''objmessage.Body = StrMail ' ''objmessage.To.Add(txtFEmailId.Text) ' ''objmessage.IsBodyHtml = True ' ''sr.Host = "atcoex02" ' ''sr.Send(objmessage) Catch ex As Exception Dim exec As String exec = ex.Message.ToString End Try End Sub End Class