Excel 2016 - Macro no reconoce Subject en Método Sendmail

Tengo una macro que funciona perfectamente en cualquier versión de Office, pero con el 2016 me "traduce" el asunto de un mail a "chino básico":

ActiveWorkbook.SendMail Recipients:=Array("[email protected]", "[email protected]"), Subject:="" & NOMBRE

Cuando audito la macro me reconoce NOMBRE con el valor correcto, pero cuando envía el mail al remitente le figura en el asunto caracteres chinos, y los destinatarios reciben "?7??"

1 respuesta

Respuesta

Entonces puede ser un error de la versión.

¿Ya realizaste la última actualización de excel?

En lugar de utilizar SendMail, puedes probar con esta versión para outlook:

Sub Enviar_ActiveWorkbook()
'Por.Dante Amor
    Set l1 = ThisWorkbook
    ruta = "C:\"
    arch = l1.Name
    l1.SaveCopyAs ruta & arch
    Set dam = CreateObject("outlook.application").createitem(0)
    dam.To = "[email protected][email protected]"
    dam.Subject = "" & NOMBRE
    dam.Attachments.Add ruta & arch
    dam.Send 'El correo se envía en automático
End Sub

Puedes cambiar la ruta por una diferente a donde se encuentra el archivo con la macro.

Prueba y me comentas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas