Ինչպե՞ս արագ արտահանել Outlook էլփոստը որպես պատկերի ֆայլ

Outlook լուծումներ Սեպտեմբեր 29, 2025
Կիսվել հիմա ՝

Որոշ օգտվողներ կցանկանան արտահանել Outlook էլփոստը որպես պատկերի ֆայլ, օրինակ ՝ jpg ֆայլ: Հետեւաբար, այս հոդվածում մենք կներկայացնենք, թե ինչպես ստանալ այն Outlook VBA կոդի միջոցով:

Դուք պետք է որ սովորել եք տարաբնույթ հնարքներ էլ.փոստը որպես տեքստային ֆայլ, Word փաստաթուղթ և այլն արտահանելու համար: Հետո, ինչ կասես JPG ֆայլի նման նկար էլ. Նամակ արտահանելու մասին: Ըստ ամենայնի, Outlook- ը չունի այս գործառույթը: Բայց, դրանից հետո, մենք արագ միջոցներ կկիսվենք ձեզ հետ:

Արագորեն արտահանեք Outlook էլփոստը որպես պատկերի ֆայլ

Արագորեն արտահանեք Outlook էլփոստը որպես պատկերի ֆայլ

  1. Սկսելու համար գործարկեք ձեր Outlook ծրագիրը։
  2. Դրանից հետո Outlook- ի հիմնական պատուհանում մուտք գործեք VBA խմբագիր `համաձայն հոդվածի` «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
  3. Հաջորդը, միացրեք «MS Word Object Library»-ն և «MS PowerPoint «Օբյեկտների գրադարան»՝ հղում անելով հոդվածին – «Ինչպես ավելացնել օբյեկտային գրադարանի հղում VBA-ում".
  4. Հաջորդը, պատճենեք և տեղադրեք հետևյալ VBA կոդը դատարկ մոդուլի մեջ:
Sub ExportEmailAsImage()
    Dim objMail As Outlook.MailItem
    Dim strFileName As String
    Dim strWordDocument As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objDocumentRange As Word.Range
    Dim objPowerPointApp As PowerPoint.Application
    Dim objPresentation As PowerPoint.Presentation
    Dim objShape As PowerPoint.Shape
 
    On Error Resume Next
    'Export the email as Word document
    Set objMail = Outlook.Application.ActiveExplorer.Selection(1)
    strFileName = Replace(objMail.Subject, "/", " ")
    strFileName = Replace(strFileName, "\", " ")
    strFileName = Replace(strFileName, ":", "")
    strFileName = Replace(strFileName, "?", " ")
    strFileName = Replace(strFileName, Chr(34), " ")
    strWordDocument = Environ("Temp") & "\" & strFileName & ".doc"
 
    objMail.SaveAs strWordDocument, olDoc

    Set objWordApp = CreateObject("Word.Application")
    Set objWordDocument = objWordApp.Documents.Open(strWordDocument)
    objWordApp.Visible = True
 
    objWordApp.Selection.Find.ClearFormatting
    objWordApp.Selection.Find.Replacement.ClearFormatting
 
    With objWordApp.Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "^p"
        .Wrap = wdFindContinue
    End With
 
    'Insert the document into a PowerPoint Presentation slide as an object
    objWordApp.Selection.Find.Execute Replace:=wdReplaceAll
    Set objDocumentRange = objWordDocument.Range()
    objDocumentRange.Font.Name = "Calibri"
    objDocumentRange.Font.Size = 10
    objWordDocument.Close True
    objWordApp.Quit
 
    Set objPowerPointApp = CreateObject("PowerPoint.Application")
    Set objPresentation = objPowerPointApp.Presentations.Add
    objPowerPointApp.Visible = msoTrue
 
    With objPresentation
        .PageSetup.SlideHeight = 792
        .PageSetup.SlideWidth = 612
        .Slides.AddSlide 1, .SlideMaster.CustomLayouts(1)
    End With
 
    'Export the slide
    With objPresentation.Slides(1)
         Set objShape = .Shapes.AddOLEObject(0, 0, 612, 792, , strWordDocument)
        .Export "E:\Email_" & strFileName & ".jpg", "JPG"
    End With
 
    objPresentation.Saved = msoTrue
    objPresentation.Close
    objPowerPointApp.Quit
End Sub
  1. Դրանից հետո անհրաժեշտ է մակրո ավելացնել արագ մատչելիության գործիքագոտում:
  2. Դրանից հետո կարող եք փակել VBA խմբագիրը:
  3. Ավելի ուշ, ընտրեք էլփոստը և սեղմեք մակրո կոճակը Արագ մուտքի գործիքագոտում:Run Macro- ն Արագ մուտքի Գործիքադարակի միջոցով
  4. Երբ մակրոն ավարտվի, կարող եք անցնել նախապես որոշված ​​տեղական պանակ ՝ այս էլ-նամակից արտահանված պատկերի ֆայլը գտնելու համար:Արտահանված պատկերի ֆայլ

Վերականգնել Outlook- ի տվյալները կոռումպացված ֆայլից

Դուք կարող եք բավականին նյարդայնանալ, եթե ձեր Outlook ֆայլը լուրջ վնասվի։ Այդ դեպքում դուք կշարունակեք Outlook-ի տվյալները հանել վնասված ֆայլից։ Որոշ օգտատերեր հակված կլինեն օգտագործելու էլ. փոստի վերականգնման գործիքը։ Սակայն, մեծ մասամբ, դա արդյունք չի տա։ Հետևաբար, ավելի լավ է պահպանել հզոր և հուսալի PST շտկում գործիք, ինչպիսիք են DataNumen Outlook Repair, Այն կարող է սկանավորել կոռումպացված ֆայլը և հետ ստանալ առավելագույն տվյալներ ՝ առանց որևէ աղմուկի:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում mdf շտկել և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: