|
 |
access_asp thread: AW: Mail Problems, please help
Message #1 by "Detlef Richter" <drichter@i...> on Thu, 1 Aug 2002 20:43:23 +0200
|
|
Hi Charles!
Here is the solution!
I send you two mails, they will be generated with the following
asp-files !
Under Win2000 / .Net:
<%@ Language=3DVBScript %>
<HTML>
<HEAD>
<META NAME=3D"GENERATOR" Content=3D"Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Dim objCDOMail 'The CDO object
'###############################################################
'## Change you@y... to your email address ##
'###############################################################
strTo =3D "ckline@r..."
'###############################################################
'## We can make the subject dynamic if you want ##
'## or you can just replace text inside "" to anything ##
'###############################################################
strSubject =3D "Email from website"
strBody =3D "Current date: " & date()
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "I am...: "
strBody =3D strBody & Request.Form("who")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "My name is: "
strBody =3D strBody & Request.Form("myName")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "My email address is: "
strBody =3D strBody & Request.Form("myEmail")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "File Number: "
strBody =3D strBody & Request.Form("fileNum")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Document Number: "
strBody =3D strBody & Request.Form("docNum")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "First Name: "
strBody =3D strBody & Request.Form("fName") & " "
strBody =3D strBody & Request.Form("lName") & ", "
strBody =3D strBody & Request.Form("mName") & " "
strBody =3D strBody & Request.Form("generation")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "House #: "
strBody =3D strBody & Request.Form("houseNum")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Direction: "
strBody =3D strBody & Request.Form("direction")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Street Name: "
strBody =3D strBody & Request.Form("streetName") & " "
strBody =3D strBody & Request.Form("streetType")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "City: "
strBody =3D strBody & Request.Form("city")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "State: "
strBody =3D strBody & Request.Form("state")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Zip Code: "
strBody =3D strBody & Request.Form("zip")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "SSN: "
strBody =3D strBody & Request.Form("ssn1") & "-" & Request.Form("ssn2")
&
"-" & Request.Form("ssn3")
strBody =3D strBody & "DOB: "
strBody =3D strBody & Request.Form("dob1") & "/" & Request.Form("dob2")
&
"/" & Request.Form("dob3")
strBody =3D strBody & "Drivers Lic. #: "
strBody =3D strBody & Request.Form("drvLicNum")
strBody =3D strBody & "Previous Address: "
strBody =3D strBody & request.Form("prevAddr") & chr(10)
Set objCDOMail =3D Server.CreateObject("CDO.Message")
'###############################################################
'## Change yourname to reflect where the email is sent from ##
'###############################################################
objCDOMail.From =3D "yourname"
objCDOMail.To =3D strTo
objCDOMail.CC =3D "drichter@i..."
objCDOMail.Subject =3D strSubject
objCDOMail.HTMLBody =3D strBody
objCDOMail.Send
Set objCDOMail =3D Nothing
%>
</BODY>
</HTML>
Under Win Nt 4
<%@ Language=3DVBScript %>
<HTML>
<HEAD>
<META NAME=3D"GENERATOR" Content=3D"Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Dim objCDOMail 'The CDO object
'###############################################################
'## Change you@y... to your email address ##
'###############################################################
strTo =3D "ckline@r..."
'###############################################################
'## We can make the subject dynamic if you want ##
'## or you can just replace text inside "" to anything ##
'###############################################################
strSubject =3D "Email from website"
strBody =3D "Current date: " & date()
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "I am...: "
strBody =3D strBody & Request.Form("who")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "My name is: "
strBody =3D strBody & Request.Form("myName")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "My email address is: "
strBody =3D strBody & Request.Form("myEmail")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "File Number: "
strBody =3D strBody & Request.Form("fileNum")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Document Number: "
strBody =3D strBody & Request.Form("docNum")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "First Name: "
strBody =3D strBody & Request.Form("fName") & " "
strBody =3D strBody & Request.Form("lName") & ", "
strBody =3D strBody & Request.Form("mName") & " "
strBody =3D strBody & Request.Form("generation")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "House #: "
strBody =3D strBody & Request.Form("houseNum")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Direction: "
strBody =3D strBody & Request.Form("direction")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Street Name: "
strBody =3D strBody & Request.Form("streetName") & " "
strBody =3D strBody & Request.Form("streetType")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "City: "
strBody =3D strBody & Request.Form("city")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "State: "
strBody =3D strBody & Request.Form("state")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Zip Code: "
strBody =3D strBody & Request.Form("zip")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "SSN: "
strBody =3D strBody & Request.Form("ssn1") & "-" & Request.Form("ssn2")
&
"-" & Request.Form("ssn3")
strBody =3D strBody & "DOB: "
strBody =3D strBody & Request.Form("dob1") & "/" & Request.Form("dob2")
&
"/" & Request.Form("dob3")
strBody =3D strBody & "Drivers Lic. #: "
strBody =3D strBody & Request.Form("drvLicNum")
strBody =3D strBody & "Previous Address: "
strBody =3D strBody & request.Form("prevAddr") & chr(10)
Set objCDOMail =3D Server.CreateObject("CDONTS.NewMail")
'###############################################################
'## Change yourname to reflect where the email is sent from ##
'###############################################################
objCDOMail.From =3D "yourname"
objCDOMail.To =3D strTo
objCDOMail.Cc =3D "drichter@i..."
objCDOMail.Subject =3D strSubject
objCDOMail.Body =3D strBody
objCDOMail.BodyFormat =3D 0
objCDOMail.MailFormat =3D 0
objCDOMail.Send
Set objCDOMail =3D Nothing
%>
</BODY>
</HTML>
Greetings,
D. Richter
Internet- und Software-Haus Richter GmbH & Co. KG
Hasselfeldstr. 13
30926 Seelze=A0- Velber
Germany
Tel.: +49 (0)511 40094740
Fax: +49 (0)511 40094745
-----Urspr=FCngliche Nachricht-----
Von: Charles Kline [mailto:ckline@r...]
Gesendet: Donnerstag, 1. August 2002 19:25
An: Access ASP
Betreff: [access_asp] Mail Problems, please help
For some reason this code is not sending mail. I don't get any error
either.
Win 2k. Please I could use some help with this.
Code follows:
<%
Dim objCDOMail 'The CDO object
'###############################################################
'## Change you@y... to your email address ##
'###############################################################
strTo =3D "you@y... "
'###############################################################
'## We can make the subject dynamic if you want ##
'## or you can just replace text inside "" to anything ##
'###############################################################
strSubject =3D "Email from website"
strBody =3D "Current date: " & date()
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "I am...: "
strBody =3D strBody & Request.Form("who")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "My name is: "
strBody =3D strBody & Request.Form("myName")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "My email address is: "
strBody =3D strBody & Request.Form("myEmail")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "File Number: "
strBody =3D strBody & Request.Form("fileNum")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Document Number: "
strBody =3D strBody & Request.Form("docNum")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "First Name: "
strBody =3D strBody & Request.Form("fName") & " "
strBody =3D strBody & Request.Form("lName") & ", "
strBody =3D strBody & Request.Form("mName") & " "
strBody =3D strBody & Request.Form("generation")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "House #: "
strBody =3D strBody & Request.Form("houseNum")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Direction: "
strBody =3D strBody & Request.Form("direction")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Street Name: "
strBody =3D strBody & Request.Form("streetName") & " "
strBody =3D strBody & Request.Form("streetType")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "City: "
strBody =3D strBody & Request.Form("city")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "State: "
strBody =3D strBody & Request.Form("state")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Zip Code: "
strBody =3D strBody & Request.Form("zip")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "SSN: "
strBody =3D strBody & Request.Form("ssn1") & "-" & Request.Form("ssn2")
&
"-"
& Request.Form("ssn3")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "DOB: "
strBody =3D strBody & Request.Form("dob1") & "/" & Request.Form("dob2")
&
"/"
& Request.Form("dob3")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Drivers Lic. #: "
strBody =3D strBody & Request.Form("drvLicNum")
strBody =3D strBody & vbCrLf
strBody =3D strBody & vbCrLf
strBody =3D strBody & "Previous Address: "
strBody =3D strBody & Request.Form("prevAddr") & chr(10)
Set objCDOMail =3D Server.CreateObject("CDONTS.Newmail")
'###############################################################
'## Change yourname to reflect where the email is sent from ##
'###############################################################
objCDOMail.From =3D "yourname"
objCDOMail.To =3D strTo
objCDOMail.Subject =3D strSubject
objCDOMail.Body =3D strBody
objCDOMail.Send
Set objCDOMail =3D Nothing
%>
-------------------------------------------------
Charles Kline email: ckline@r...
President phone: xxx.xxx.xxxx
RightCode, Inc.
900 Briggs Road, Suite 303
Mt. Laurel, NJ 08054
http://www.rightcode.net -=3D fuel for websites =3D-
|
|
|
View Cart
