none
Macro PARA ENVIAR POR CORREO RRS feed

 > 

  • Pregunta

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Buenas tardes

    Primeramente agradecer por el tiempo dedicado en responder, quisiera una macro que me envie una copia del excel pero sin macros, es decir:

    Estoy trabajando en el libro Libro 1.xlsm quiero enviar por correo una copia de ese libro pero no en formato .xlsm, si no en formato .xls

    Gracias

    Brayan

    sábado, 7 de diciembre de 2019 16:22
    |

Todas las respuestas

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Hola!

    algo tan simple como esto te puede servir.

    Sub EnviarPorEmail()
Dim strArchivo As String

strArchivo = Replace$(ThisWorkbook.FullName, ".xlsm", vbNullString) & ".xlsx"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strArchivo, FileFormat:=xlOpenXMLStrictWorkbook
ActiveWorkbook.SendMail Subject:="Asunto", Recipients:="pepe@jk.com"
Application.DisplayAlerts = True
End Sub

    Saludos a todos desde Huelva Emilio http://www.mvp-access.es/emilio/

    sábado, 7 de diciembre de 2019 20:45
    |