im sending a html email through my miler object.
when i dont include an attachment it works fine, but when i do the message arrives as plain text.
here is the code on the page.
V_HTML = "<html>"
V_HTML = V_HTML+ "<head>"
V_HTML = V_HTML+ "</head>"
V_HTML = V_HTML+ "<body bgcolor='#ffffff'>"
V_HTML = V_HTML+ "<font color='red'>"
V_HTML = V_HTML+ "hahahahahahahahah"
V_HTML = V_HTML+ "</font>"
V_HTML = V_HTML+ "</body>"
V_HTML = V_HTML+ "</html>"
mailto = "dave"
mailattach = ("C:\Inetpub\wwwroot\orion\scripts\test.doc")
V_MAIL_RESULT = SendHtmlMail("your manager",mailtoaddress,"Leave Authorisation Request [EDIT]",V_HTML,mailattach)
and the function
<%
Function SendHtmlMail(mailto,mailtoaddress,subject,mailtext,mailattach)
If Trim(mailtoaddress) <> "" Then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
rem change this RemoteHost to a valid SMTP address before testing
Mailer.RemoteHost = "smtp.intra.bt.com"
Mailer.FromName = "BILLING SOLUTIONS"
Mailer.FromAddress = "[email protected]"
Mailer.AddRecipient mailto,mailtoaddress
Mailer.Subject = subject
Mailer.BodyText = mailtext
Mailer.ContentType = "text/html"
if trim(mailattach) <> "" then
Mailer.AddAttachment mailattach
end if
if not Mailer.SendMail then
SendhtmlMail = " failed... Error is: <br>" & Mailer.Response
else
SendhtmlMail = "Email sent successfully to "+mailto+" ["+mailtoaddress+"]"
end if
Set Mailer = Nothing
Else
SendhtmlMail = "No email address available! mail not sent."
End If
End Function
%>
