Kuinka nopeasti viedä osa Outlook-sähköpostista a PDF filee

Jos haluat viedä osan Outlook-sähköpostista koko sähköpostin sijaan, a PDF tiedosto, voit lukea tämän artikkelin. Tässä opastamme sinua saavuttamaan sen VBA-koodilla.

Aiemmista artikkeleistani - "Outlook-sähköpostin tallentaminen a PDF filee"Ja"Kuinka nopeasti viedä useita Outlook-sähköpostiviestejä yhtenä PDF filee”, voit oppia tapoja viedä koko sähköposti nimellä PDF tiedosto. Kuitenkin toisinaan haluat viedä sähköpostin osan a PDF tiedosto. Siinä vaiheessa voit käyttää seuraavaa VBA-koodia toteuttaaksesi sen. Jos et täysin osaa käyttää VBA:ta, voit katsoa artikkelin - "Kuinka suorittaa VBA-koodi Outlookissa" sillä välin.

Vie osa sähköpostista a PDF filee

1. Aloita käynnistämällä Outlook-ohjelmasi.
2. Siirry sitten Outlook VBA -editoriin Alt + F11 -pikanäppäimillä.
3. Avaa seuraavaksi tässä uudessa ikkunassa käyttämätön moduuli.
4. Kopioi ja liitä seuraava VBA-koodi tähän moduuliin.

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. Tämän jälkeen sinun tulee lisätä uusi makro viestiikkunan pikatyökalupalkkiin.
6. Lopuksi voit ottaa kuvan:

• Aluksi avaa sähköposti.
• Valitse sitten sisältö, jonka haluat viedä.
• Napsauta seuraavaksi makron painiketta Pikakäynnistystyökalurivillä.
• Makro käynnistyy heti.
• Kun makro on valmis, voit siirtyä ennalta määritettyyn paikalliseen kansioon, jossa näet uuden PDF tiedosto.
• Avaa se ja näet, että se näyttää seuraavalta kuvakaappaukselta:

Tehokkaat toimenpiteet Outlookin vahinkojen jälkeen

Huolimatta lukuisista erinomaisista toiminnoista, Outlook ei silti voi olla suojassa vaurioilta. Itse asiassa se on altis korruptiolle useiden tekijöiden, kuten virusten, haittaohjelmien, ohjelmistovikojen ja laitteisto-ongelmien ja niin edelleen vuoksi. Tässä skenaariossa on välttämätöntä ryhtyä toimiin vaurioituneiden Outlook-tietojen pelastamiseksi, mukaan lukien käynnistäminen scanpst korjata tiedoston, tarkistaa viimeisimmät varmuuskopiot ja hyödyntää tehokasta ja luotettavaa PST-korjaustyökalua, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaus mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com