Ver Mensaje Individual
  #4 (permalink)  
Antiguo 24/03/2006, 09:52
Avatar de richardinj
richardinj
 
Fecha de Ingreso: enero-2005
Ubicación: Ciber Espacio
Mensajes: 2.180
Antigüedad: 21 años, 9 meses
Puntos: 11
bueno lo saque de por ahi....

Código PHP:
<%
DIM strEmail, strFirstName, strLastName, strSubject, strComments, Mailer
strEmail 
= "[email protected]"' Remitente
strFirstName = "Richard"
strLastName = "Injante" 
strSubject = "Bienvenido, Hola Mundo! "
strComments = "El siguiente dato es para avisarle que..."
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.dominio.com:25"
JMail.AddRecipient "[email protected]" ' 
Destinatario
JMail
.Sender = strEmail
JMail
.Subject = strSubject
JMail
.Body = strComments
JMail
.Execute
Set JMail
= Nothing
IF NOT JMail.Execute THEN
Response
.Write( "ERROR MESSAGE: " & JMail.ErrorMessage & "<BR>" & vbcrlf )
Response.Write( "ERROR SOURCE: " & JMail.ErrorSource & "<BR>" & vbcrlf )
Response.Write( "LOG: <pre>" & JMail.Log & "</pre>" & vbcrlf )
ELSE
Response.Write "<blockquote>Your :<b>" & strSubject & "</b> Newsletter has been successfully sent to <b>" & intSubscribers & "</b> subscribers.</blockquote>"
END IF
%>