E-poçt siyahısındakı hər bir e-poçtdakı qoşmaların sayını tez bir zamanda əldə etmək istəyirsinizsə, bu məqalədə VBA kodundan istifadə edə bilərsiniz. O, hər gələn e-poçtdakı qoşmaları avtomatik hesablayacaq və sayı yeni sütunda göstərəcək.
Bəzi istifadəçilər tez-tez e-poçt əlavələrini saymalıdırlar. Bu ssenaridə niyə qoşma sayını göstərmək üçün eksklüziv sütun yaratmaya və aktivləşdirməyək? Aşağıda sizə Outlook-un e-poçt qoşmalarını avtomatik saymağı və bu cür yeni sütunda sayını göstərməyi öyrədəcəyik.
E-poçt Siyahısında Qoşmaların sayını göstərin
- Başlamaq üçün Outlook tətbiqinizi işə salın.
- Sonra əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
- Növbəti yeni Outlook VBA redaktoru pəncərəsində istifadə olunmayan modulu açmalısınız.
- Sonradan aşağıdakı VBA kodunu kopyalayıb bu modula yapışdırın.
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
- Bundan sonra, cari "Proqramlar üçün Microsoft Visual Basic" pəncərəsindən çıxa bilərsiniz.
- Daha sonra hər gələn e-poçtda bu skripti işlətmək üçün yeni qayda yaratmalısınız.
- Əvvəlcə "Fayl" menyusuna gedin və "Məlumat" sekmesinde "Qaydaları və xəbərdarlıqları idarə et" düyməsini basın.
- Sonra yeni informasiya qutusunda "Yeni Qayda" düyməsini basın.
- Sonrakı "Qayda Sihirbazı" ekranında "Qəbul etdiyim mesajlara qayda tətbiq et" seçin və "Növbəti" düyməsini basın.
- Sonra "Şərtləri seçin" maddəsinə məhəl qoymayın və "Sonrakı" düyməsini basın.
- Sonra "skript işlət" əməliyyatını seçin və aşağıdakı ekran görüntüsü kimi əvvəllər əlavə edilmiş makronu seçin.
- Bundan sonra, son "Qaydaların quraşdırılmasını tamamlayın" ekranına çatana qədər bir neçə "Növbəti" düyməsini basın.
- Daha sonra bu qayda üçün yeni ad təyin etməli və “Bu qaydanı artıq “Gələnlər qutusunda” olan mesajlarda işlət” və “Bu qaydanı aktiv et” seçimini aktiv etməlisiniz.
- Nəhayət, "Bitir" düyməsini basın.
- Bundan sonra, VBA kodu ilə yaradılmış "Qoşma sayı" sütununu əlavə etməlisiniz. Sadəcə aşağıdakı addımları yerinə yetirin:
- Əvvəlcə e-poçt siyahısı ekranında "Görünüş" sekmesine keçin.
- Sonra "Parametrlərə bax" düyməsini basın.
- Yeni açılan informasiya qutusunda "Sütunlar" düyməsini basın.
- Sonra "Sütunları göstər" pəncərəsində "Gələnlər qutusunda istifadəçi tərəfindən müəyyən edilmiş sütunlar" altında "Qoşma sayı" sütununu tapıb seçin və "Əlavə et" düyməsini basın.
- Nəhayət, dəyişiklikləri saxlamaq üçün "OK" düyməsini basın.
- Nəhayət, e-poçt siyahısında aşağıdakı şəkildə göstərilən hər bir e-poçt üçün qoşma sayını göstərən “Qoşma sayı” sütununu görə bilərsiniz:
Əsəbiləşdirən PST məlumat itkisindən çəkinin
Heç kimin PST məlumat itkisini qəbul etməyə hazır olmadığına inanılır. Eyni şey sizin üçün də keçməlidir. Buna görə də, PST faylınızın məlumat ehtiyat nüsxəsini çıxarmaq və etibarlı bir düzəliş vasitəsi əldə etmək kimi bəzi ehtiyat tədbirləri görməlisiniz. DataNumen Outlook Repair. Mümkündür Outlook-u təmir edin tər tökmədən məsələlər.
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 sql düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com