Bir Outlook E-postasını Görüntü Dosyası Olarak Hızlı Bir Şekilde Dışa Aktarma

Bazı kullanıcılar bir Outlook e-postasını jpg dosyası gibi bir resim dosyası olarak dışa aktarmak ister. Bu nedenle bu yazımızda sizlere Outlook VBA kodu ile nasıl alacağınızı anlatacağız.

Bir e-postayı metin dosyası, Word belgesi vb. olarak dışa aktarmak için çeşitli püf noktaları öğrenmiş olmalısınız. O zaman, bir e-postayı JPG dosyası gibi resim olarak dışa aktarmaya ne dersiniz? Görünüşe göre, Outlook'un bu işlevi yok. Ancak bundan sonra sizinle hızlı bir yöntem paylaşacağız.

Bir Outlook E-postasını Görüntü Dosyası Olarak Hızla Dışa Aktarın

1. Öncelikle Outlook uygulamanızı başlatın.
2. Ardından, ana Outlook penceresinde, makaleye göre VBA düzenleyicisine erişin – “Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız? anlayışının sonucu olarak, buzdolabında iki üç günden fazla durmayan küçük şişeler elinizin altında bulunur.
3. Ardından, “MS Word Nesne Kitaplığı” ve “MS” seçeneklerini etkinleştirin. PowerPoint "Nesne Kütüphanesi" başlıklı makaleye atıfta bulunarak –VBA'da Nesne Kütüphanesi Referansı Nasıl Eklenir? anlayışının sonucu olarak, buzdolabında iki üç günden fazla durmayan küçük şişeler elinizin altında bulunur.
4. Ardından, aşağıdaki VBA kodunu kopyalayıp boş bir modüle yapıştırın.

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. Bundan sonra, makroyu Hızlı Erişim Araç Çubuğuna eklemeniz gerekir.
6. Daha sonra, VBA editörünü kapatabilirsiniz.
7. Daha sonra bir e-posta seçin ve Hızlı Erişim Araç Çubuğundaki makro düğmesine basın.
8. Makro tamamlandığında, bu e-postadan dışa aktarılan görüntü dosyasını bulmak için önceden tanımlanmış yerel klasöre gidebilirsiniz.

Outlook Verilerini Bozuk Dosyadan Al

Outlook dosyanız ciddi şekilde hasar görürse oldukça sinir bozucu olabilir. Bu durumda, hasar görmüş dosyadan Outlook verilerini kurtarmaya çalışacaksınız. Bazı kullanıcılar gelen kutusu onarım aracını kullanma eğilimindedir. Ancak çoğu zaman bu işe yaramaz. Bu nedenle, güçlü ve güvenilir bir çözüm bulmanız daha iyidir. PST düzeltmesi araç, örneğin DataNumen Outlook Repair. Bozuk dosyayı tarayabilir ve herhangi bir sorun yaşamadan maksimum veriyi geri alabilir.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf düzeltme ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com