Send HTML formatted email from an uploaded HTML file

Taco · Apr 20, 2001

I have an asp page that is used to send out distribution lists. It consists of a MessageBox, a file upload box and some check boxes that are used for email only, fax only or HTML email. When you check off HTML email the code takes the HTML file you upload and writes that HTML to the body of the email. It works great for Outlook and some other email clients but not for AOL or web-based email accounts - they receive all of the HTML <TAGS> as the email message and no images. The code looks like this:

If HTMLChk = "on" then
Mailer.ContentType = "text/html"
If oUpl.IsEmpty = False Then
NewFileName = Mid(oUpl.UserFilename, InstrRev(oUpl.UserFilename, "\&quot

+ 1)
oUpl.SaveAs NewFileName
FileName2 = oUpl.ServerName
SendMessage = ""
Dim fObj, f
Set fObj = Server.CreateObject("Scripting.FileSystemObject&quot

if fObj.FileExists (FileName2) then
Set f = fObj.OpenTextFile(FileName2,1,FALSE,FALSE)
Do until f.AtEndOfStream = True
SendMessage = SendMessage & f.ReadLine & vbCrLf
Loop
end if
Set fOBj = nothing
End If

Any suggestions would greatly be appreciated. Marketing likes to send out the pretty emails. Thanks.

LnOrS · Apr 20, 2001

Hi,

I'm giving a suggestion... try to send a pure txt file with the same content of HTML as an attachement.

Regards,
Luís Silva

Mighty · Apr 23, 2001

Taco,

You could try using CDO to send the email. I have sent HTML emails using CDO and they appear fine in web based mail systems ( Hotmail and Ireland.com). This is a sample of some of my code:

Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail&quot

' This code assumes the above CDO instantiation code is included
objCDO.To = me@mywebaddress.com
objCDO.From = "pwadmin@myconpany.ie (Password Reminder)"
objCDO.bcc = "me@mycompany.com"

objCDO.Mailformat=0 ' Specifies HTML Message Format
objCDO.Bodyformat=0 ' Specifies HTML Message Format

Dim MailBody

MailBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD W3 HTML//EN"">"
MailBody = MailBody & "<HTML>" & vbcrlf
MailBody = MailBody & "<HEAD><TITLE>Client Area Password Reminder</TITLE></HEAD>"
MailBody = MailBody & "<BODY>" & vbcrlf
MailBody = MailBody & "Dear " & record.Fields("UserName&quot

& ",<BR><BR>"
MailBody = MailBody & "Your login details for the client area are as follows:<BR><BR>"
MailBody = MailBody & vbcrlf
MailBody = MailBody & "<TABLE BORDER=""0"" CELLSPACING=""2"">"
MailBody = MailBody & "<TR><TD><B>User ID:</B></TD><TD>" & record.Fields("UserID&quot

& "</TD></TR>"
MailBody = MailBody & "<TR><TD><B>Password:</B></TD><TD>" & record.Fields("Password&quot

& "</TD></TR>"
MailBody = MailBody & "</TABLE>Do not reply to this mail.</BODY></HTML>"

objCDO.Subject = "Client Interactive Area Login Details."
objCDO.Body = MailBody
objCDO.Send

Hope this is of some help. Mise Le Meas,

Mighty

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Send HTML formatted email from an uploaded HTML file

Taco

Programmer

LnOrS

Programmer

Mighty

Programmer

Similar threads

Part and Inventory Search

Sponsor