Outlook электрондық поштасының барлық суреттер қосымшаларын қалай жылдам а экспорттауға болады PDF файл

Outlook электрондық поштасының барлық кескін тіркемелерін жылдам экспорттағыңыз келсе, a PDF файлында сіз осы мақалада келтірілген әдісті пайдалана аласыз. Ол осындай «экспортты» жылдам орындау үшін VBA кодының бір бөлігін пайдаланады.

Кейде көптеген кескіндерді a-ға біріктіргіңіз келуі мүмкін PDF электрондық поштаның барлық кескін тіркемелерін a. файлына экспорттау сияқты PDF файл. Біраз қиын естіледі. Бірақ келесіде біз оған еш қиындықсыз тез жетуге болатын әдісті көрсетеміз.

Электрондық поштаның барлық кескін тіркемелерін a PDF файл

1. Бастау үшін, Outlook бағдарламаңызды әдеттегідей іске қосыңыз.
2. Содан кейін, негізгі Outlook терезесінде «Alt + F11» батырмаларын түртіңіз.
3. Содан кейін сіз «Қолданбаларға арналған Microsoft Visual Basic» қалқымалы терезесін көресіз.
4. Бұл терезеде пайдаланылмайтын модульге кіру керек.
5. Одан кейін келесі VBA кодын осы модульге көшіріп, қоюға болады.

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. Осыдан кейін сіз ағымдағы терезені жаба аласыз.
7. Кейінірек «Файл» > «Параметрлер» > «Жылдам кіру құралдар тақтасы» тармағына өтуге болады. Енді сіз жаңа макросты Жылдам кіру құралдар тақтасына қоса аласыз.
8. Ақыр соңында, сіз осы макросты көре аласыз.

• Алдымен, сурет тіркемелерін экспорттағыңыз келетін электрондық поштаны ашыңыз PDF файл.
• Содан кейін жылдам қол жеткізу құралдар тақтасындағы макро батырманы басыңыз.
• Макрос аяқталған кезде сіз хабарлама аласыз.
• Осыдан кейін, a. табу үшін алдын ала анықталған жергілікті қалтаға баруға болады PDF ашық электрондық поштаға тіркелген барлық кескіндерді қамтитын файл.

Бұзылған Outlook деректерін шығарып алыңыз

Outlook зақымдалған болса, зақымдалған деректерді қалпына келтіруге күш салу керек. Бұл жағдайда, ең алдымен, кірістірілген жөндеу құралын - Scanpst қолданбасын қолдануға болады. Бұл Outlook файлын жөндеу міндеті емес деп есептесеңіз, сіз сондай-ақ сыртқы құралдардың көмегіне жүгіне аласыз, мысалы, DataNumen Outlook Repair. Қалпына келтіруде жақсы Outlook зақымдалған азайтылған сыбайлас жемқорлықпен файлдар.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com