jmail

[monkyta]

Yo armo todo y despues llamo a una funcion para mandar el email con JMAIL... este link aparece perfecto en el correo y al dar click en el te lleva al sitio indicado

CuerpoMensaje = CuerpoMensaje & "Le recordamos que nuestro Sitio es http://www.xxxxxxxxx.cl" & vbcrlf

envia_correo titmsg,destinatario,dedonde, CuerpoMensaje

<%
Sub envia_correo ( Subject, Recipient, Sender, byref Body )
'--------------
dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "xxx.xx.xx.xxx:25"
JMail.SenderName = "WEB " & Application("dc_emp")
JMail.Sender = Sender

JMail.Subject = Subject


JMail.AddRecipient Recipient
JMail.Body = Body
JMail.Priority = 3
JMail.Execute

end sub
%>