Come esportare rapidamente tutti gli allegati immagine di un'e-mail di Outlook in a PDF Compila il

Se desideri esportare rapidamente tutte le immagini allegate di un'e-mail di Outlook in un file PDF file, è possibile utilizzare il metodo introdotto in questo articolo. Utilizza un pezzo di codice VBA per realizzare tale "esportazione" in tempi rapidi.

A volte, potresti voler combinare molte immagini in un file PDF file, come l'esportazione di tutte le immagini allegate di un'e-mail in a PDF file. Sembra un po' difficile. Ma di seguito mostreremo un metodo che può raggiungere rapidamente questo obiettivo senza problemi.

Esporta tutti gli allegati immagine di un'e-mail in a PDF Compila il

1. Innanzitutto, avvia il programma Outlook come di consueto.
2. Quindi, nella finestra principale di Outlook, tocca i pulsanti "Alt + F11".
3. Successivamente, verrà visualizzata la finestra popup "Microsoft Visual Basic for Applications".
4. In questa finestra è necessario accedere a un modulo non utilizzato.
5. Successivamente, puoi copiare e incollare il seguente codice VBA in questo modulo.

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. Successivamente, puoi chiudere la finestra corrente.
7. Successivamente, puoi andare su "File" > "Opzioni" > "Barra degli strumenti di accesso rapido". Ora puoi aggiungere la nuova macro alla barra di accesso rapido.
8. Alla fine, puoi provare questa macro.

• Prima di tutto, apri un'e-mail di cui desideri esportare gli allegati immagine in un file PDF file.
• Quindi, fai clic sul pulsante macro nella barra di accesso rapido.
• Al termine della macro, riceverai un messaggio.
• Successivamente, puoi andare alla cartella locale predefinita per trovare un file PDF file, che contiene tutte le immagini allegate all'e-mail aperta.

Recupera i dati di Outlook compromessi

Se Outlook viene danneggiato, dovresti sforzarti di recuperare i dati danneggiati. In questo caso, puoi prima provare lo strumento di riparazione integrato: Scanpst. Supponendo che non sia all'altezza del compito di riparare il file di Outlook, potresti anche avvalerti dell'aiuto di strumenti esterni, come DataNumen Outlook Repair. È bravo a ripristinare Outlook danneggiato file con una corruzione ridotta al minimo.

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