Outlook elektron pochtasini rasm fayli sifatida qanday tezda eksport qilish mumkin

Ba'zi foydalanuvchilar Outlook elektron pochtasini jpg fayli kabi rasm fayli sifatida eksport qilishni xohlashadi. Shuning uchun, ushbu maqolada biz sizni Outlook VBA kodi orqali qanday qilib olish kerakligini tanishtiramiz.

Siz elektron pochtani matnli fayl, Word hujjati va boshqalar sifatida eksport qilish uchun turli xil fokuslarni o'rgangan bo'lishingiz kerak. Keyin elektron pochtani JPG fayli kabi rasm sifatida eksport qilish haqida nima deyish mumkin? Ko'rinishidan, Outlookda bu funksiya yo'q. Ammo bundan keyin biz siz bilan tezkor vositalarni baham ko'ramiz.

Outlook elektron pochta xabarini rasm fayli sifatida tezda eksport qiling

1. Boshlash uchun Outlook ilovangizni ishga tushiring.
2. Keyin, asosiy Outlook oynasida maqolaga muvofiq VBA muharririga kirish huquqiga ega bo'ling - "Outlook-da VBA kodini qanday ishlatish kerak".
3. Keyin, “MS Word obyekt kutubxonasi” va “MS” ni yoqing PowerPoint "Obyektlar kutubxonasi" maqolasiga murojaat qilib – "VBA da obyekt kutubxonasi havolasini qanday qo'shish mumkin".
4. Keyin, quyidagi VBA kodini nusxa ko'chiring va bo'sh modulga joylashtiring.

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

5. Shundan so'ng, makrosni Tez kirish asboblar paneliga qo'shishingiz kerak.
6. Keyinchalik, VBA muharririni yopishingiz mumkin.
7. Keyinchalik, elektron pochtani tanlang va Tez kirish asboblar panelidagi so'l tugmasini bosing.
8. Makros tugallangach, ushbu elektron pochtadan eksport qilingan rasm faylini topish uchun oldindan belgilangan mahalliy jildga o'tishingiz mumkin.

Buzilgan fayldan Outlook ma'lumotlarini oling

Agar Outlook faylingiz jiddiy shikastlangan bo'lsa, siz juda asabiylashishingiz mumkin. Bunday holda, siz buzilgan fayldan Outlook ma'lumotlarini chiqarib olasiz. Ba'zi foydalanuvchilar pochta qutisini ta'mirlash vositasidan foydalanishga moyil bo'ladilar. Biroq, ko'p hollarda bu natija bermaydi. Shuning uchun, siz ishonchli va ishonchli faylni saqlashingiz kerak. PST tuzatish kabi vosita DataNumen Outlook Repair. U buzilgan faylni skanerlashi va hech qanday shovqinsiz maksimal ma'lumotlarni qaytarib olishi mumkin.

Muallif kirish:

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