enviar meil con jmail

[Reportebrio]

:borracho:

Código:

	smtpServer = "smtp.tusitio.com"
	smtpPort = 25
	dim sender, subject, body, smtpServer, smtpPort
	' Now gets the data from Form
	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" ' or you can put 'text/plain' for plain text email 
	mail.ISOEncodeHeaders = false 
	mail.ContentTransferEncoding = "8bit"
	mail.Body = body
	' 1 - highest priority (Urgent) ' 3 - normal ' 5 - lowest 
	mail.Priority = 3
	' Add sender's IP address (not required, but useful for web-based email)
	mail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
	' Actually send mail
	mail.Execute 
	set mail = nothing

:borracho: