¿Cómo enviar únicamente una hoja de cálculo desde Excel a través de Outlook?
Si desea enviar por correo electrónico una única hoja de un libro de Excel a través de Outlook, puede hacerlo como archivo adjunto, en el cuerpo del mensaje o como un archivo PDF. ¿Pero hay formas más rápidas de lograrlo directamente desde Excel?
Enviar una única hoja como archivo adjunto desde Excel con código VBA
Enviar una única hoja como un Archivos PDF desde Excel con código VBA
Enviar una única hoja como cuerpo del mensaje desde Excel con el comando Enviar al destinatario de correo
Excel nos permite enviar la hoja activa directamente en el cuerpo del mensaje mediante el comando **Enviar al destinatario de correo**. Para hacerlo, siga estos pasos:
Si utiliza Excel 2007, 2010 o 2013, primero debe agregar este comando Enviar al destinatario de correo a la Barra de herramientas de acceso rápido.
1. Haga clic en el icono de Personalizar barra de herramientas de acceso rápido y seleccione Más comandos. Vea la captura de pantalla:
2. En el cuadro de diálogo Opciones de Excel, seleccione Comandos que no están en la Cinta de opciones en la lista desplegable Elegir comandos de, elija la opción Enviar al destinatario de correo, haga clic en el botón Agregar >> para añadir este comando y, por último, haga clic en Aceptar para guardar esta configuración. Vea la captura de pantalla:
3. El comando Enviar al destinatario de correo se ha insertado en la Barra de herramientas de acceso rápido. Vea la captura de pantalla:
4. A continuación, haga clic en este botón con el icono Enviar al destinatario de correo y aparecerá un cuadro de diálogo. En el cuadro Correo electrónico, active la casilla Enviar la Hoja de cálculo actual como cuerpo del mensaje y haga clic en Aceptar. Vea la captura de pantalla:
5. Aparecerá un cuadro de edición de correo electrónico sobre los datos de la hoja. Introduzca los destinatarios, el asunto y un mensaje introductorio en los campos correspondientes. Vea la captura de pantalla:
6. Luego, haga clic en Enviar esta hoja para enviar la hoja activa como cuerpo del mensaje a la persona indicada.
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
Enviar una única hoja como archivo adjunto desde Excel con código VBA
Si desea enviar la hoja activa como archivo adjunto, el siguiente código VBA le será de gran ayuda.
1. Active la hoja que quiera enviar.
2. Mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.
3. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del módulo.
Código VBA: enviar Hoja de trabajo actual como archivo adjunto desde Excel
Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
Nota: En el código anterior, puede ajustar la siguiente información según sus necesidades.
- .To = «skyyang@extendoffice.com»
- .CC = «»
- .BCC = «»
- .Subject = «kte features»
- .Body = «Por favor, revise y lea este documento.»
4. Pulse la tecla F5 para ejecutar este código. Aparecerá un cuadro de diálogo; haga clic en Permitir cuando finalice la barra de progreso, y entonces la hoja de trabajo actual se habrá enviado a su destinatario como archivo adjunto.
Enviar una única hoja como un Archivos PDF desde Excel con código VBA
A veces necesita enviar su informe de hoja de cálculo a otras personas, pero no desea que lo modifiquen. En ese caso, puede enviar la hoja como un archivo PDF desde Excel.
1. Active la hoja que desea enviar.
2. Mantenga pulsadas las teclas ALT + F11, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.
3. Haga clic en Insertar>Módulo, y pegue el siguiente código en la Ventana de módulo.
Código VBA: enviar Hoja de trabajo actual como Archivos PDF desde Excel
Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Nota: En el código anterior, puede personalizar la siguiente información según sus necesidades.
- .To = «skyyang@extendoffice.com»
- .CC = «»
- .BCC = «»
- .Subject = «kte features»
- .Body = «Por favor, revise y lea este documento.»
4. Pulse la tecla F5 y aparecerá un cuadro de diálogo. Tras finalizar la barra de progreso, haga clic en Permitir; así, la hoja activa se habrá enviado a la persona indicada como archivo PDF.
Notas:
1. Estos métodos solo están disponibles si utiliza Outlook como su cliente de correo.
2. Tras enviar la hoja de trabajo actual, puede ir a Outlook para comprobar que el correo se ha enviado correctamente.
Crear lista de correo Luego envíe correos electrónicos |
| Las utilidades Kutools para Excel's Crear lista de correo y pueden crear una lista de correo rápidamente en una hoja de cálculo para enviar después el mismo asunto, el mismo contenido y los mismos archivos adjuntos a varias direcciones de correo electrónico.y correos electrónicos |
 |
 |
 |
Artículos relacionados:
¿Cómo enviar el libro de trabajo actual por Outlook desde Excel?
¿Cómo enviar un rango de celdas por correo electrónico a través de Outlook desde Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos