Aspemail X en vez de acentos en subject

[zoltar]

Hola,
He creado un autoresponde con aspemail y todo funciona correctamente excepto que hay algunas cuentas de correo electrónico que reciben el correo con todos los acentos en el cuerpo del mensaje pero en el subjetc o asunto del mensaje aparece el caracter X en vez del acento.

Por ejemplo:
"He recibido esta invitaciXn y creo que a ti tambiXn puede interesarte..."
en vez de:
"He recibido esta invitación y creo que a ti también puede interesarte..."

Sabes como puedo solucionarlo?
Gracias,
Toni

[Adler]

Hola

Usa replace

Function Reemplaza(limpia,caso)

cadena = trim(limpia)

Select Case caso

Case 0:
cadena = replace(cadena,"¿","¿")
cadena = replace(cadena,"¡","¡")
cadena = replace(cadena,"ñ","ñ")
cadena = replace(cadena,"Ñ","Ñ")
cadena = replace(cadena,"á","á")
cadena = replace(cadena,"Á","Á")
cadena = replace(cadena,"é","é")
cadena = replace(cadena,"É","É")
cadena = replace(cadena,"í","í")
cadena = replace(cadena,"Í","Í")
cadena = replace(cadena,"ó","ó")
cadena = replace(cadena,"Ó","Ó")
cadena = replace(cadena,"ú","ú")
cadena = replace(cadena,"Ú","Ú")

Case Else
cadena = limpia
End Select

Reemplaza = cadena

End Function

Uso

Reemplaza(texto,0)

Suerte

[zoltar]

Gracias Adler, pero acabo de encontrar la solución... por si a alguien le sirve de ayuda:

Mail.Subject = mail.encodeheader("ASUNTO")

Al introducir mail.encodeheader se consigue mantener la codificación original que al pasar de un servidor a otro parece ser modificado.

[Valery-Net]

Iniciado por zoltar

Gracias Adler, pero acabo de encontrar la solución... por si a alguien le sirve de ayuda:

Mail.Subject = mail.encodeheader("ASUNTO")

Al introducir mail.encodeheader se consigue mantener la codificación original que al pasar de un servidor a otro parece ser modificado.

Esa es la solución correcta,

[JuanRAPerez]

Como un comentario extra bueno seria que también guardaras la funcion de alder nunca sabes cuando la puedes necesitar

suerte