
| |||
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 %> |