Forum Moderators: open
I am using this as the script
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "awebpage", false
objHTTP.Send
'Response.Write objHTTP.ResponseText
'send mail
Dim strHTML
strHTML = "<html><head><title>" & request.servervariables("server_name") & "</title>"
'strHTML = strHTML & "<meta http-equiv=""Content-Language"" content=""en-gb"">"
strHTML = strHTML & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1""></head>"
strHTML = strHTML & "<body>"
strHTML = strHTML & objHTTP.ResponseText
strHTML = strHTML & "<a href=""somewebpage"">Remove Me</a>"
strHTML = strHTML & "</body></html>"
'Set up the email object
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
With objMail
.from = "email"
.To = "email"
.Subject = "subject"
.BodyFormat = 0 'CdoBodyFormatHTML
.MailFormat = 0 'CdoMailFormatMime
.Body = strHTML
.Send
End With
Set objMail = Nothing
%>
If you're trying to send an HTML 'page' in the e-mail body, then you're likely up against character-set and character-encoding problems, and the likely solution is sending the correct MIME-type headers along with the message.
Unfortunately, that's all I know or can guess about the problem here... I don't send HTML-formatted e-mail or complex URLs, myself.
Jim