Objeto CDO
Hola,
Estoy utilizando el objeto CDO para enviar un mail, pero no sé por qué me elimina las letras con acentos. He mirado las opciones de configuración y lo único que he visto es la de languagecode, que aunque la pongo = "es" no sirve de nada.
Si sabes algo del tema...
Gracias
Estoy utilizando el objeto CDO para enviar un mail, pero no sé por qué me elimina las letras con acentos. He mirado las opciones de configuración y lo único que he visto es la de languagecode, que aunque la pongo = "es" no sirve de nada.
Si sabes algo del tema...
Gracias
2 respuestas
Respuesta de fcastror
1
Siento no servirte de ayuda, nunca he usado en CDO, no sabría decirte como solucionarlo.
Finaliza tu pregunta.
Respuesta de smunoz
1
El siguiente código ASP a ver si te ayuda:
<%
Const cdoSendUsingPort = 2
iServer = "<SMTPServer>" 'Servidor SMTP'
set iMsg = Server.CreateObject("CDO.Message")
set iConf = Server.CreateObject("CDO.Configuration")
Set iFlds = iConf.Fields
With iFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = iServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Si el servidor requiere autentificación
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "<SMTPAccount>" 'Cuenta SMTP
' .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "<SMTPPwd>" 'Contraseña SMTP
.Update
End With
iMsg.Configuration = iConf
iMsg.From = "<Remitente>" 'Dirección del remitente
iMsg.Subject = "<Asunto>" 'Asunto del mensaje
iMsg.TextBody = "<Mensaje>" 'Cuerpo del mensaje
iMsg.To = "<Destino>" 'Dirección de destino
iMsg.Send
set iMsg = nothing
set iConf = nothing
set iFlds = nothing
%>
<%
Const cdoSendUsingPort = 2
iServer = "<SMTPServer>" 'Servidor SMTP'
set iMsg = Server.CreateObject("CDO.Message")
set iConf = Server.CreateObject("CDO.Configuration")
Set iFlds = iConf.Fields
With iFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = iServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Si el servidor requiere autentificación
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "<SMTPAccount>" 'Cuenta SMTP
' .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "<SMTPPwd>" 'Contraseña SMTP
.Update
End With
iMsg.Configuration = iConf
iMsg.From = "<Remitente>" 'Dirección del remitente
iMsg.Subject = "<Asunto>" 'Asunto del mensaje
iMsg.TextBody = "<Mensaje>" 'Cuerpo del mensaje
iMsg.To = "<Destino>" 'Dirección de destino
iMsg.Send
set iMsg = nothing
set iConf = nothing
set iFlds = nothing
%>