Come esportare rapidamente parte di un'e-mail di Outlook come file PDF Compila il

Se desideri esportare parte di un'e-mail di Outlook, anziché l'intera e-mail, come a PDF file, puoi leggere questo articolo. Qui ti guideremo per ottenerlo con un codice VBA.

Dai miei articoli precedenti – “Come salvare un'e-mail di Outlook come a PDF Compila il " e "Come esportare rapidamente più e-mail di Outlook come una singola PDF Compila il ”, potresti imparare modi per esportare l'intera email come PDF file. Tuttavia, a volte, quello che vuoi è esportare la parte di un'e-mail come a PDF file. A quel punto, puoi utilizzare il seguente codice VBA per realizzarlo. Se non sai assolutamente come usare VBA, puoi fare riferimento all'articolo - "Come eseguire il codice VBA in Outlook" Nel frattempo.

Esporta parte di un'e-mail come a PDF Compila il

1. Innanzitutto, avvia il programma Outlook.
2. Quindi, accedi all'editor VBA di Outlook tramite le scorciatoie da tastiera "Alt + F11".
3. Successivamente, in questa nuova finestra, apri un modulo inutilizzato.
4. Successivamente, copia e incolla il seguente codice VBA in questo modulo.

Sub ExportSelectionAsPDF()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objDocSelection As Word.Selection
    Dim objWordApp As Word.Application
    Dim objTempDocument As Word.Document
    Dim strPDF As String
 
    'Get the currently opened email
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    If Not objMail Is Nothing Then
       'Copy the current selection
       Set objMailDocument = objMail.GetInspector.WordEditor
       Set objDocSelection = objMailDocument.Application.Selection
       objDocSelection.Copy
 
       'Paste the selection into a new Word document
       Set objWordApp = CreateObject("Word.Application")
       Set objTempDocument = objWordApp.Documents.Add
       objWordApp.Visible = True
       objTempDocument.Activate
       objWordApp.Selection.EndKey wdStory
       objWordApp.Selection.PasteAndFormat wdPasteDefault
 
       'Export the document as a PDF file
       'Change the path as per your needs
       strPDF = "E:\" & objMail.Subject & " (Selection).pdf"
       objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

       objTempDocument.Close False
       objWordApp.Quit
    End If
End Sub

5. Successivamente, dovresti aggiungere la nuova macro alla barra di accesso rapido della finestra del messaggio.
6. Infine, puoi fare uno scatto:

• All'inizio, apri un'e-mail.
• Quindi, seleziona i contenuti che desideri esportare.
• Successivamente, fai clic sul pulsante macro nella barra di accesso rapido.
• Immediatamente, la macro verrà eseguita.
• Al termine della macro, puoi andare alla cartella locale predefinita, dove vedrai un nuovo file PDF file.
• Aprilo e vedrai che assomiglia al seguente screenshot:

Misure efficaci dopo i danni di Outlook

Nonostante si vanti di numerose funzioni eccellenti, Outlook non può ancora essere immune dai danni. In realtà, è soggetto a corruzione a causa di vari fattori, come virus, malware, errori software e problemi hardware e così via. In questo scenario, è essenziale intraprendere azioni per salvare i dati di Outlook danneggiati, incluso l'avvio Scansione per riparare il file, controllando i backup più recenti e utilizzando un potente e affidabile strumento di riparazione PST, come DataNumen Outlook Repair.

Introduzione dell'autore:

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