We don't allow attachments on P2P at all.  They'll be filtered out along
with MIME info now.

Stephen

"charles kline" <ckline@r...> wrote in message
news:199803@a..._asp...

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ü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
>
>
>
>