02-20-05 11:12 PM
Since you are using Exchange Server, you might want to post to the Exchange
newsgroup.
--
========================================
======
Thomas A. Rowe (Microsoft MVP - FrontPage)
WEBMASTER Resources(tm)
http://www.ycoln-resources.com
FrontPage Resources, WebCircle, MS KB Quick Links, etc.
========================================
======
To assist you in getting the best answers for FrontPage support see:
http://www.net-sites.com/sitebuilder/newsgroups.asp
"Glenn" <nospam@yahoo.com> wrote in message news:ehLht01FFHA.1476@TK2MSFTNGP09.phx.gbl...[vb
col=seagreen]
> Sure, here it is: (note that I changed my email to me@me.com in this posti
ng to avoid spam. In
> the actual code I have my real e-mail). I am sort of wondering if this pr
oblem could be because I
> am running an exchange server (2000) on my Windows 2000 server, and in IIS
there is no Default
> SMTP server listed (though I have one in Exchange).
>
>
>
> '=======================================
============================
> ' Send the results to e-mail.
> ' Use CDONTS to create and send a message based on information
> ' entered into the form. The following lines compose and send
> ' the e-mail.
> '=======================================
============================
>
> '=======================================
=============================
> ' Set up variables:
> ' myCDONTSMail = A CDONTS mail object.
> ' strFrom = A string containing the source e-mail address.
> ' strTo = A string containing the destination e-mail address.
> ' strSubject = A string containing the subject of the e-mail.
> ' strBody = A string containing the body of the e-mail.
> '=======================================
=============================
> Dim myCDONTSMail
> Dim strFrom
> Dim strTo
> Dim strSubject
> Dim strBody
>
> '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> ' Assign the source e-mail address. Change this to your e-mail
> ' address.
> '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> strFrom="me@me.com"
>
> '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> ' Assign the destination e-mail address. In this example, get the
> ' e-mail address from the form field called "EMail".
> ' You can customize this by removing the EMail form field and
> ' changing the following line to this:
> ' strTo="me@me.com" ? Change this to your e-mail
> ' address.
> '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> strTo=Request.Form("EMail")
>
> '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> ' The following line is the subject of the e-mail. You can change
> ' this to a subject that is customized to your liking.
> '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> strSubject = "Send to E-mail and Database"
>
> '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> ' The following lines create the body of the message. This can be
> ' anything you want it to be.
> '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> strBody="The following information was submitted:" & Chr(13)
> strBody = strBody & Request.Form("FirstName") & " "
> strBody = strBody & Request.Form("LastName")
> strBody = strBody & Chr(13) & Request.Form("Address") & Chr(13)
> strBody = strBody & Request.Form("City") & Chr(13)
> strBody = strBody & Request.Form("Region") & Chr(13)
> strBody = strBody & Request.Form("PostalCode") & Chr(13)
> strBody = strBody & Chr(13) & "Thank you for submitting your data."
>
> '=======================================
=============================
> ' The SET statement creates the CDONTS mail object in preparation
> ' for sending the e-mail message.
> '=======================================
=============================
> Set myCDONTSMail = CreateObject("CDONTS.NewMail")
>
> '=======================================
=============================
> ' The following line sends the mail message using the source e-mail,
> ' destination e-mail, subject, and body that were defined earlier.
> '=======================================
=============================
> myCDONTSMail.Send strFrom,strTo,strSubject,strBody
>
> '=== Set the CDONTS mail object to NOTHING to free resources.
> Set myCDONTSMail = Nothing
>
>
> '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
> ' For information about how to customize the rest of this page, see the
> ' Customizing the Confirmation Page section of this document. Sections
> ' that are discussed in the Customizations section are delimited
> ' by percent signs.
> '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>
> %>
>
> "Kathleen Anderson [MVP - FrontPage]" <spiderwebwoman@mvps.org> wrote
in message
> news:OBuXKw1FFHA.3732@TK2MSFTNGP14.phx.gbl...
>
>[/vbcol]
[ Post a follow-up to this message ]
|