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??"
Respuesta de Dante Amor
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 SubPuedes cambiar la ruta por una diferente a donde se encuentra el archivo con la macro.
Prueba y me comentas.
