Ver Mensaje Individual
  #4 (permalink)  
Antiguo 01/02/2002, 10:27
legolas
 
Fecha de Ingreso: agosto-2001
Mensajes: 399
Antigüedad: 23 años, 8 meses
Puntos: 0
Re: enviar e_mail

Hola, de CDONTS no sé mucho, ya que es muy limitado e inseguro. Te dejo este código que es para utilizar una componente llamada aspsmartemail, que funciona perfecto:

function enviaraviso(nombre,fono,correo,cuerpo)
On error resume next
set email = Server.CreateObject("aspSmartMail.SmartMail&q uot;)
email.Server = "172.16.1.2"
'mySmartMail.SenderName = Request("SenderName")
email.SenderAddress = "[email protected]"
email.Recipients.Add "[email protected]"
email.Priority = 2
CLRF = Chr(13) & Chr(10)
minombre="Hola mi nombre es "&nombre
mifono=" mi teléfono es "&fono
if correo<>"0" then
micorreo=" y mi correo "&correo
end if
Texto = CLRF & "Te contacto porque "&cuerpo
email.Subject = "Consulta desde Monitoreo de conexiones conmutadas (Subtel)"
email.Body = minombre & mifono & micorreo & texto
email.SendMail
if err.number <> 0 then
response.write("Error n° " & err.number - vbobjecterror & " = " & err.description & "<br>")
end if
set email = nothing
end function

saludos ;)