Kuinka viedä kaikki Outlook-sähköpostin liitetiedostot nopeasti a PDF filee

Jos haluat viedä kaikki Outlook-sähköpostin liitetiedostot nopeasti PDF tiedostoa, voit käyttää tässä artikkelissa esitettyä menetelmää. Se käyttää palan VBA-koodia tällaisen "viennin" toteuttamiseen nopeasti.

Voit toisinaan haluta yhdistää useita kuvia a PDF tiedosto, kuten viedä kaikki sähköpostin liitetiedostot a PDF tiedosto. Se kuulostaa vähän vaikealta. Mutta seuraavassa näytämme menetelmän, joka voidaan saavuttaa tämä nopeasti ilman vaivaa.

Vie kaikki sähköpostin liitetiedostot a PDF filee

1. Aloita käynnistämällä Outlook-ohjelma normaalisti.
2. Napauta sitten Outlookin pääikkunassa Alt + F11-näppäinpainikkeita.
3. Myöhemmin näet ponnahdusikkunan "Microsoft Visual Basic for Applications" -ikkuna.
4. Tässä ikkunassa sinun on käytettävä moduulia, jota ei käytetä.
5. Seuraavaksi voit kopioida ja liittää seuraavan VBA-koodin tähän moduuliin.

Sub ExportAllImageAttachmentsIntoPdfFile()
    Dim objSourceMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objWordApp As Word.Application
    Dim objTempDocument As Word.Document
    Dim strImage As String
    Dim objInlineShape As Word.InlineShape
    Dim strPDF As String
 
    Set objSourceMail = Application.ActiveInspector.currentItem
 
    If Not (objSourceMail Is Nothing) Then
 
       Set objWordApp = CreateObject("Word.Application")
       Set objTempDocument = objWordApp.Documents.Add
       objWordApp.Visible = True
       objTempDocument.Activate
 
       strTempFolder = Environ("Temp") & "\" & Format(Now, "yyyymmddhhmmss") & "\"
       MkDir (strTempFolder)
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
       For Each objAttachment In objSourceMail.Attachments
           If IsEmbedded(objAttachment) = False Then
              Select Case LCase(objFileSystem.GetExtensionName(objAttachment.filename))
                     Case "jpg", "jpeg", "png", "bmp", "gif"
                           objAttachment.SaveAsFile strTempFolder & objAttachment.filename
              End Select
           End If
       Next
 
       strImage = Dir(strTempFolder & "*.*", vbNormal)

       Do Until Len(strImage) = 0
          With Selection
               .InlineShapes.AddPicture (strTempFolder & strImage)
               .TypeParagraph
               .Collapse Direction:=wdCollapsEnd
               .ParagraphFormat.Alignment = wdAlignParagraphCenter
               .TypeParagraph
          End With
          strImage = Dir()
       Loop

       For Each objInlineShape In objTempDocument.InlineShapes
           objInlineShape.Select
           Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
           objInlineShape.ScaleHeight = 50
           objInlineShape.ScaleWidth = 50
       Next
 
       'Change the path to save the PDF file
       strPDF = "E:\Image Attachments.pdf"
 
       'Export the temp Word document as a PDF file
       objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF
  
       objTempDocument.Close False
       objWordApp.Quit
 
       MsgBox "Complete!" 
    End If
End Sub

Function IsEmbedded(objCurAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.propertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurAttachment.propertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbedded = True
    Else
       IsEmbedded = False
    End If
End Function

6. Tämän jälkeen voit sulkea nykyisen ikkunan.
7. Myöhemmin voit siirtyä kohtaan "Tiedosto"> "Asetukset"> "Pikatyökalurivi". Nyt voit lisätä uuden makron Pikatyökaluriville.
8. Lopulta voit kokeilla tätä makroa.

• Avaa ensin sähköposti, jonka kuvaliitteet haluat viedä PDF tiedosto.
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Kun makro on valmis, saat viestin.
• Sen jälkeen voit siirtyä ennalta määritettyyn paikalliseen kansioon löytääksesi PDF tiedosto, joka sisältää kaikki avoimeen sähköpostiin liitetyt kuvat.

Nouda vaarantuneet Outlook-tiedot

Jos Outlook vioittuu, sinun on pyrittävä palauttamaan vahingoittuneet tiedot. Tässä tapauksessa voit ensin kokeilla sisäänrakennettua korjaustyökalua - Scanpst. Olettaen, että Outlook-tiedoston korjaaminen ei ole tehtävä, voit käyttää myös ulkoisia työkaluja, kuten DataNumen Outlook Repair. Se on hyvä palauttaa vahingoittunut Outlook tiedostot, joiden vioittuminen on minimoitu.

Tekijän esittely:

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