<%@Language="VBScript"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "User" Dim Nav3 : Nav3 = "1" %> <% On Error Resume Next Response.Buffer = True Server.ScriptTimeout = 500 Dim theComponent(6) Dim theComponentName(6) theComponent(0) = "SMTPsvg.Mailer" theComponent(1) = "SMTPsvg.Mailer" theComponent(2) = "Persits.MailSender" theComponent(3) = "CDONTS.NewMail" theComponent(4) = "CDONTS.NewMail" theComponent(5) = "Jmail.smtpmail" theComponent(6) = "SoftArtisans.SMTPMail" theComponentName(0) = "ASPMail" theComponentName(1) = "ASPQMail" theComponentName(2) = "ASPEMail" theComponentName(3) = "CDONTS" theComponentName(4) = "Chili!Mail" theComponentName(5) = "JMail" theComponentName(6) = "SA-Smtp Mail" Function IsObjInstalled(strClassString) IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function If Request.Form("action") = "mailer_test" Then ToEmail = Request.Form("ToEmail") ToName = Request.Form("ToName") FromEmail = Request.Form("FromEmail") FromName = Request.Form("FromName") MailerPath = Request.Form("MailerPath") MailerPort = "25" Format = "Text" If (Request("MailerPort") <> "") Then MailerPort = Request("MailerPort") Dim Subject : Subject = "Mailer Program Component Test" Dim Message2 : Message2 = VbCrLf & VbCrLf & "This email has been sent as a Mailer Program test for the above named component. " & VbCrLf & VbCrLf Message2 = Message2 & "To Name: " & ToName & VbCrLf Message2 = Message2 & "To Email: " & ToEmail & VbCrLf Message2 = Message2 & "From Name: " & FromName & VbCrLf Message2 = Message2 & "From Email: " & FromEmail & VbCrLf Message2 = Message2 & "Mailer Path: " & MailerPath & VbCrLf Message2 = Message2 & "Port Number: " & MailerPort & VbCrLf & VbCrLf Message2 = Message2 & "If you have received this email, then the mailer component is functioning properly. Please use the settings listed above for configuring the Spd E-Letter. If you believe you have reached this email in error, then please just disregard. " Message2 = Message2 & VbCrLf & VbCrLf & "Sent from the Spd E-Letter v" & MLVersion & " Administration Panel on " & Now & "." If Request("CDONTS") = "Y" Then Message = "Mailer Component = CDONTS" & Message2 Results = CDONTS_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, CCEmail, ReplyTo) End If If Request("ASPMail") = "Y" Then Message = "Mailer Component = ASPMail" & Message2 Results = ASPMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, CCEmail, ReplyTo) End If If Request("ASPQMail") = "Y" Then Message = "Mailer Component = ASPQMail" & Message2 Results = ASPQMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, CCEmail, ReplyTo) End If If Request("JMail") = "Y" Then Message = "Mailer Component = JMail" & Message2 Results = JMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, CCEmail, ReplyTo) End If If Request("SASmtpMail") = "Y" Then Message = "Mailer Component = SA-SmtpMail" & Message2 Results = SASmtpMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, CCEmail, ReplyTo) End If If Request("ASPEmail") = "Y" Then Message = "Mailer Component = ASPEMail" & Message2 Results = ASPEMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, CCEmail, ReplyTo) End If msg = "1" End If %> <%=ListName%> - Spd E-Letter Administration

Mailer Program Test
Sometimes a server may accept the CreateObject variable showing that the component is installed. This does not necessarily mean it is set up and functioning properly. To ensure which mailer programs are functioning, please fill out the form below. A sample email will be sent to the specified email address for each mailer component supported by the Spd E-Letter. If the email is never received, then the mailer component may not be configured properly. Contact your host in that case.

<% If msg = "1" Then %>

The Email Test has been completed. Please check your email box for new emails. Please allow up to 15 minutes or more for email messages to arrive.

<% End If %>

CDONTS <% If Not IsObjInstalled(theComponent(3)) Then %> Not Installed <% Else %> Installed <% End if %>
ASPMail <% If Not IsObjInstalled(theComponent(0)) Then %> Not Installed <% Else %> Installed <% End if %>
ASPQMail <% If Not IsObjInstalled(theComponent(1)) Then %> Not Installed <% Else %> Installed <% End if %>
JMail <% If Not IsObjInstalled(theComponent(5)) Then %> Not Installed <% Else %> Installed <% End if %>
SA-SmtpMail <% If Not IsObjInstalled(theComponent(6)) Then %> Not Installed <% Else %> Installed <% End if %>
ASPEmail <% If Not IsObjInstalled(theComponent(2)) Then %> Not Installed <% Else %> Installed <% End if %>

Make sure you use a valid To Email Address or you will never receive any emails from this portion of the test. All fields are required.
To Email Address: (ex: John@domain.com)
To Name: (ex: John Doe)
From Email Address: (ex: John@domain.com)
From Name: (ex: John Doe)
Mailer Path: (ex: mail.yourdomain.com)
Mailer Port: (25 by default, for JMail only):