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: 19 años, 9 meses
Puntos: 11
bueno lo saque de por ahi....

Código PHP:
<%
DIM strEmailstrFirstNamestrLastNamestrSubjectstrCommentsMailer
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
%>