
12/11/2002, 09:18
|
 | Colaborador | | Fecha de Ingreso: abril-2001
Mensajes: 353
Antigüedad: 23 años, 11 meses Puntos: 2 | |
he aqui uno:
smtpServer = "smtp.tupagina.com"
smtpPort = 25
dim sender, subject, body, smtpServer, smtpPort
sender = Request.Form("TuMail")
receiver = Request.Form("MailFriend")
subject = Request.Form("TuName")
body = Request.Form("txtMessage")
Set mail = CreateObject ("JMail.SMTPMail")
mail.ServerAddress = smtpServer & ":" & smtpPort
mail.Sender = sender
mail.Subject = subject
mail.AddRecipient receiver
mail.ContentType = "text/html"
mail.Body = body
mail.Execute
set mail = nothing
Espero te sirva
Saludos |