Como Asignar macro a un Boton
Publicado por itzel ireri (15 intervenciones) el 03/11/2016 20:03:44
Hola buen dia tengo que enviar por correo electronico una hoja desde un boton pero no se como; escribi este
Con esto tengo que seleccionar la macro para enviarla por correo lo que requiero es que desde un boton me la envie alguien me pudiera orientar un poco?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim attBook$
attBook = Environ("Control") & "\SeguimientoEenergeticos.xlsx"
' Guardo la hoja activa como un libro independiente
ActiveSheet.CopyIf Dir(attBook) <> "" Then Kill attBook
With ActiveWorkbook
.SaveAs Filename:=attBook, FileFormat:=51
.Close FalseEnd With
' Creo el objeto Outlook
With CreateObject("Outlook.Application")
' Creo el nuevo mail
With .CreateItem(0)
' Incorporo el archivo que se adjunta
.Attachments.Add attBook
.DisplayEnd With
End With
End Sub
Con esto tengo que seleccionar la macro para enviarla por correo lo que requiero es que desde un boton me la envie alguien me pudiera orientar un poco?
Valora esta pregunta
0
