Enviar e-mails

[movil]

Hola a todos!

Quiero poder enviar un mail mediante asp, pero no se si tengo que inicializar algo, algun servicio o si funciona sin mas, poniendo un codigo.

Muchas gracias

[El_Metallick]

Para enviar email es necesario un componente... si no sabes cual tienes instalado o cual tiene instalado tu servidor, ejecuta este código:

Código:

<%
'Empezamos el Arreglo
Dim ObjInstalados(9)
ObjInstalados(0) = "CDONTS.NewMail" 'Si el componente es CDONTS
ObjInstalados(1) = "CDO.Message" 'Si el componente es CDOSYS
ObjInstalados(2) = "SMTPsvg.Mailer" 'Si el componente es AspMail
ObjInstalados(3) = "Persits.MailSender"	'Si el componente es AspEmail
ObjInstalados(4) = "Geocel.Mailer"	'Si el componente es Geocel
ObjInstalados(5) = "JMail.SMTPMail"	'Si el componente es JMail
ObjInstalados(6) = "Dynu.Email"	'Si el componente es DynuEmail
ObjInstalados(7) = "EasyMail.SMTP.5"	'Si el componente es EasyMail
ObjInstalados(8) = "SoftArtisans.SMTPMail"	'Si el componente es SA-SMTPMail
ObjInstalados(9) = "ocxQmail.ocxQmailCtrl.1"	'Si el componente es ocxQmail
'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
If cmpObjInstalados(ObjInstalados(0))=True Then
'Lo que quieras que pase
ElseIf cmpObjInstalados(ObjInstalados(1))=True Then
'Lo que quieras que pase
ElseIf cmpObjInstalados(ObjInstalados(2))=True Then
'Lo que quieras que pase
ElseIf cmpObjInstalados(ObjInstalados(3))=True Then
'Lo que quieras que pase
ElseIf cmpObjInstalados(ObjInstalados(4))=True Then
'Lo que quieras que pase
ElseIf cmpObjInstalados(ObjInstalados(5))=True Then
'Lo que quieras que pase
ElseIf cmpObjInstalados(ObjInstalados(6))=True Then
'Lo que quieras que pase
ElseIf cmpObjInstalados(ObjInstalados(7))=True Then
'Lo que quieras que pase
ElseIf cmpObjInstalados(ObjInstalados(8))=True Then
'Lo que quieras que pase
ElseIf cmpObjInstalados(ObjInstalados(9))=True Then
'Lo que quieras que pase
Else
Response.Write ("No hay componentes")
End If
%>

Ahi te va a decir si tienes un componente instalado y cual es... si no tienes ninguno puedes buscarlos en las webs correspondientes que las puedes ver en este topico http://www.forosdelweb.com/showpost....&postcount=120, de igual forma ahi sale como se utiliza cada uno... cualquier duda posteala aca... saludos