Cómo enviar rápidamente las páginas específicas de un documento de Word como correo electrónico de Outlook

Algunos usuarios anhelan una solución que les permita enviar las páginas específicas de un documento de Word como un correo electrónico de Outlook en un tiempo rápido. En este artículo, presentaremos este método en detalle.

Si ha leído mi artículo anterior "Cómo adjuntar rápidamente las páginas específicas de un documento de Word a un correo electrónico de Outlook“, Puede tender a solicitar un método que pueda enviar directamente las páginas específicas de un documento de Word como un correo electrónico, en lugar de un archivo adjunto de correo electrónico. Ahora, a continuación, le mostraremos un fragmento de código VBA, que puede realizarlo con facilidad.

Envíe las páginas específicas de un documento de Word como un correo electrónico de Outlook

1. Para empezar, debe acceder al documento de Word de origen cuyas páginas específicas desea enviar.
2. Luego, en la ventana de Word abierta, debe presionar los botones "Alt + F11".
3. Aparecerá la ventana "Microsoft Visual Basic para aplicaciones".
4. En esta ventana, debe insertar un nuevo módulo.
5. A continuación, debe habilitar la “Biblioteca de objetos de Microsoft Outlook”.

• Haga clic en "Herramientas" y elija "Referencia" de la lista desplegable.
• En el cuadro de diálogo emergente, desplácese hacia abajo hasta que vea la opción "Biblioteca de objetos de Microsoft Outlook". Habilítela y haga clic en "Aceptar".

6. Después de eso, puede copiar el fragmento de código VBA a continuación en este módulo.

Sub SendSpecificPagesAsOutlookEmail()
    Dim objSelectedPages As Word.Range
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
 
    'Copy the contents from Page 3 to 4
    'Change the page number as per your needs
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3
    Set objSelectedPages = Selection.Range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
    objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
    objSelectedPages.Select
    objSelectedPages.Copy
 
    'Get Outlook Application
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    'Create a new email
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Display
 
    'Paste the contents in specific pages into message body
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objTempRange = objMailDocument.Range(0, 0)
    objTempRange.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

7. Eventualmente, puede ejecutar esta macro a la vez. Simplemente presione el botón "F5" en el módulo actual.
8. Es posible que reciba una advertencia de Outlook como la siguiente captura de pantalla. Puede hacer clic en "Permitir" directamente.
9. En última instancia, recibirá un correo electrónico que contiene las páginas específicas del documento de Word.

Preste atención a la protección de datos de Outlook

Es posible que esté considerablemente satisfecho con la cantidad de funciones de Outlook. Pero todavía tiene fallas. Por ejemplo, es susceptible a errores y corrupción. En este caso, debe prestar mucha atención a la protección de Outlook, incluida la copia de seguridad de sus archivos PST de Outlook a intervalos regulares. Además, es prudente y se sugiere mantener un poderoso Reparación de PST utilidad, como DataNumen Outlook Repair. Es tan poderoso que puede extraer la máxima cantidad de datos de un archivo de Outlook gravemente dañado.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparación de mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com