Cara Cepat Mengekspor Email Outlook sebagai File Gambar

Beberapa pengguna ingin mengekspor email Outlook sebagai file gambar, seperti file jpg. Oleh karena itu, dalam artikel ini, kami akan memperkenalkan cara mendapatkannya melalui kode VBA Outlook.

Anda pasti sudah mempelajari berbagai trik untuk mengekspor email sebagai file teks, dokumen Word, dan sebagainya. Lalu, bagaimana kalau mengekspor email sebagai gambar seperti file JPG? Rupanya, Outlook tidak memiliki fungsi ini. Tapi, selanjutnya, kami akan berbagi cara cepat dengan Anda.

Ekspor Email Outlook dengan Cepat sebagai File Gambar

1. Sebagai langkah awal, luncurkan aplikasi Outlook Anda.
2. Kemudian, di jendela Outlook utama, dapatkan akses ke editor VBA sesuai dengan artikel - “Cara Menjalankan Kode VBA di Outlook Anda".
3. Selanjutnya, aktifkan “MS Word Object Library” dan “MS PowerPoint “Pustaka Objek” dengan merujuk pada artikel – “Cara Menambahkan Referensi Pustaka Objek di VBA".
4. Selanjutnya, salin dan tempel kode VBA berikut ke dalam modul kosong.

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. Setelah itu, Anda perlu menambahkan makro ke Bilah Alat Akses Cepat.
6. Selanjutnya, Anda dapat menutup editor VBA.
7. Nanti, pilih email dan tekan tombol makro di Bilah Alat Akses Cepat.
8. Saat makro selesai, Anda dapat membuka folder lokal yang telah ditentukan sebelumnya untuk menemukan file gambar yang diekspor dari email ini.

Ambil Data Outlook dari File Rusak

Anda mungkin akan merasa sangat frustrasi jika file Outlook Anda mengalami kerusakan parah. Dalam skenario tersebut, Anda akan berupaya mengekstrak data Outlook dari file yang rusak. Beberapa pengguna cenderung menggunakan alat perbaikan kotak masuk. Namun, sebagian besar waktu, hal itu tidak akan efektif. Oleh karena itu, sebaiknya Anda memiliki alat yang andal dan terpercaya. Perbaikan PST alat, seperti DataNumen Outlook Repair. Itu dapat memindai file yang rusak dan mendapatkan kembali data maksimum tanpa keributan.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com