Skip to main content

ASP.Net : Send mail through Html

Add this page to your project with name of mail.asp and save following code into it.

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then


    txtname = Request.Form("txtname")
    'txtcompanyname= Request.Form("txtcompanyname")
    txtadd = Request.Form("txtadd")
    txtzip= Request.Form("txtzip")
    txtcity = Request.Form("txtcity")
    txtstate = Request.Form("txtstate")
    txtcountry = Request.Form("txtcountry")
    txtph = Request.Form("txtph")
    txtfax = Request.Form("txtfax")
    txtemail = Request.Form("txtemail")
    txtquery = Request.Form("txtquery")


    MailBody="Enquiry Form <br>" _
             & "Name: " & txtname & "<br>" _
             & "Address: " & txtadd & "<br>" _
             & "City: " & txtcity & "<br>" _
             & "State: " & txtstate & "<br>" _
             & "Zip: " & txtzip & "<br>" _
             & "Country: " & txtcountry & "<br>" _
             & "Phone: " & txtph & "<br>" _
             & "Fax: " & txtfax & "<br>" _
             & "Email: " & txtemail & "<br>" _
             & "Query: " & txtquery
   
    usernm = "admin@admin.com"
    pass = "ja"
    Set objmessage = CreateObject("CDO.Message")     
    objmessage.Subject = "Enquiry Form Submitted: Query"     
    objmessage.From = "admin@admin.com"
    objmessage.To = "info@admin.com"
    objmessage.BCC = "info@admin.com"
    objmessage.HTMLBody = MailBody
   
    objmessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2            
    objmessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1     
    objmessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = usernm            
    objmessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = pass     
    objmessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"     
    objmessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465     
    objmessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1     
    objmessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30     
    objmessage.Configuration.Fields.Update     
    objmessage.Send     
    Set objmessage = Nothing
    response.redirect "enquiry.html"
end if
%>
Labels:

Comments

Post a Comment

Popular posts from this blog

UP TET 2011 Exam Application,UPTET 2011 Result | UPTET 2011 Revised Result

UPTET 2011 Result | UPTET 2011 Revised Result | UPTET 2011 Updated Result |Board of High School and Intermediate Education Uttar Pradesh, Allahabad UP TET Advertisement 2011 and Exam Detail/Admit Card/Call Letter Download UP TET 2011 FORM & DETAILS  GET LATEST DETAIL ABOUT 72825 Primary Teacher Merit List UP TET 2011 Application form submission last date is 18-Oct-2011.Forms will be distributed from PNB bank all over UP.According to latest news Appearing B.Ed student also eligible for TET exam 2011 so they can also submit their forms to concern District.There is no requirement for Rojgar Registration No and Bank receipt within the application form.UP TET 2011 exam results will be avail on http://www.uptet2011.com . Now you can easily get Application from from the P.N.B bank Branches. UPTET 2011 Result | UPTET 2011 Revised Result | UPTET 2011 Updated Result |  Board of High School and Intermediate Education Uttar Pradesh, Al...
86 comments
Read more

DataView Rowfilter With Like % in C#.Net

DataView RowFilter Syntax in C#,ASP.Net Example This example describes syntax of DataView.RowFilter expression. It shows how to correctly build expression string (without "SQL injection" ) using methods to escape values. Column names If a column name contains any of these special characters ~ ( ) # \ / = > < + – * % & | ^ ' " [ ], you must enclose the column name within square brackets [ ]. If a column namecontains right bracket ] or backslash \, escape it with backslash (\] or \\). [C#] dataView.RowFilter = "id = 10″; // no special character in column name " id " dataView.RowFilter = "$id = 10″; // no special character in column name " $id " dataView.RowFilter = "[#id] = 10″; // special character " #" in column name "#id" dataView.RowFilter = "[[id\]] = 10″; // special characters in column name " [id] " Literals String values are enclosed within single qu...
Post a Comment
Read more

UP Primary Teacher Recruitment 2011 – 72825 vacancy filled by jan 2012,Up Basic Education Primary Teacher Result, Up Basic Education Primary Teachers DIET wise Merit List, Primary Teachers Vacancy ,Teachers Vacancy in UP

Uttar Pradesh Government will recruit 72,825 Primary Teachers in schools of Basic Education council. This decision has been approved in the cabinet of UP. There are total 3,86,726 posts of teachers in the state out of which 2,84,391 posts have already been created. Currently only 1,87,155 teachers are working. There are 1,99,571 vacant posts of primary teachers  and the Government is planning to fill up 72,825 posts. Details of eligibility and application process are following: Eligibility : Educational Qualification –  Minimum 50% in Graduation ( BA / B.Sc /B.Com) with B.Ed degree Have to qualify Teacher Eligibility Test ( UP TET) Age  should be 18 to 35 years ( as on 1 st  July,2011  Applicaton fee  – Rs. 500 for General Candidates, Rs. 200 for SC, ST . There is no application fee for PH candidates. Interested candidates who are living in UP for last five years can apply from five districts of their...
12 comments
Read more