Gələn Outlook E-poçtlarının Əlavə Məlumatlarını Excel İş Kitabına Avtomatik Eksport etmək

Bəzi istifadəçilər hər gələn e-poçtdakı qoşmaların məlumatlarını avtomatik qeyd etmək istəyirlər. Bu məqalə bunu asanlıqla həyata keçirmək üçün tez bir zamanda paylaşacaq.

Hər bir daxil olan Outlook e-poçtunun əlavə məlumatını Excel faylına ixrac etməyə vərdiş etmisinizsə, ola bilsin ki, Outlook-un bu işi avtomatik həyata keçirməsinə imkan verən bəzi yanaşmaları çox gözləyəcəksiniz. Beləliklə, siz əl ilə izləmə qoşmalarından xilas ola bilərsiniz. Xoşbəxtlikdən, Outlook belə birbaşa xüsusiyyəti təmin etməsə də, hələ də bir az skriptlə buna nail ola bilərsiniz. İndi sizə addım-addım öyrədəcəyik.

Daxil olan e-poçtların əlavə məlumatlarını Excel-ə avtomatik ixrac edin

1. Əvvəlcə Outlook proqramını işə salın.
2. Sonra "Alt + F11" vasitəsilə VBA redaktoruna keçin.
3. Sonra, aşağıdakı VBA kodunu modula köçürün.

Sub AutoExportAttachmentInfo(objMail As Outlook.MailItem)
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objAttachment As Outlook.Attachment
 
    If objMail.Attachments.Count > 0 Then
       'Change the path to the specific Excel file
       strExcelFile = "E:\Attachment Info.xlsx"
 
       Set objExcelApp = CreateObject("Excel.Application")
       objExcelApp.Visible = True
       Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
       Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
 
       'Export Attachment info to Excel
       For Each objAttachment In objMail.Attachments
           nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
           With objExcelWorksheet
                .Cells(nLastRow, 1) = objMail.Subject
                .Cells(nLastRow, 2) = objMail.SenderEmailAddress
                .Cells(nLastRow, 3) = objAttachment.FileName
                .Cells(nLastRow, 4) = objMail.ReceivedTime
           End With
       Next
 
       objExcelWorksheet.Columns("A:C").AutoFit
       objExcelWorkbook.Close True
       objExcelApp.Quit
    End If
End Sub

4. Bundan sonra VBA redaktorundan çıxın.
5. Sonradan, hər gələn e-poçtda bu makronu avtomatik işə salmaq üçün bir qayda yaradın.

• Əvvəlcə "Fayl" menyusuna keçin.
• Sonra "Qaydaları və Siqnalları İdarə et" düyməsini klikləyin.
• "Qaydalar və xəbərdarlıqlar" informasiya qutusunda "Yeni qayda" düyməsini basın.
• “Qayda Sihirbazı” informasiya qutusunda “Aldığım mesajlara qayda tətbiq et” seçin və “Növbəti” düyməsini basın.
• Sonra, ehtiyaclarınıza uyğun olaraq qayda şərtlərini təyin edin və "Sonrakı" düyməsini basın.
• “Fəaliyyətləri seçin” addımında “Skript işlət” seçin və “AutoExportAttachmentInfo” skriptini seçin.
• Nəhayət, qayda quraşdırmanı başa çatdırmaq üçün ekrandakı sehrbazları izləyin.

6. Bundan sonra, hər dəfə poçt qutunuza yeni e-poçt gələndə, əgər onun hər hansı qoşması varsa, Outlook əlavə məlumatını əvvəlcədən təyin edilmiş Excel faylına avtomatik ixrac edəcək.

Heç vaxt şübhəli əlavələri yükləməyin

Naməlum göndərənlərdən olan və əlavələri olan hər hansı e-poçt məktubu almısınız? Adətən, bu cür qoşmalara etibar etməmək tövsiyə olunur, çünki onlar viruslarla ola bilər. Siz onları endirdiyiniz müddətdə Outlook məlumatlarınız yoluxmuş ola bilər. Bu zaman sizə lazım olacaq Outlook-u düzəldin fayl. kimi təcrübəli təmir alətinə müraciət etməsəniz, şübhəsiz ki, düyünlüdür 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 bərpa edin Sql Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com