[VIDEO] - Enviar hoja activa por Correo electrónico.

Hay acciones en Excel, que las repetimos con frecuencia, las cuales podriamos automatizar con una macro.

Una macro es un conjunto de comandos que se almacena en un lugar especial de Excel de manera que están siempre disponibles cuando los necesites ejecutar. Este ejemplo es para enviar la hoja activa por correo electrónico, lo podriamos realizar de la siguiente manera.
 



Para ejecutar una macro que realice automáticamente este proceso

Antes de hacer la macro, debe activar la pestaña "Programador" o tambien llamada "Desarrollador" en Excel. Si no la tiene activa, aquí le explicamos paso a paso

Cuando active esta pestaña, seleccione la opción Visual Basic como lo indica la siguiente imagen:


Desde el editor de Visual Basic, seleccione del panel izquierdo, clic derecho en el nombre del libro - insertar - modulo, en la parte derecha, escribir el siguiente codigo:






Sub Correo()
    Dim NombreAsunto As String
    Dim Temporal As String
    Dim Mensaje As String
        On Error Resume Next
        NombreAsunto = ActiveSheet.Name
        Temporal = Environ("temp") & "\"
        NombreAsunto = Temporal & NombreAsunto

        ActiveWorkbook.ActiveSheet.Copy
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs NombreAsunto
        Application.DisplayAlerts = True
        CommandBars.ExecuteMso ("FileSendAsAttachment")
       
        ActiveWorkbook.Close False
        Kill NombreAsunto
        On Error GoTo 0
End Sub

Enhorabuena, tenemos nuestra macro lista!!!

Ahora vamos a Excel. E insertamos un objeto como este, escoje el que mas te guste:


Clic encima de la imagen elegida en el punto anterior. Clic derecho, asignar Macro y escojemos la que dice Correo, aceptar.

 Ya estamos casi Listos!!!

Ahora, solo es ejecutar y probarla macro.

Recuerda guardar el archivo como  libro de excel habilitado para macros. o Guardarlo en su libro personal de macros.

 

 

 

[VIDEO] a continuación CLIC AQUí

 

Si te gustó, síguenos en Twitter  para recibir nuestras actualizaciones y trucos