DetectEmailServers

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

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
 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 332 Downloads 96

'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'