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. Дараа нь та "Файл"> "Сонголтууд"> "Түргэн хандалтын хэрэгслийн мөр" рүү очиж болно. Одоо та Quick Access Toolbar-д шинэ макро нэмж болно.
8. Эцэст нь та энэ макро оролдож болно.

• Эхлээд зургийн хавсралтыг нь a руу экспортлохыг хүссэн имэйлээ нээнэ үү PDF файл.
• Дараа нь Quick Access Toolbar дээрх макро товчийг дарна уу.
• Макро дууссаны дараа танд мессеж ирэх болно.
• Үүний дараа та урьдчилан тодорхойлсон локал хавтас руу очиж a PDF нээлттэй имэйлд хавсаргасан бүх зургийг агуулсан файл.

Эвдэрсэн Outlook өгөгдлийг сэргээх

Хэрэв Outlook гэмтсэн бол гэмтсэн өгөгдлийг сэргээхийн тулд хүчин чармайлт гаргах хэрэгтэй. Энэ тохиолдолд та эхлээд суулгасан засварын хэрэгсэл болох Scanpst-ийг туршиж үзэж болно. Энэ нь Outlook файлыг засах ажил биш гэж үзвэл та гадаад хэрэглүүр, жишээ нь, тусламж авч болно. DataNumen Outlook Repair. Сэргээхдээ сайн Outlook гэмтсэн авлигыг багасгасан файлууд.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf засвар програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com