Cita:
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,