cdo mail utf-8 issue

g3t · November 21st, 2013, 11:52 AM

Hi

I know that there alot of threads out there on this issue but I couldnt seem to get any of them to work.

Im very new to using asp so not sure how to figure this one out.

I just need the returned email to interpret foreign characters.

thanks for any help on this.

Code:


if request.form("Postback")="1" then
	dim title, titleError,Marke,MarkeError,Modell,ModellError,Company,CompanyError,Telephone,TelephoneError,Mobile,MobileError,Province,ProvinceError,IProductError,IHow,IHowError
	dim FormError
	FormError=0
	
	title=safetext(request.Form("title"))
	Marke=safetext(request.Form("Marke"))
	Modell=safetext(request.Form("Modell"))
	Company=safetext(request.Form("Company"))
	Zip=safetext(request.Form("Zip"))
	Ort=safetext(request.Form("Ort"))
	Province=safetext(request.Form("Province"))
	Telephone=safetext(request.Form("Telephone"))
	Mobile=safetext(request.Form("Mobile"))
	Email=safetext(request.Form("Email"))
	IProduct=safetext(request.Form("IProduct"))
	IHow=safetext(request.Form("IHow"))
	
	
	if FormError=0 then
		Dim MyBody
		
		MyBody="<html>"
		
		MyBody=MyBody & "Datum: " & date() & " " & time & "<br>"
		MyBody=MyBody & "Anrede: " & title & "<br>"
		MyBody=MyBody & "Vorname: " & Marke & "<br>"
		MyBody=MyBody & "Nachname: " & Modell & "<br>"
		MyBody=MyBody & "Firma: " & Company & "<br>"	
		MyBody=MyBody & "Postleitzahl: " & Zip & "<br>"	
		MyBody=MyBody & "Ort: " & Ort & "<br>"	
		MyBody=MyBody & "Provincia: " & Province & "<br>"	
		MyBody=MyBody & "Telefon: " & Telephone & "<br>"
		MyBody=MyBody & "MÃ³vil : " & Mobile & "<br>"	
		MyBody=MyBody & "Email: " & Email & "<br>"	
		MyBody=MyBody & "Producto: " & IProduct & "<br><br>"		
	
		MyBody = MyBody & "IP:"  & Request.ServerVariables("REMOTE_ADDR") 

		'SUBMI FORM
		Set MyMail = Server.CreateObject("JMail.SMTPMail")
		MyMail.Charset = "utf-8" 

		MyMail.ServerAddress = "10.44.41.150"
		MyMail.Sender = "[email protected]"
		MyMail.AddRecipient "[email protected]"
	
		
		'... MyMail.AddRecipient MyEmail '... person who sent the form
		MyMail.Subject = "ES Contact Form"
		MyMail.HTMLBody = MyBody
			MyMail.Execute
		Set myMail=nothing
		
		
		Response.Redirect("?Sent=Yes&Product=" & server.URLEncode(IProduct))
	end if
	
end if