Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Net
Imports System.Net.Mail
Imports System.Drawing
Imports System.IO
Partial Class Default2
Inherits System.Web.UI.Page
Protected Sub BtnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSubmit.Click
Dim strName As String
Dim strCountry As String
Dim strPhone As String
Dim stremail As String
Dim strMessage As String
Dim strdate As String
Dim strEmailContent As String
strName = TxtName.Text
strCountry = Country.Text
strPhone = Phone.Text
stremail = Email.Text
strMessage = Message.Text
strdate = Now()
strEmailContent = ""
strEmailContent = strEmailContent & "| Mail form |
"
strEmailContent = strEmailContent & "| Name: | " & strName & " |
"
strEmailContent = strEmailContent & "| Country: | " & strCountry & " |
"
strEmailContent = strEmailContent & "| Phone: | " & strPhone & " |
"
strEmailContent = strEmailContent & "| Email: | " & stremail & " |
"
strEmailContent = strEmailContent & "| Date: | " & strdate & " |
"
strEmailContent = strEmailContent & "| Message: | " & strMessage & " |
"
Sendmail(strEmailContent, stremail)
Tblsend.Visible = False
SendResult.InnerHtml = "Thank you, " & strName & " We recive your contact request. We will contact with you as fast as we can"
End Sub
Function Sendmail(ByVal strBoby, ByVal strEmail)
Dim mail As New MailMessage(strEmail, "info@3pshrink.com", "New contact request from 3PSHRINK website ", strBoby)
Dim SmtpMail As New SmtpClient("localhost")
mail.IsBodyHtml = True
mail.SubjectEncoding = Encoding.GetEncoding("windows-1256")
mail.BodyEncoding = Encoding.GetEncoding("windows-1256")
mail.Bcc.Add(New MailAddress("elsayad.tamer@gmail.com"))
Try
SmtpMail.Send(mail)
Catch el As Exception
End Try
Return True
End Function
End Class