24/03/2006, 09:52
|
| | | 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 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 %>
|