Tema: enviar email
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 02/03/2002, 17:59
ToKaTa
 
Fecha de Ingreso: marzo-2001
Ubicación: Gran Canaria
Mensajes: 381
Antigüedad: 24 años, 2 meses
Puntos: 2
Re: enviar email

Intenta con el objeto para enviar correo de Persists, a ver si lo tienen instalado:

Set Mail = Server.CreateObject("Persits.MailSender" )
Mail.Host = "mail.tuservidor.es"
Mail.Port = 25

Mail.From = "[email protected]"
Mail.FromName = "Nombre del que lo envia"
Mail.AddAddress "[email protected]"
Mail.Subject = "esto es una prueba"
Mail.Body = "este es el cuerpo del mensje"
Mail.IsHTML = True
On Error Resume Next
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If



Saludos.




ToKaTa.