Ինչպես ինքնաբերաբար մուտքագրել յուրաքանչյուր տպագիր Outlook էլփոստի էլփոստ Excel գրքում

Որոշ օգտվողներ հույս ունեն իրենց Outlook- ում ավտոմատ կերպով պահպանել տպագիր էլփոստի տեղեկամատյանները: Այնուամենայնիվ, այդպիսի ուղղակի հատկություն չկա: Հետևաբար, այս հոդվածում մենք կներկայացնենք յուրաքանչյուր Excel տպագիր գրքում յուրաքանչյուր տպված էլ. Փոստը ավտոմատ կերպով մուտքագրելու եղանակ:

Ինչ-ինչ պատճառներով, հնարավոր է, որ անհրաժեշտ լինի արձանագրել էլփոստի տեղեկությունները այն տպելիս: Ակնհայտ է, որ Outlook- ը չի տրամադրում դրան աջակցող բնիկ հատկություն: Այսպիսով, ընդհանուր առմամբ, դուք պետք է ձեռքով կատարեք այս խնդիրը: Այնուամենայնիվ, VBA կոդի միջոցով դուք դեռ կարող եք թույլ տալ, որ ձեր Outlook- ը հեշտությամբ ստանձնի այս առաքելությունը: Այժմ, այստեղ մենք ձեզ կբացահայտենք VBA կոդի նման մի կտոր և մանրամասն քայլեր:

Ավտոմատ մուտքագրեք յուրաքանչյուր տպված էլփոստը Excel- ի աշխատանքային գրքում

1. Համար, ինչպեսtart, գործարկել Outlook ծրագիրը:
2. Դրանից հետո մուտք գործեք VBA խմբագիր ՝ սեղմելով «Մշակող» էջանիշի «Visual Basic» կոճակը:
3. Հաջորդը, տեղադրեք հետևյալ VBA կոդը չօգտագործված մոդուլի մեջ:

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. Դրանից հետո դուրս եկեք VBA խմբագրից:
5. Դրանից հետո, ըստ «Ընտրովի քայլի», էջost "Ինչպես գործարկել VBA կոդը ձեր Outlook- ում«, Այս մակրոը ավելացրեք ժապավենի կամ Արագ մատչելիության գործիքագոտում:
6. Այդ ժամանակից ի վեր, ամեն անգամ, երբ ցանկանում եք նամակ տպել, հիշեք, որ ստանդարտ «Տպելու» փոխարեն օգտագործեք նոր ավելացված մակրո կոճակը:
7. Այս եղանակով, Outlook- ը տպագիր նամակն ավտոմատ կերպով մուտք կգործի նախորոշված ​​Excel աշխատաթերթում:

Outlook ֆայլը մատչելի պահեք

Timesամանակ առ ժամանակ, Outlook- ի խափանումից հետո, կարող եք ստացվել այն սխալով, որը հուշում է, որ PST ֆայլը անհասանելի է: Այդ ժամանակ դուք պետք է հանգստանաք և այնուհետև օգտագործեք մուտքի արկղի վերանորոգման գործիքը շտկել Outlook- ը, Այնուամենայնիվ, ներկառուցված օգտակարությունը բազմակողմանի չէ: Դա նույնպես կարող է ձախողվել: Հետևաբար, եթե Scanpst- ի վերանորոգումից հետո ձեր PST ֆայլը դեռ անհասանելի է, ձեր վերջին միջոցը ավելի արդյունավետ և հուսալի արտաքին գործիք է, ինչպիսիք են DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում mdf վերականգնում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com