Bir Outlook E-postasının Tüm Resim Eklerini Hızlı Bir Şekilde Dışa Aktarma PDF fileto

Bir Outlook e-postasının tüm resim eklerini hızlı bir şekilde bir PDF dosya, bu makalede açıklanan yöntemi kullanabilirsiniz. Bu "ihracı" hızlı bir şekilde gerçekleştirmek için bir parça VBA kodu kullanır.

Bazen birçok görüntüyü tek bir fotoğrafta birleştirmek isteyebilirsiniz. PDF bir e-postanın tüm görüntü eklerini bir dosyaya dışa aktarmak gibi PDF dosya. Kulağa biraz zor geliyor. Ancak aşağıda, bunu herhangi bir güçlük çekmeden hızlı bir şekilde başarabilecek bir yöntem göstereceğiz.

Bir E-postanın Tüm Resim Eklerini Bir E-postaya Aktarın PDF fileto

1. Öncelikle, Outlook programınızı her zamanki gibi başlatın.
2. Ardından, ana Outlook penceresinde “Alt + F11” tuş düğmelerine dokunun.
3. Daha sonra açılan “Uygulamalar için Microsoft Visual Basic” penceresini göreceksiniz.
4. Bu pencerede, kullanılmayan bir modüle erişmeniz gerekir.
5. Ardından, aşağıdaki VBA kodunu kopyalayıp bu modüle yapıştırabilirsiniz.

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 mevcut pencereyi kapatabilirsiniz.
7. Daha sonra “Dosya” > “Seçenekler” > “Hızlı Erişim Araç Çubuğu”na gidebilirsiniz. Artık yeni makroyu Hızlı Erişim Araç Çubuğuna ekleyebilirsiniz.
8. Sonunda, bu makroyu deneyebilirsiniz.

• Öncelikle, resim eklerini dışa aktarmak istediğiniz bir e-postayı açın. PDF dosyası.
• Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesini tıklayın.
• Makro tamamlandığında bir mesaj alacaksınız.
• Bundan sonra, bulmak için önceden tanımlanmış yerel klasöre gidebilirsiniz. PDF açık e-postaya eklenmiş tüm resimleri içeren dosya.

Ele Geçirilmiş Outlook Verilerini Alın

Outlook bozulursa, zarar görmüş verileri kurtarmak için çaba göstermelisiniz. Bu durumda, öncelikle yerleşik onarım aracı olan Scanpst'i deneyebilirsiniz. Outlook dosyasını onarmanın görevi olmadığını varsayarsak, harici araçlardan da yardım alabilirsiniz. DataNumen Outlook Repair. Geri yüklemede iyidir hasarlı görünüm en aza indirilmiş bozulmaya sahip dosyalar.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf onarımı ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com