Excel İş Kitabında Hər Çap edilmiş Outlook E-poçtunu Avtomatik Daxil Etmək necə

Bəzi istifadəçilər Outlook-da çap olunmuş e-poçtların qeydlərini avtomatik saxlamağa ümid edirlər. Ancaq belə bir birbaşa xüsusiyyət mövcud deyil. Beləliklə, bu məqalədə hər çap edilmiş e-poçtu xüsusi Excel iş kitabına avtomatik daxil etməyin bir yolunu təqdim edəcəyik.

Bəzi səbəblərə görə, e-poçtu çap edərkən onun məlumatını qeyd etməli ola bilərsiniz. Aydındır ki, Outlook bunu dəstəkləyən yerli xüsusiyyət təmin etmir. Beləliklə, ümumiyyətlə, bu tapşırığı əl ilə yerinə yetirməlisiniz. Buna baxmayaraq, VBA kodunun köməyi ilə siz hələ də Outlook-un bu missiyanı asanlıqla yerinə yetirməsinə icazə verə bilərsiniz. İndi biz sizə belə bir VBA kodunu və ətraflı addımları açacağıq.

Hər Çap E-poçtunu Excel İş Kitabında avtomatik qeyd edin

1. Kimi üçüntart, Outlook proqramını işə salın.
2. Sonra, "Developer" sekmesinde "Visual Basic" düyməsini klikləməklə VBA redaktoruna daxil olun.
3. Sonra, aşağıdakı VBA kodunu istifadə olunmamış modula qoyun.

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 redaktorundan çıxın.
5. Sonradan, səhost "Outlook-da VBA kodunu necə işlətmək olar", bu makronu lentə və ya Tez Giriş Alətlər Panelinə əlavə edin.
6. O vaxtdan bəri hər dəfə e-poçtu çap etmək istədiyiniz zaman standart “Çap et” əvəzinə yeni əlavə edilmiş makro düyməsini istifadə etməyi unutmayın.
7. Beləliklə, Outlook çap olunmuş məktubu əvvəlcədən təyin edilmiş Excel iş vərəqinə avtomatik daxil edəcək.

Outlook faylını əlçatan saxlayın

Bəzən, Outlook çökdükdən sonra, PST faylının əlçatmaz olduğunu bildirən xəta ala bilərsiniz. O zaman siz sakitləşməli və sonra gələnlər qutusunu təmir etmək üçün alətdən istifadə etməlisiniz Outlook-u düzəldin. Bununla birlikdə, daxili yardım proqramı çox yönlü deyil. Bu da uğursuz ola bilər. Beləliklə, Scanpst təmirindən sonra PST faylınız hələ də əlçatmazdırsa, son çarəniz daha effektiv və etibarlı xarici alətdir, məsələn DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf bərpası və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com