Outlook e-poçtunun bütün şəkil əlavələrini necə tez ixrac etmək olar PDF fayl

Outlook e-poçtunun bütün şəkil qoşmalarını sürətlə ixrac etmək istəyirsinizsə, a PDF fayl, bu məqalədə təqdim olunan metoddan istifadə edə bilərsiniz. Tez bir zamanda belə "ixrac" həyata keçirmək üçün VBA kodundan istifadə edir.

Bəzən siz çoxlu şəkilləri bir-birinə birləşdirə bilərsiniz PDF e-poçtun bütün şəkil qoşmalarını a PDF fayl. Bir az çətin səslənir. Ancaq bundan sonra heç bir çətinlik çəkmədən buna tez bir zamanda nail ola biləcək bir üsul göstərəcəyik.

E-poçtun bütün şəkil əlavələrini a PDF fayl

1. Başlamaq üçün Outlook proqramınızı həmişəki kimi işə salın.
2. Sonra, əsas Outlook pəncərəsində "Alt + F11" düymələrini vurun.
3. Sonra, "Proqramlar üçün Microsoft Visual Basic" popup pəncərəsini görəcəksiniz.
4. Bu pəncərədə istifadə olunmayan modula daxil olmalısınız.
5. Sonra, aşağıdakı VBA kodunu bu modula köçürə və yapışdıra bilərsiniz.

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. Bundan sonra cari pəncərəni bağlaya bilərsiniz.
7. Daha sonra “Fayl” > “Seçimlər” > “Tez Giriş Alətlər Paneli”nə keçə bilərsiniz. İndi siz Tez Giriş Alətlər Panelinə yeni makro əlavə edə bilərsiniz.
8. Nəhayət, bu makronu sınaya bilərsiniz.

• Əvvəlcə şəkil qoşmalarını ixrac etmək istədiyiniz e-poçtu açın PDF file.
• Sonra, Tez Giriş Alətlər Panelində makro düyməsini basın.
• Makro tamamlandıqda, bir mesaj alacaqsınız.
• Bundan sonra, a tapmaq üçün əvvəlcədən təyin edilmiş yerli qovluğa keçə bilərsiniz PDF açıq e-poçta əlavə edilmiş bütün şəkilləri ehtiva edən fayl.

Təhlükəli Outlook məlumatlarını əldə edin

Outlook xarab olarsa, zədələnmiş məlumatları bərpa etmək üçün səy göstərməlisiniz. Bu vəziyyətdə, ilk növbədə daxili təmir alətini - Scanpst-i sınaya bilərsiniz. Outlook faylını təmir etmək vəzifəsi olmadığını fərz etsək, siz xarici alətlərdən də istifadə edə bilərsiniz, məsələn, DataNumen Outlook Repair. Bərpa etməkdə yaxşıdır zədələnmiş Outlook minimuma endirilmiş korrupsiya ilə fayllar.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf təmiri və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com