|
Per a few requests to post to the
group..........
Randy Armbrecht
Global Web Solutions, Inc. (804) 346-5300 (877) 800-GLOBAL ----- Original Message -----
From: Randy Armbrecht
To: Heckler
Sent: Monday, October 16, 2000 11:38 PM
Subject: Re: Imail List & FORMS Peter ,
This is a real simple script......I have removed
our server names, etc from code - thereby generalizing it - and tried
to be as explanative as possible in the remarks....let me know if you have any
questions with it by emailing me direct...
the mail component is set as J-Mail (our
preference), but also includes remed code for CDONTS and ASPMail - 2 other
popular NT server ASP mail components - you will need to determine what mail
component is installed on your server.
let us know if you have any
questions....
Randy Armbrecht
Global Web Solutions, Inc. (804) 346-5300 (877) 800-GLOBAL
|
type your email address below
to be added to our mailing list!
<%
'*****BUILD MAIL MESSAGE*****'
'The following variables are pretty self-explanatory - change as required:
'mailserver = your SMTP server
'primary = the subscribe address for your list - IMPORTANT TO BE SETUP CORRECTLY ON LIST SVR
'secondary = a secondary address - such as yours - if you wish to be notified of list signup
'customer = field needs to match email form field from html page - this is the email address that is being added to your list
'subject = simply the subject of email message sent to secondary address
MAILSERVER = "your.mailserver.com"
PRIMARY = "[EMAIL PROTECTED]"
SECONDARY = "[EMAIL PROTECTED]"
CUSTOMER = Request.Form("email")
SUBJECT = "Your Name Newsletter Signup"
BODY1 = "The following user ( " & Request.Form("email") & " ) has signed up for the Your Name Newletter"
'jmail component
Set Mailer = Server.CreateObject("JMail.SMTPMail")
Mailer.ServerAddress = MAILSERVER
Mailer.Sender = CUSTOMER
Mailer.AddRecipientEx PRIMARY, PRIMARY
Mailer.AddRecipientEx SECONDARY, SECONDARY
Mailer.Subject = SUBJECT
Mailer.Body = BODY1
Mailer.Execute
Set Mailer = nothing
' for those servers who use cdonts - rem out above mailer code and un-rem the following lines
' Set Mailer = Server.CreateObject("CDONTS.NewMail")
' Mailer.MailFormat = 0
' Mailer.To = PRIMARY
' Mailer.Bcc = SECONDARY
' Mailer.From = CUSTOMER
' Mailer.Subject = SUBJECT
' Mailer.Body = BODY1
' Mailer.Send
' Set Mailer = nothing
' for those servers who use aspmail - rem out above mailer code and un-rem the following lines
' Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
' Mailer.QMessage = TRUE
' Mailer.RemoteHost = MAILSERVER
' Mailer.AddRecipient PRIMARY, PRIMARY
' Mailer.AddRecipient SECONDARY, SECONDARY
' Mailer.FromAddress = CUSTOMER
' Mailer.FromName = CARD_NAME
' Mailer.Subject = SUBJECT
' Mailer.BodyText = BODY1
' Mailer.SendMail
' Set Mailer = Nothing
'************ Redirect user to Home Page or Thank You Page **************'
Response.Redirect "your-home-page-or-thank-you-page.htm"
%>
