ASP Mail

From KOP KB
Jump to: navigation, search

This is more of a testing script for trying out different types of email there are you can try through asp.

CDO

elseif u_method ="CDOSYS" then
	sch = "http://schemas.microsoft.com/cdo/configuration/" 
 
    Set cdoConfig = CreateObject("CDO.Configuration") 
 
    With cdoConfig.Fields 
        .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
        .Item(sch & "smtpserver") = "localhost" 
        .update 
    End With 
 
    Set cdoMessage = CreateObject("CDO.Message") 
 
    With cdoMessage 
      
	    Set .Configuration = cdoConfig 
        .From = s_from
        .To = u_email
		.Subject = "Testing email" 
        .TEXTBody = "CDOSYS aka CDO.Message worked" 
		.send
    End With 
    Response.write "To: " & u_email
    Response.write "From: " & s_from
    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing

CDONTS

elseif u_method = "CDONTS" then
 
	Dim MyBody
    Dim MyCDONTSMail    
    Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
    MyCDONTSMail.From= s_from
    MyCDONTSMail.To= u_email
    MyCDONTSMail.Subject="This is a Test"
    MyBody = "testing email" & vbCrLf
    MyBody = MyBody & "CDONTS seems fine" & vbCrLf
    MyCDONTSMail.Body= MyBody
    MyCDONTSMail.Send
    set MyCDONTSMail=nothing
    Response.write "To: " & u_email
    Response.write "From: " & s_from

ASPMAIL AND QMAIL

if u_method = "ASPMAIL" or u_method = "QMAIL" then

	set Mailer = Server.CreateObject("SMTPsvg.Mailer")
	if u_method = "QMAIL" then
	        'This is pretty much setting qmail right here
                'if its not set then pretty much its aspmail sending it
		Mailer.QMessage = "true"
		Mailer.Subject = "Testing ASPQmail"
	else
		Mailer.Subject   = "Testing ASP Mail"
	end if 'ASPQMAIL
	Mailer.FromName   = "Test"
	Mailer.FromAddress= s_from
	Mailer.RemoteHost = "localhost"
	Mailer.AddRecipient "Test",u_email
	Mailer.BodyText  = "This is a Test"
	Mailer.SMTPLog     = server.mappath("./smtp.log")

	if Mailer.SendMail then
	  	Response.write "To: " & u_email
    Response.write "From: " & s_from
	else
  		Response.Write "Mail send failure. Error was " & Mailer.Response
	end if 'sendmail success

Full Script

Top of Page

<form action=mailtest.asp method=post>
<div>Enter the email you would like to send to: <input type=text name=email> using the mailer: 
<select name=mailobject>
<option value="CDONTS">CDONTS</option>
<option value="ASPMAIL">ASPMAIL</option>
<option value="QMAIL">ASPQMAIL</option>
<option value="CDOSYS">CDO.Message</option>
</select>
<input value=submit type=submit>
</form>
<%

    	u_email = Request.Form("email")
    	
    	
if u_email <>"" then
	
	u_method=Request.form("mailobject")
   	s_servername = Request.ServerVariables("SERVER_NAME")
   	s_from = "mailtest@" & s_servername
	

if u_method = "ASPMAIL" or u_method = "QMAIL" then

	set Mailer = Server.CreateObject("SMTPsvg.Mailer")
	if u_method = "QMAIL" then
	        'This is pretty much setting qmail right here
                'if its not set then pretty much its aspmail sending it	
		Mailer.QMessage = "true"
		Mailer.Subject = "Testing ASPQmail"
	else
		Mailer.Subject   = "Testing ASP Mail"
	end if 'ASPQMAIL
	Mailer.FromName   = "Test"
	Mailer.FromAddress= s_from
	Mailer.RemoteHost = "localhost"
	Mailer.AddRecipient "Test",u_email
	Mailer.BodyText  = "This is a Test"
	Mailer.SMTPLog     = server.mappath("./smtp.log")

	if Mailer.SendMail then
	  	Response.write "To: " & u_email
    Response.write "From: " & s_from
	else
  		Response.Write "Mail send failure. Error was " & Mailer.Response
	end if 'sendmail success
elseif u_method = "CDONTS" then

	Dim MyBody
    Dim MyCDONTSMail    
    Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
    MyCDONTSMail.From= s_from
    MyCDONTSMail.To= u_email
    MyCDONTSMail.Subject="This is a Test"
    MyBody = "testing email" & vbCrLf
    MyBody = MyBody & "CDONTS seems fine" & vbCrLf
    MyCDONTSMail.Body= MyBody
    MyCDONTSMail.Send
    set MyCDONTSMail=nothing
    Response.write "To: " & u_email
    Response.write "From: " & s_from

