Кейбір қолданушылар тіркемелер туралы ақпаратты әр келген электрондық поштаға автоматты түрде жазғысы келеді. Бұл мақала оны жүзеге асырудың тез уақыт бөліседі.
Егер сіз әр Outlook электрондық поштасының тіркеме ақпаратын Excel файлына экспорттауға дағдыланған болсаңыз, Outlook бағдарламасына автоматты түрде жұмыс істеуге мүмкіндік беретін кейбір тәсілдерді күтуіңіз мүмкін. Осылайша, сіз тіркемелерді қолмен бақылаудан арыласыз. Бақытымызға орай, Outlook мұндай тікелей мүмкіндікті қамтамасыз етпесе де, сіз оны сәл сценариймен қол жеткізе аласыз. Енді біз сізге бірте-бірте үйретеміз.
Кіріс хаттарының тіркеме ақпаратын Excel бағдарламасына автоматты түрде экспорттау
- Алдымен Outlook қосымшасын іске қосыңыз.
- Содан кейін «Alt + F11» арқылы VBA редакторына барыңыз.
- Келесі, келесі VBA кодын модульге көшіріңіз.
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
- Осыдан кейін VBA редакторынан шығыңыз.
- Әрі қарай, электрондық поштаға осы макросты автоматты түрде қосу ережесін жасаңыз.
- Алдымен «Файл» мәзіріне өтіңіз.
- Содан кейін «Ережелер мен ескертулерді басқару» батырмасын басыңыз.
- «Ережелер мен ескертулер» диалогтық терезесінде «Жаңа ереже» батырмасын басыңыз.
- «Ережелер шебері» диалогтық терезесінде «Мен алған хабарламаларға ережені қолдану» тармағын таңдап, «Келесі» батырмасын басыңыз.
- Әрі қарай, сіздің қажеттіліктеріңізге сәйкес ереже шарттарын орнатыңыз және «Келесі» түймесін басыңыз.
- «Әрекеттерді таңдау» қадамында «Сценарийді іске қосу» тармағын таңдап, «AutoExportAttachmentInfo» сценарийін таңдаңыз.
- Соңында, ережелерді орнатуды аяқтау үшін экрандағы шеберлерді орындаңыз.
- Бұдан былай сіздің пошта жәшігіңізге жаңа электрондық пошта келген сайын, егер оның тіркемелері болса, Outlook тіркеме туралы ақпаратты алдын ала анықталған Excel файлына автоматты түрде экспорттайды.
Күдікті тіркемелерді ешқашан жүктемеңіз
Сізге белгісіз жіберушілерден келген және тіркемелері бар электрондық хаттар келді ме? Әдетте, мұндай тіркемелерге олар вирустармен бірге болатындығына сенім артпау ұсынылады. Оларды жүктегенше, сіздің Outlook деректеріңізге вирус жұқтырылуы мүмкін. Сол кезде сізге қажет болады Outlook бағдарламасын түзетіңіз файл. Сияқты шебер жөндеу құралына жүгінбесеңіз, бұл түйін екені рас DataNumen Outlook Repair.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. қалпына келтіру Sql Server және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com