|
 |
access_asp thread: AW: Sending mail via ASP
Message #1 by "Detlef Richter" <drichter@i...> on Wed, 31 Jul 2002 21:41:49 +0200
|
|
Hi Charles,
here are two samples. They should work - in Germany they worked ;-). I
hope, that is what you need. Adjust the domains and variables.
Use CDONTS under Win NT 4 and CDO under W2k and .Net
Of course SMTP must be installed.
Sorry my bad english.
Greetings from Germany.
D. Richter
Internet- und Software-Haus Richter GmbH & Co. KG
Hasselfeldstr. 13
30926 Seelze
-----Ursprüngliche Nachricht-----
Von: Charles Kline [mailto:ckline@r...]
Gesendet: Mittwoch, 31. Juli 2002 18:30
An: Access ASP
Betreff: [access_asp] Sending mail via ASP
Hi all,
I have not done much ASP coding recently, and this is the first time I
have
needed to send any mail using ASP.
I have trying to get this bit of code that I found on the net working,
but
mail is not going out.
Anyone see any issues in the code?
<!-- The code here -->
<%
Dim strTo, strSubject, strBody, who, myName, myEmail, fileNum, docNum,
fName, lName, mName, generation, houseNum, direction, streetName,
streetType, city, state, zip, ssn1, ssn2, ssn3, dob1, dob2, dob3,
drvLicNum,
prevAddr
Dim objCDOMail 'The CDO object
'###############################################################
'## Change you@y... to your email address ##
'###############################################################
strTo = "you@y..."
'###############################################################
'## We can make the subject dynamic if you want ##
'## or you can just replace text inside "" to anything ##
'###############################################################
strSubject = "Email from website"
strBody = "Current date: " & date()
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "I am...: "
strBody = strBody & Request.Form("who")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "My name is: "
strBody = strBody & Request.Form("myName")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "My email address is: "
strBody = strBody & Request.Form("myEmail")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "File Number: "
strBody = strBody & Request.Form("fileNum")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Document Number: "
strBody = strBody & Request.Form("docNum")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "First Name: "
strBody = strBody & Request.Form("fName") & " "
strBody = strBody & Request.Form("lName") & ", "
strBody = strBody & Request.Form("mName") & " "
strBody = strBody & Request.Form("generation")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "House #: "
strBody = strBody & Request.Form("houseNum")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Direction: "
strBody = strBody & Request.Form("direction")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Street Name: "
strBody = strBody & Request.Form("streetName") & " "
strBody = strBody & Request.Form("streetType")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "City: "
strBody = strBody & Request.Form("city")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "State: "
strBody = strBody & Request.Form("state")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Zip Code: "
strBody = strBody & Request.Form("zip")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "SSN: "
strBody = strBody & Request.Form("ssn1") & "-" & Request.Form("ssn2") &
"-"
& Request.Form("ssn3")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "DOB: "
strBody = strBody & Request.Form("dob1") & "/" & Request.Form("dob2") &
"/"
& Request.Form("dob3")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Drivers Lic. #: "
strBody = strBody & Request.Form("drvLicNum")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Previous Address: "
strBody = strBody & Request.Form("prevAddr") & chr(10)
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'###############################################################
'## Change yourname to reflect where the email is sent from ##
'###############################################################
objCDOMail.From = "yourname"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
%>
Thanks
Charles
Message #2 by charles kline <ckline@r...> on Wed, 31 Jul 2002 15:49:45 -0400
|
|
Detlef,
Thank you for your reply. I don't see the two samples, were they sent as an
attachment?
Thanks again,
Charles
On 7/31/02 3:41 PM, "Detlef Richter" <drichter@i...> wrote:
> Hi Charles,
>
> here are two samples. They should work - in Germany they worked ;-). I
> hope, that is what you need. Adjust the domains and variables.
>
> Use CDONTS under Win NT 4 and CDO under W2k and .Net
> Of course SMTP must be installed.
>
> Sorry my bad english.
>
> Greetings from Germany.
>
> D. Richter
> Internet- und Software-Haus Richter GmbH & Co. KG
> Hasselfeldstr. 13
> 30926 Seelze
>
>
> -----Urspr=FCngliche Nachricht-----
> Von: Charles Kline [mailto:ckline@r...]
> Gesendet: Mittwoch, 31. Juli 2002 18:30
> An: Access ASP
> Betreff: [access_asp] Sending mail via ASP
>
> Hi all,
>
> I have not done much ASP coding recently, and this is the first time I
> have
> needed to send any mail using ASP.
>
> I have trying to get this bit of code that I found on the net working,
> but
> mail is not going out.
>
> Anyone see any issues in the code?
>
> <!-- The code here -->
>
>
>
> <%
> Dim strTo, strSubject, strBody, who, myName, myEmail, fileNum, docNum,
> fName, lName, mName, generation, houseNum, direction, streetName,
> streetType, city, state, zip, ssn1, ssn2, ssn3, dob1, dob2, dob3,
> drvLicNum,
> prevAddr
> 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
> %>
>
>
> Thanks
> Charles
>
>
>
>
> to unsubscribe send a blank email to leave-access_asp-825068N@p...
m.
|
|
|
View Cart