elseif u_method ="CDOSYS" then
	sch = "http://schemas.microsoft.com/cdo/configuration/" 
 
    Set cdoConfig = CreateObject("CDO.Configuration") 
 
    With cdoConfig.Fields 
        .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
        .Item(sch & "smtpserver") = "localhost" 
        .update 
    End With 
 
    Set cdoMessage = CreateObject("CDO.Message") 
 
    With cdoMessage 
      
	    Set .Configuration = cdoConfig 
        .From = s_from
        .To = u_email
		.Subject = "Testing email" 
        .TEXTBody = "CDOSYS aka CDO.Message worked" 
		.send
    End With 
    Response.write "To: " & u_email
    Response.write "From: " & s_from
    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing
end if
end if
%>

CDO MAIL SEPARATE FORMAT

<%
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail") ' Create  instance of NewMail object.

Dim strBody
strBody = "Opening line of email:" & vbCrLf & vbCrLf

strBody = strBody & "Name: " & Request.Form("name") & vbCrLf
strBody = strBody & "Address: " & Request.Form("address") & vbCrLf
strBody = strBody & "City: " & Request.Form("city") & vbCrLf 
strBody = strBody & "State:  " & Request.Form("state") & vbCrLf
strBody = strBody & "Zip:  " & Request.Form("zip2") & vbCrLf
strBody = strBody & "Day-Phone: " & Request.Form("Day_Phone") & vbCrLf
strBody = strBody & "Biz-Phone: " & Request.Form("Biz_Phone") & vbCrLf
strBody = strBody & "Email: " & Request.Form("email") & vbCrLf
strBody = strBody & "Birth-Day: " & Request.Form("birth_day") & vbCrLf
strBody = strBody & "Educational History: " & Request.Form("Educational_History") & vbCrLf
strBody = strBody & "Interested in Attending: " & Request.Form("interested_in_attending") & vbCrLf
strBody = strBody & "Course of Study: " & Request.Form("Course_of_Study") & vbCrLf
strBody = strBody & "Start-Date: " & Request.Form("Start_Date") & vbCrLf
strBody = strBody & "Best-Time: " & Request.Form("Best_Time") & vbCrLf
strBody = strBody & "Comments: " & Request.Form("q") & vbCrLf
strBody = strBody & "-----------------------------------------------"

objCDOMail.From = "CompanyName <[email protected]>"
objCDOMail.To = "[email protected]"
objCDOMail.Subject = "Subject"
objCDOMail.Body = strBody

objCDOMail.Send
%>

Basic Format

<%
' change to address of your own SMTP server
strHost = "smtp.servername.com"
 

If Request("Send") <> "" Then
   Set Mail = Server.CreateObject("Persits.MailSender")
   ' enter valid SMTP host
   Mail.Host = strHost
 
   Mail.From = Request("Form_Email") ' From address preferably the name from the email thats put into the form
   Mail.FromName = Request("Form_Email") ' optional
   Mail.AddAddress "[email protected]"
 
   ' message subject
   Mail.Subject = "Subject"
   ' message body
   
   Mail.Body = "First Name: " & Request("Contact_FirstName") & vbCrLf & "Last Name: " & Request("Contact_LastName") & vbCrLf & "Street Address: " & Request("Contact_StreetAddress") & vbCrLf & "Address 2: " & Request("Contact_Address2") & vbCrLf & "City: " & Request("Contact_City") & vbCrLf & "State: " & Request("Contact_State") & vbCrLf & "ZipCode: " & Request("Contact_ZipCode") & vbCrLf & "Country: " & Request("Contact_Country") & vbCrLf & "Work Phone: " & Request("Contact_WorkPhone") & vbCrLf & "Home Phone: " & Request("Contact_HomePhone") & vbCrLf & "Email: " & Request("Contact_Email") & vbCrLf & "Number of Adults: " & Request("Adults") & vbCrLf & "Number of Children: " & Request("Children") & vbCrLf & "Arrival Date: " & Request("Arrival") & vbCrLf & "Departure Date: " & Request("Departure") & vbCrLf & "Cabin Choice: " & Request("CabinChoice") & vbCrLf & "Comments: " & Request("Comments")
   
   strErr = ""
   bSuccess = False
   On Error Resume Next ' catch errors
   Mail.Send ' send message
   If Err <> 0 Then ' error occurred
      strErr = Err.Description
   else
      bSuccess = True
   End If
End If


%>

Server Settings

myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update


Fake Email

<%
Set myMail=CreateObject("CDO.message") 

stremail = Request.Form("email")

if(stremail <> "") Then
myMail.From= stremail
else
myMail.From= "[email protected]"
end if


myMail.To="[email protected]"
myMail.Subject="Inquiry Request"
myMail.TextBody="Name: " & Request.Form("name") & vbCrLf & "Email: " & Request.Form("email") & vbCrLf & "Phone Number: " & Request.Form("phone") & vbCrLf & "Address: " & Request.Form("address") & vbCrLf & "Case Description: " & Request.Form("case_description") & vbCrLf & "Additional Comments: " & Request.Form("comments") & vbCrLf & "-----------------------------------------------"

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.domain.com"
'Server port
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update



myMail.Send
set objCDOMail=nothing
%>
Retrieved from "https://knightsofprocrastination.ca/KOPKB/index.php?title=ASP_Mail&oldid=568"