Outlook 2007 not accepting HTML mail fra .asp forms

morten444 used Ask the Experts™
We have a cms running on our Windows 2000 Server using some .asp forms that are sent to the owners outlook 2007.
The problem is that when sending a mail with danish caracters it does not look right
If I send:
lærere går længre øst
It looks correct in Outlook 2003, Thunderbird and webmail

But in Outlook 2007 it looks like this:
lfrere ger lfngre xst

My Understanding is that Outlook 2007 is not able to show HTML mails the same way as the previous version and I therefore belive our form are sending in HTML and not Plain Text

We are using SoftArtisans.SMTPMail to send the form

My Question is that I have no clue where to start.
Is this a asp coding issue, setting in softartisans SMTPmail or something else.

I have attached an example of the form if that can give any idea where to look in order to get it to send in plain text instead of html

Hope anyone can help

Kind Regards
<!--#include file="UnQuote.inc"-->
<!--#include file="Connect.asp"-->
<!--#include file="killNonNum.asp" -->
If IsNumeric(Request("FormID")) then
	set rs = Conn.Execute("SELECT * FROM tblForm WHERE FormID = " & killNonNum(Request("FormID"),0) & "")
	set rsField = Conn.Execute("SELECT * FROM tblFormField WHERE FormID = " & killNonNum(Request("FormID"),0) & "")
	response.Redirct "Default.asp"
end if	
if not IsEmpty(Request.Form("Submit")) then
	' Mail bliver sendt
  	Set mailer = Server.CreateObject("SoftArtisans.SMTPMail")
	rem ------------------------------------
  	rem - Get  version number
 	rem ------------------------------------
  	strVer = Mailer.Version	
  	mailer.RemoteHost = "smtp.mvb.net"
  		mailer.FromAddress = "no-reply@e-advice.dk"			
 	mailer.AddRecipient "" , rs("MailAdress")
  	mailer.Subject = "Request from Web form"
  		'Løber alle formfelter i gennem
  		For Each x in Request.Form
  			Content = Content & x & vbCrLf & Request.Form(x)& vbCrLf & vbCrLf
  	mailer.BodyText = Content
  	rem ----------------------------------------------------
  	rem -- Sends the message and  verify if it has been sent.
  	rem -----------------------------------------------------
	strErr = ""
  	If mailer.SendMail then 
     		strErr = NewLine(rs("ConfirmText"))
     		strErr = "Mail failure." & mailer.response
  	End If	
  	set mailer = nothing
end if
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="style.asp">
		function NewWindow(id) {
			Slidesshow = window.open(id, 'Slidesshow', 'width=350, height=500')
<body topmargin="0" leftmargin="0">
<!-- #include file="head.asp" -->
<br />
<div id="Ramme">
<table border="0" width="100%" cellspacing="0" cellpadding="0" style="border-bottom-style: solid">
    <td class='side' width="120">
      <div align="center">
      <table border="0" width="500" cellspacing="1" cellpadding="10" bgcolor="#000000">
          <td width="100%" bgcolor="#DDDDDD">
        if isempty(Request("Submit")) then
        	If Session("YouAreIn") = TRUE THEN
    			Response.Write "<a href='Editors/EditForm.asp?FormID=" & rs("FormID") & "'>Edit form</a>"
    		end if
			Response.Write rs("IntroText")
			Response.Write "<div align='center'>"
			Response.Write "<table border='0' width='350' cellspacing='0' cellpadding='0'><tr>"
			Response.Write "<form method='POST' action='FormPage.asp'>"
			Do until rsField.EOF
				if rsField("FieldType") = "Text" then
					Response.Write "<p>" & rsField("FieldLabel") & ":<br><input type='text' size='60' name='" & rsField("FieldName") & "'></p>"
					Response.Write "<p>" & rsField("FieldLabel") & ":<br><textarea rows='4' cols='45' name='" & rsField("FieldName") & "'></textarea></p>"
				end if
			Response.Write "<p align='center'><input type='submit' value='Send' name='Submit'></p>"
			Response.Write "<input type='hidden' name='FormID' value='" & killNonNum(request("FormID"),0) &"'>"
			Response.Write "</form>"
			Response.Write "<td width='100%'></td></tr></table>"
			Response.Write "</div>"
			Response.Write "<h2>" & strErr & "</h2>"
		end if	
<!-- #include file="bund.asp" -->

Open in new window

Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Expert of the Year 2008
Top Expert 2008

Set mailer = Server.CreateObject("SoftArtisans.SMTPMail")
If that still doesn't help, try using an alternate email solution:

Open in new window


Sorry for delay. Thanks for reply.
I will test that out and come back to you shortly

Kind Regards


Thanks again for your answer
I did not get it to work with text/plain but your answer led me in the right direction.
As this is danish letters i added the line:
mailer.CustomCharSet = "x-EBCDIC-DenmarkNorway"

And then it works

Thanks again

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial