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
Edit: 2024-01-01: Adding CDO and ASPClassic mail

CodeFunctionName
What is this?

Public

Not Tested

Imported
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

3||ASPEmail||JMail 3.7||JMail 4.1

Views 3,651

Downloads 1,294

CodeID
DB ID