Yazdırılan Her Outlook E-postasını Excel Çalışma Kitabında Otomatik Günlüğe Kaydetme

Bazı kullanıcılar, yazdırılan e-postaların günlüklerini Outlook'larına otomatik olarak kaydetmeyi umuyor. Ancak, böyle doğrudan bir özellik mevcut değildir. Bu nedenle, bu makalede, yazdırılan her e-postayı belirli bir Excel çalışma kitabına otomatik olarak kaydetmenin bir yolunu tanıtacağız.

Bazı nedenlerden dolayı, bir e-postayı yazdırırken bilgilerini kaydetmeniz gerekebilir. Açıkçası, Outlook bunu destekleyen yerel bir özellik sağlamıyor. Bu nedenle, genel olarak, bu görevi manuel olarak gerçekleştirmeniz gerekir. Bununla birlikte, VBA kodunun yardımıyla, Outlook'unuzun bu görevi kolaylıkla üstlenmesine izin verebilirsiniz. Şimdi, işte size böyle bir VBA kodunu ve ayrıntılı adımları ortaya çıkaracağız.

Excel Çalışma Kitabında Yazdırılan Her E-postayı Otomatik Günlüğe Kaydet

1. olaraktart, Outlook uygulamasını başlatın.
2. Ardından, "Geliştirici" sekmesindeki "Visual Basic" düğmesine tıklayarak VBA düzenleyicisine erişin.
3. Ardından, aşağıdaki VBA kodunu kullanılmayan bir modüle yerleştirin.

Sub RecordPrintedEmails()
    Dim objMail As Outlook.MailItem
    Dim objExcelApp As Excel.Application
    Dim strExcelFile As String
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
 
    'Get the mail
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    objMail.PrintOut
 
    On Error Resume Next
    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
 
    'Change the path to the specific excel file
    strExcelFile = "E:\Emails\Printed Emails.xlsx"
    Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
    objExcelWorksheet.Activate
 
    nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
    'Change the details as per your own case
    With objExcelWorksheet
         .Cells(nNextEmptyRow, 1) = Date
         .Cells(nNextEmptyRow, 2) = objMail.Subject
         .Cells(nNextEmptyRow, 3) = objMail.Sender
         .Cells(nNextEmptyRow, 4) = objMail.SentOn
         .Cells(nNextEmptyRow, 5) = objMail.Size
         .Cells(nNextEmptyRow, 6) = objMail.Attachments.Count
         .Columns("A:E").AutoFit
    End With
 
    objExcelWorkbook.Close True
    objExcelApp.Quit
End Sub

4. Bundan sonra, VBA düzenleyicisinden çıkın.
5. Akabinde, p'deki "Opsiyonel Adım"a göreost "Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?", bu makroyu şeride veya Hızlı Erişim Araç Çubuğuna ekleyin.
6. O zamandan beri, her e-posta yazdırmak istediğinizde, standart "Yazdır" yerine yeni eklenen makro düğmesini kullanmayı unutmayın.
7. Bu şekilde Outlook, yazdırılan postayı önceden tanımlanmış Excel çalışma sayfasına otomatik olarak kaydeder.

Outlook Dosyasını Erişilebilir Tutun

Bazen, Outlook çöktükten sonra, PST dosyasının erişilemez olduğunu soran bir hata alabilirsiniz. O zaman sakinleşmeli ve ardından gelen kutusu onarım aracını kullanmalısınız. Outlook'u düzelt. Ancak, yerleşik yardımcı program çok yönlü değildir. O da başarısız olabilir. Bu nedenle, Scanpst onarımından sonra PST dosyanız hala kullanılamıyorsa, son başvurunuz daha etkili ve güvenilir bir harici araçtır. DataNumen Outlook Repair.

Yazar Tanıtımı:

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