Código:
<%
'Empezamos el Arreglo
Dim ObjInstalados(4)
ObjInstalados(0) = "JMail.SMTPMail"
ObjInstalados(1) = "CDONTS.NewMail"
ObjInstalados(2) = "aspSmartMail.SmartMail"
ObjInstalados(3) = "Persits.MailSender"
ObjInstalados(4) = "CDO.Message"
'Luego podemos ir agregando mas objetos, segun los que necesitemos
Function cmpObjInstalados(strClassString)
On Error Resume Next
' Inicia Valores por Defecto
cmpObjInstalados = False
Err = 0
' Probamos
Dim PruebaObj
Set PruebaObj = Server.CreateObject(strClassString)
If 0 = Err Then cmpObjInstalados = True
' Limpiamos
Set PruebaObj = Nothing
Err = 0
End Function
'NUEVO: Aqui va, como ya es costumbre suya, lo pueden arreglar
If cmpObjInstalados(ObjInstalados(0))=True Then
'Aqui puede ir un include: inc/email_jmail.asp
ElseIf cmpObjInstalados(ObjInstalados(1))=True Then
'Aqui puede ir un include: inc/email_cdonts.aspElseIf cmpObjInstalados(ObjInstalados(2))=True Then
'Aqui puede ir un include: inc/email_aspsmartemail.asp
ElseIf cmpObjInstalados(ObjInstalados(3))=True Then
'Aqui puede ir un include: inc/email_aspemail.asp
ElseIf cmpObjInstalados(ObjInstalados(4))=True Then
'Aqui puede ir un include: inc/email_cdosys.asp
End If
%>
En teoria: si encuentra un objeto de los puestos en el array q esta instalado, llama un include donde se encuentra una funcion
enviaremail(parametros), q obviamente esta con ese nombre en todos los includes de los objetos para enviar emails... Ahora queda ver como hacemos para elegir un solo objeto si es q estan instalados dos o mas que hacen la misma funcion.