Come allegare rapidamente le pagine specifiche di un documento di Word a un'e-mail di Outlook

MS Word ha una funzione diretta che supporta gli utenti per inviare il documento Word corrente come allegato di posta elettronica. Ma a volte, puoi solo sperare di allegare le pagine specifiche di un documento Word a un'e-mail di Outlook. Ora, questo articolo ti condividerà un metodo.

Per inviare un intero documento Word come allegato e-mail nell'applicazione MS Word, puoi semplicemente andare al menu "File" e passare alla scheda "Salva e invia", sotto la quale puoi trovare un pulsante "Invia come allegato". Tuttavia, a volte, ciò che vuoi inviare potrebbe essere solo pagine specifiche del documento. In questa situazione, è possibile utilizzare il metodo introdotto di seguito per realizzarlo.

Allega le pagine specifiche di un documento Word a un'e-mail

1. Prima di tutto, dovresti aprire il documento Word di origine di cui desideri inviare le pagine specifiche tramite e-mail.
2. Quindi, dopo essere entrato nella finestra di MS Word, è necessario premere i pulsanti "Alt + F11".
3. Successivamente, avrai accesso all'editor VBA in MS Word.
4. Dopodiché, è necessario abilitare la "Libreria di oggetti di Microsoft Outlook". Per farlo, è possibile andare su "Strumenti" > "Riferimenti".
5. Successivamente, dovresti copiare il seguente codice VBA in un modulo che non è in uso.

Sub AttachSpecificPagesToOutlookEmail()
    Dim strDocumentName As String
    Dim objSelectedPages As Word.Range
    Dim objTempDocument As Word.Document
    Dim objTempRange As Word.Range
    Dim i As Long
    Dim strTempDocument As String
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
 
    strDocumentName = Left(ActiveDocument.Name, InStr(ActiveDocument.Name, ".") - 1)
 
    'Copy the contents from Page 2 to 4
    'You can change the page as per your own needs
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
    Set objSelectedPages = Selection.Range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
    objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
    objSelectedPages.Select
    objSelectedPages.Copy
 
    'Paste the copied contents into a new Word Document
    Set objTempDocument = Word.Application.Documents.Add
    objTempDocument.Activate
    Set objTempRange = objTempDocument.Range(0, 0)
    objTempRange.PasteAndFormat (wdFormatOriginalFormatting)

    For i = objTempDocument.Paragraphs.Count To 1 Step -1
        If Len(objTempDocument.Paragraphs(i).Range) = 1 Then
           objTempDocument.Paragraphs(i).Range.Delete
        Else
           Exit For
        End If
    Next i
 
    'Save this document
    strTempDocument = "E:\" & strDocumentName & " (Excerpt).doc"
    objTempDocument.SaveAs2 strTempDocument, wdFormatDocument
 
    'Attach the new document to a new Outlook email
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Attachments.Add (strTempDocument)
    objMail.Display
 
    objTempDocument.Close False
    Kill strTempDocument
End Sub

6. Infine, puoi eseguire questa macro. Basta premere il tasto F5 o toccare l'icona "Esegui" nella barra degli strumenti.
7. Al termine della macro, verrà visualizzata una nuova e-mail di Outlook, che è allegata con un estratto del documento Word di origine, come il seguente screenshot:

Estrai il numero massimo di dati dal file di Outlook danneggiato

Se hai utilizzato Outlook per decenni, potresti aver dovuto affrontare vari problemi di Outlook, inclusi messaggi di errore interni popup, arresti anomali improvvisi e gravi danni ai file. A causa del fatto che il Scansione, strumento di riparazione integrato, può solo affrontare i piccoli problemi, faresti meglio a tenere a portata di mano un potente strumento di correzione esterno, ad esempio DataNumen Outlook Repair. È in grado di estrarre il massimo dei dati dal file di dati di Outlook danneggiato.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correzione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com