¿Cómo enviar una hoja de trabajo solo a través de Outlook desde Excel?
Si desea enviar por correo electrónico una sola hoja de trabajo de un libro en Excel a través de Outlook, puede enviar la hoja de trabajo como un archivo adjunto, como contenido del cuerpo o como un archivo PDF. Pero, ¿existen formas más rápidas de solucionar este problema en Excel?
Envíe una hoja de trabajo única como un archivo adjunto desde Excel con código VBA
Envíe una sola hoja de trabajo como un archivo PDF desde Excel con código VBA
Envíe una sola hoja de trabajo como cuerpo desde Excel con el comando Enviar a destinatario de correo
Excel nos permite enviar por correo electrónico la hoja de trabajo activa como contenido del cuerpo mediante el comando Enviar a destinatario de correo. Puede hacer lo siguiente:
Si usa Excel 2007, 2010 o 2013, debe agregar esto Enviar a destinatario de correo comando a la Acceso rapido a la barra de herramientas de antemano.
1. Haga clic en el icono del Personalizar la barra de herramientas de acceso rápido, y elige Más comandos, ver captura de pantalla:
2. Y en el Opciones de Excel cuadro de diálogo, elija Comandos que no están en la cinta existentes Elija comandos de lista desplegable, luego seleccione el Enviar a destinatario de correo opción, y haga clic Agregar >> para agregar este comando, en el último clic OK para guardar esta configuración. Ver captura de pantalla:
3. La Enviar a destinatario de correo El comando se ha insertado en el Acceso rapido a la barra de herramientas, ver captura de pantalla:
4. Entonces haz clic en esto Enviar a destinatario de correo botón de icono, y aparece un cuadro de aviso, en el E-mail cuadro de aviso, marque Envía la hoja actual como cuerpo del mensajeY haga clic en OK. Ver captura de pantalla:
5. Y se muestra un cuadro de edición de correo electrónico sobre los datos de la hoja de trabajo, puede ingresar sus destinatarios, asunto e introducción en el cuadro de texto correspondiente. Ver captura de pantalla:
6. A continuación, haga clic en Envía esta Sheet enviar esta hoja de trabajo activa como cuerpo del mensaje a su persona específica.
Envíe una hoja de trabajo única como un archivo adjunto desde Excel con código VBA
Si desea enviar por correo electrónico la hoja de trabajo activa como un archivo adjunto, el siguiente código VBA puede hacerle un favor.
1. Active la hoja de trabajo que desea enviar.
2. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.
3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código VBA: envíe la 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 = ""
.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
Note: En el código anterior, puede cambiar la siguiente información según sus propias necesidades.
- .Para = ""
- .CC = ""
- .BCC = ""
- .Subject = "características kte"
- .Body = "Por favor revise y lea este documento."
4. Luego haga clic F5 para ejecutar este código, y aparecerá un cuadro emergente, haga clic en Permitir cuando finalice la barra de progreso, y luego la hoja de trabajo actual se haya enviado a su destinatario como un archivo adjunto.
Envíe una sola hoja de trabajo como un archivo PDF desde Excel con código VBA
A veces, necesita enviar su informe de hoja de trabajo a otras personas, pero no desea que otras personas lo modifiquen. En este caso, puede enviar la hoja de trabajo como un archivo PDF desde Excel.
1. Active la hoja de trabajo que desea enviar.
2. Mantenga pulsado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.
3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código VBA: envíe la hoja de trabajo actual como archivo 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 = ""
.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 cambiar la siguiente información según sus necesidades.
- .Para = ""
- .CC = ""
- .BCC = ""
- .Subject = "características kte"
- .Body = "Por favor revise y lea este documento."
4. Entonces presione F5 clave y aparecerá un cuadro emergente, haga clic en Permitir después de finalizar la barra de progreso, la hoja de trabajo activa se ha enviado a la persona específica como archivo PDF.
Notas:
1. Estos métodos solo están disponibles cuando utiliza Outlook como su programa de correo.
2. Después de enviar la hoja de trabajo actual, puede ir a su Outlook para asegurarse de que el correo electrónico se haya enviado correctamente.
Cree una lista de correo y luego envíe correos electrónicos
|
La Kutools for Excel's Crear lista de distribución y Enviar Emails Las utilidades pueden crear rápidamente listas de correo en una hoja de trabajo y luego enviar el mismo asunto, el mismo contenido y los mismos archivos adjuntos a varias direcciones de correo electrónico. |
Artículos relacionados:
¿Cómo enviar el libro de trabajo actual a través de Outlook desde Excel?
¿Cómo enviar / enviar por correo electrónico un rango de celdas a través de Outlook desde Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!