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
