<%
On Error Resume Next
err.clear
If Len(Request.Form("flag")) > 0 then
sendTo = Request.Form("T1")
sendFrom = notify_email
eSubject = "Test Email Using "
eFlag = Request.Form("flag")
eSubject = "Test Email form Administration Check page using " & Ucase(eFlag)
Select Case eFlag
Case "cdonts"
Set oEmail = Server.CreateObject("CDONTS.NewMail")
With oEmail
.From = web_name & "<" & sendFrom & ">"
.To = sendTo
.Subject = eSubject
If isHTML then
.MailFormat = 0
Else: .MailFormat = 1
End If
.BodyFormat = 0
.Body = eSubject
.Importance = 1
.Send
Set oEmail = Nothing
End With
Case "cdosys"
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
If not mailHost = Empty then
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
With objCDOSYSCon
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailHost
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
If not SMTPID = Empty then
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPID
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPPAss
End If
.Fields.Update
End With
Set objCDOSYSMail.Configuration = objCDOSYSCon
End If
With objCDOSYSMail
.From = web_name & "<" & sendFrom & ">"
.Sender = notify_email
.To = sendTo
.Subject = eSubject
If isHTML then
.HTMLBody = eSubject
Else: .TextBody = eSubject
End If
.Send
End With
Set objCDOSYSMail = Nothing
Case "jmail"
Set jmail = Server.CreateObject("JMail.Message")
With jmail
.Logging = False
.Silent = True
.AddRecipient sendTo, "Test"
.FromName = web_name
.From = sendFrom
.Subject = eSubject
If isHTML then
.HTMLBody = eSubject
Else: .Body = eSubject
End If
.Priority = 3
If not SMTPID = Empty then
.MailServerUserName = SMTPID
.MailServerPassWord = SMTPPass
End If
.Send(mailHost)
End With
Set jmail = Nothing
Case "aspmail"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
With Mailer
.FromName = web_name
.FromAddress = sendFrom
.RemoteHost = mailHost
.AddRecipient "Test", sendTo
.ReturnReceipt = false
.ConfirmRead = false
.Subject = eSubject
If isHTML then .ContentType = "text/html"
.BodyText = eSubject
.SendMail
End With
Set Mailer = Nothing
Case "aspemail"
Set Mailer = Server.CreateObject("Persits.MailSender")
With Mailer
.FromName = web_name
.From = sendFrom
.Host = mailHost
.AddAddress sendTo, "Test"
.Subject = eSubject
If isHTML then .IsHTML = True
.Body = eSubject
If not SMTPID = Empty then
.Username = SMTPID
.Password = SMTPPass
End If
.Send
End With
Set Mailer = Nothing
Case "aspjpeg"
End Select
If eFlag = "aspjpeg" then
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If err.number = 0 then
If CDate(Jpeg.Expires) > Now then isASPJpeg = True
End If
If isASPJpeg then
Set Jpeg = Nothing
%>
| |
ASPJpeg Component Test
|
| Original Image: |
 |
| Resized Image: |
 |
<%
Else: Response.Write "
ASPJpeg is not installed or Expired.
"
End If
Else
Response.Write "
Email Test Status:
"
If err.number <> 0 then
Response.Write "Test Email using
" & Ucase(eFlag) & " Failed.
Error Number: "
Response.Write err.number & "
Error Description: " & err.description & "
"
Else
Response.Write "Test Email using
" & Ucase(eFlag) & " has been sent to:
" & sendTo & ""
Response.Write "If you did not receive this email in the next few minutes:
"
End If
Response.Write "
1. Check the component ""Status"" in the table above as well as component Expiration Date."
Response.Write "
2. Check for proper email configuration at the ""Admin Preferences"" page."
Response.Write "
3. Some hosts require SMTP authentication - ID/Password specified. Make sure to indicate those in ""Admin Preferences"" page."
Response.Write "
4. Contact your host for further details about email components availability and status"
End If
End If
Call Build_Box_Bottom("")
%>