Excel жұмыс кітабында әрбір басылған Outlook электрондық поштасын автоматты түрде тіркеу әдісі

Кейбір пайдаланушылар басылған электрондық пошта журналдарын өздерінің 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 «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«, Бұл макросты лентаға немесе жылдам қол жеткізу құралдар тақтасына қосыңыз.
6. Содан бері, электрондық поштаны басып шығарғыңыз келген сайын, стандартты «Басып шығару» орнына жаңадан қосылған макро батырманы қолдануды ұмытпаңыз.
7. Осылайша, Outlook бағдарламасы алдын ала анықталған Excel жұмыс парағында басылған поштаны автоматты түрде тіркейді.

Outlook файлын қол жетімді етіп сақтаңыз

Кейде, Outlook бұзылғаннан кейін, сіз PST файлына қол жетімді еместігі туралы қате жіберуіңіз мүмкін. Сол кезде сіз тынышталып, кіріс поштасын жөндеу құралын қолданғаныңыз жөн Outlook бағдарламасын түзетіңіз. Алайда, кіріктірілген утилита жан-жақты емес. Ол да сәтсіздікке ұшырауы мүмкін. Демек, егер сіздің PST файлыңыз Scanpst жөндеуден кейін әлі қол жетімді болмаса, онда сіздің соңғы құрал - тиімді және сенімді сыртқы құрал, мысалы DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com