Detects mail servers available by returning number of available mail servers and names.
Number of mail servers supported along with list of Main servers
Originally by: Cenk Yurtseven
Edit: 2024-01-01: Adding CDO and ASPClassic mail
Function DetectEmailServers()
' Returns Number of mail servers supported along with list of Main servers, like below...
' N||Mail1||Mail2||Mail3||
Dim sql_control, sql_con_trol
sql_con_trol = 0
Rett = ""
Sepa = "||"
On Error Resume Next
Set sql_control = CreateObject("VSEmail.SMTPSendMail")
if Err = "" Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "VSEmail"
End if
Err.Clear
Set sql_control = CreateObject("Persits.MailSender")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "ASPEmail"
End if
Err.Clear
Set sql_control = Server.CreateObject("CDONTS.NewMail")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "CDONTS"
End if
Err.Clear
Set sql_control = Server.CreateObject("SMTPsvg.Mailer")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "ASPMail"
End if
Err.Clear
Set sql_control = Server.CreateObject("JMail.SMTPMail")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "JMail 3.7"
End if
Err.Clear
Set sql_control = Server.CreateObject("JMail.Message")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "JMail 4.1"
End if
Err.Clear
Set sql_control = Server.CreateObject("Dynu.Email")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "Dynu Mail"
End if
Err.Clear
Set sql_control = Server.CreateObject("ADISCON.SimpleMail.1")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "Simple Mail"
End if
Err.Clear
Set sql_control = Server.CreateObject("ASPMail.ASPMailCtrl.1")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "OCXMail"
End if
Err.Clear
Set sql_control = Server.CreateObject("AspClassicMail.Message")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "ASPClassicMail"
End if
Err.Clear
Set sql_control = Server.CreateObject("CDO.Message")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "CDOMail"
End if
Err.Clear
if sql_con_trol > 0 Then
Rett = sql_con_trol & Sepa & Rett
End If
DetectEmailServers = Rett
End Function
' Returns Number of mail servers supported along with list of Main servers, like below...
' N||Mail1||Mail2||Mail3||
Dim sql_control, sql_con_trol
sql_con_trol = 0
Rett = ""
Sepa = "||"
On Error Resume Next
Set sql_control = CreateObject("VSEmail.SMTPSendMail")
if Err = "" Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "VSEmail"
End if
Err.Clear
Set sql_control = CreateObject("Persits.MailSender")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "ASPEmail"
End if
Err.Clear
Set sql_control = Server.CreateObject("CDONTS.NewMail")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "CDONTS"
End if
Err.Clear
Set sql_control = Server.CreateObject("SMTPsvg.Mailer")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "ASPMail"
End if
Err.Clear
Set sql_control = Server.CreateObject("JMail.SMTPMail")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "JMail 3.7"
End if
Err.Clear
Set sql_control = Server.CreateObject("JMail.Message")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "JMail 4.1"
End if
Err.Clear
Set sql_control = Server.CreateObject("Dynu.Email")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "Dynu Mail"
End if
Err.Clear
Set sql_control = Server.CreateObject("ADISCON.SimpleMail.1")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "Simple Mail"
End if
Err.Clear
Set sql_control = Server.CreateObject("ASPMail.ASPMailCtrl.1")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "OCXMail"
End if
Err.Clear
Set sql_control = Server.CreateObject("AspClassicMail.Message")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "ASPClassicMail"
End if
Err.Clear
Set sql_control = Server.CreateObject("CDO.Message")
if Err = 0 Then
sql_con_trol = sql_con_trol + 1
If Rett > "" Then Rett = Rett & Sepa
Rett = Rett & "CDOMail"
End if
Err.Clear
if sql_con_trol > 0 Then
Rett = sql_con_trol & Sepa & Rett
End If
DetectEmailServers = Rett
End Function
3||ASPEmail||JMail 3.7||JMail 4.1
Views 3,651
Downloads 1,294
CodeID
DB ID
ANmarAmdeen
602
Revisions
v3.0
Monday
January
1
2024
Tags
mail server mailserver mail server VSEmail.SMTPSendMail VSEmail SMTPSendMail Persits.MailSender Persits MailSender ASPEMail CDONTS.NewMail CDONTS NewMail SMTPsvg.Mailer SMTPsvg Mailer ASPMail JMail.SMTPMail JMail SMTPMail JMail 3.7 JMail.Message JMail Message JMail 4.1 Dynu.Email Dynu Dynu mail ADISCON.SimpleMail ADISCON SimpleMail ASPMail.ASPMailCtrl ASPMail ASPMailCtrl OCXMail NotMyWork