envio de correos con CDO respetando las tildes y eñes.

[lexus]

Hola,

actualmente envio mis correos con CDO,
pero no me esta permitiendo enviar acentos tildes, eñes
como puedo hacer que mis correos lleguen con los acentos como debe ser?



Dim sendUrl, smtpUrl, objConfig, objMail
sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"

Código:

	
       'Set the mail server configuration
	Set objConfig=CreateObject("CDO.Configuration")
	objConfig.Fields.Item(sendUrl)=2 'cdoSendUsingPort
	objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
	objConfig.Fields.Update
	Set objMail=CreateObject("CDO.Message")
	Set objMail.Configuration = objConfig
	objMail.From = email  
	objMail.To = correo_corporativo
	objMail.ReplyTo = email
	objMail.Subject = "Feedback"
	objMail.HTMLBody = strBody
	objMail.Send
	set objConfig = nothing
	Set objMail = nothing