Outlook elektron pochtasining barcha rasm qo'shimchalarini qanday qilib tez eksport qilish mumkin PDF Fayl

Agar siz Outlook elektron pochtasining barcha rasm qo'shimchalarini tezda a PDF fayl uchun siz ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin. Tez vaqt ichida bunday "eksport" ni amalga oshirish uchun VBA kodining bir qismidan foydalanadi.

Ba'zida siz ko'plab tasvirlarni birlashtirmoqchi bo'lishingiz mumkin PDF fayl, masalan, elektron pochtaning barcha rasm qo'shimchalarini a ga eksport qilish PDF fayl. Bu biroz qiyin tuyuladi. Ammo biz quyida hech qanday qiyinchiliksiz bunga tezda erishish mumkin bo'lgan usulni ko'rsatamiz.

Elektron pochtaning barcha rasm qo'shimchalarini a PDF Fayl

1. Boshlash uchun, Outlook dasturingizni odatdagidek ishga tushiring.
2. Keyin, asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
3. Keyinchalik, "Ilovalar uchun Microsoft Visual Basic" qalqib chiquvchi oynani ko'rasiz.
4. Ushbu oynada siz foydalanilmayotgan modulga kirishingiz kerak.
5. Keyinchalik, ushbu modulga quyidagi VBA kodini nusxalashingiz va joylashtirishingiz mumkin.

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. Shundan so'ng siz joriy oynani yopishingiz mumkin.
7. Keyinchalik, siz "Fayl"> "Tanlovlar"> "Tez kirish asboblar paneli" ga o'tishingiz mumkin. Endi siz tez kirish asboblar paneliga yangi makrosni qo'shishingiz mumkin.
8. Oxir-oqibat, siz ushbu makroni sinab ko'rishingiz mumkin.

• Birinchidan, rasm qo'shimchalarini eksport qilmoqchi bo'lgan elektron pochta manzilini oching PDF file.
• Keyin, Tez kirish asboblar panelidagi makros tugmasini bosing.
• Makros tugallangach, siz xabar olasiz.
• Shundan so'ng, a topish uchun oldindan belgilangan mahalliy papkaga o'tishingiz mumkin PDF ochiq elektron pochtaga biriktirilgan barcha rasmlarni o'z ichiga olgan fayl.

Buzilgan Outlook ma'lumotlarini oling

Agar Outlook buzilgan bo'lsa, shikastlangan ma'lumotlarni qayta tiklashga harakat qilishingiz kerak. Bunday holda, siz birinchi navbatda o'rnatilgan ta'mirlash vositasini sinab ko'rishingiz mumkin - Scanpst. Agar bu Outlook faylini ta'mirlash ishi emas deb hisoblasangiz, siz tashqi vositalardan ham foydalanishingiz mumkin, masalan, DataNumen Outlook Repair. Qayta tiklashda yaxshi buzilgan Outlook minimallashtirilgan korruptsiyaga ega fayllar.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf ta'mirlash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com