Егер сіз электрондық пошта тізіміндегі әрбір электрондық поштадағы тіркемелер санын жылдам алғыңыз келсе, сіз осы мақалада VBA кодын пайдалана аласыз. Ол әр электрондық поштадағы тіркемелерді автоматты түрде санап, жаңа бағанда санауды көрсетеді.
Кейбір пайдаланушыларға электрондық пошта тіркемелерін жиі санау қажет. Бұл сценарийде неге тіркеме санын көрсету үшін эксклюзивті баған құрып, қосуға болмайды? Келесіде біз сізге Outlook бағдарламасында электрондық пошта тіркемелерін автоматты түрде санауға және санауды осындай жаңа бағанда қалай көрсетуге болатынын үйретеміз.
Электрондық пошта тізіміндегі тіркемелер санын көрсету
- Бастау үшін Outlook қолданбаңызды іске қосыңыз.
- Содан кейін негізгі Outlook терезесінде «Alt + F11» батырмаларын басыңыз.
- Одан кейін жаңа Outlook VBA редакторы терезесінде пайдаланылмайтын модульді ашу керек.
- Кейіннен келесі модульге VBA кодын көшіріңіз және қойыңыз.
Sub AutoCountAttachments(objMail As Outlook.MailItem)
Dim objAttachments As Outlook.Attachments
Dim objProperties As Outlook.UserProperties
Dim objProperty As Outlook.UserProperty
Dim strPropertyName As String
Set objAttachments = objMail.Attachments
strPropertyName = "Attachment Count"
Set objProperties = objMail.UserProperties
'Check if there is already a column in this name
Set objProperty = objProperties.Find(strPropertyName, True)
If objProperty Is Nothing Then
'If not, add this column
Set objProperty = objProperties.Add(strPropertyName, olText, True)
End If
'Set the column value equal to the count of attachments
objProperty.value = objAttachments.Count
objMail.Save
End Sub
- Осыдан кейін сіз қазіргі «Қолданбаларға арналған Microsoft Visual Basic» терезесінен шыға аласыз.
- Кейінірек сіз осы сценарийді әр келген электрондық поштаға қосудың жаңа ережесін жасауыңыз керек.
- Біріншіден, «Файл» мәзіріне өтіп, «Ақпарат» қойындысының астындағы «Ережелер мен ескертулерді басқару» батырмасын басыңыз.
- Содан кейін жаңа диалог терезесінде «Жаңа ереже» батырмасын басыңыз.
- Келесі «Ережелер шебері» экранында «Мен алған хабарламаларға ережені қолдану» тармағын таңдап, «Келесі» түймесін басыңыз.
- Әрі қарай «Шарттарды таңдаңыз» дегенді ескермей, «Келесі» батырмасын басыңыз.
- Содан кейін «сценарийді іске қосу» әрекетін таңдап, келесі скриншот сияқты бұрын қосылған макросты таңдаңыз.
- Осыдан кейін «Ережені орнатуды аяқтау» экранына шыққанша бірнеше «Келесі» батырмасын басыңыз.
- Кейінірек сізге осы ереже үшін жаңа атауды көрсетіп, «Бұл ережені« Кіріс жәшігінде »бар хабарларда іске қосыңыз» және «Осы ережені қосыңыз».
- Соңында, «Аяқтау» батырмасын басыңыз.
- Осыдан кейін сіз VBA кодымен құрылған «Тіркемелер саны» бағанын қосуыңыз керек. Төмендегі қадамдарды орындаңыз:
- Алдымен электрондық пошта тізіміндегі «Көру» қойындысына өтіңіз.
- Содан кейін «Параметрлерді қарау» батырмасын басыңыз.
- Жаңа ашылған диалог терезесінде «Бағандар» батырмасын басыңыз.
- Содан кейін «Бағандарды көрсету» терезесінде «Кіріс жәшігіндегі пайдаланушы анықтаған бағандар» астындағы «Тіркемелер саны» бағанын таңдап, «Қосу» батырмасын басыңыз.
- Соңында өзгерістерді сақтау үшін «ОК» батырмасын басыңыз.
- Ақыр соңында, сіз электронды пошта тізімінен әр тіркеме үшін тіркеме санын көрсететін «Тіркемелер саны» бағанын көре аласыз, төмендегі суретте көрсетілген:
PST туралы деректерді жоғалтудан аулақ болыңыз
PST деректерінің жоғалуын ешкім қабылдауға дайын емес деп саналады. Сізге де солай болуы керек. Сондықтан сізге PST файлының сақтық көшірмесін жасау және беделді түзету құралын ұстау сияқты бірнеше сақтық шараларын қолдану қажет. DataNumen Outlook Repair. Ол істей алады Outlook бағдарламасын жөндеу тер төкпейтін мәселелер.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com