Seçilmiş Outlook e-poçtlarında əlavələrin ümumi sayını necə tez əldə etmək olar

Sizdən seçilmiş e-poçtlardakı e-poçt qoşmalarının sayını hesablamağınız tələb olunubmu? Onları əl ilə saysanız, yorucu olacaq. Burada Outlook VBA ilə hesablamağı çox asan və tez etməyə kömək edəcəyik.

Bəzi səbəblərə görə, Outlook e-poçtlarındakı əlavələrin sayını saymaq lazım ola bilər. Sadəcə bir e-poçtdakı əlavələrin sayını almaq istəyirsinizsə, bu, xeyli asan olacaq. Lakin bir neçə e-poçtdakı əlavələri saymaq istəyirsinizsə, əl ilə saymaq çox çətin olacaq. Ümumiyyətlə, ən çox yayılmış yollardan biri bütün əlavələri kompüterinizdəki yerli qovluğa saxlamaqdır. Sonra onları seçin və Windows Explorer status çubuğunda seçilmiş elementlərin sayını sizə bildirəcək.

Bununla belə, bu metodun hələ də olduqca çətin olduğunu inkar etmək olmaz. Əslində, Outlook VBA vasitəsilə siz seçilmiş Outlook e-poçtlarında əlavələrin ümumi sayını tez əldə edə bilərsiniz. Ətraflı VBA kodlarını və addımlarını öyrənmək üçün oxuyun.

Seçilmiş E-poçtlarda Qoşmaların ümumi sayını tez əldə edin

1. Əvvəlcə Outlook proqramını işə salın və "Developer" sekmesine keçin.
2. Sonra “Visual Basic” düyməsini sıxa bilərsiniz. Sizi “Proqramlar üçün Microsoft Visual Basic” pəncərəsinə gətirəcək.
3. Sonra istifadə olunmayan yeni modul açmalısınız. "Daxil et" > "Modul" seçin.
4. Bundan sonra, aşağıdakı VBA kodlarını kopyalayıb ona yapışdırmalısınız.

Sub CountAttachmentsinSelectedEmails()
    Dim olSel As Selection
    Dim oMail As Object
    Dim AttCount As Long
    Dim strMsg As String
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each oMail In olSel
        'To confirm if the selected items are all emails
        If oMail.Class <> olMail Then
           strMsg = "Please select mail items only!"
           nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
           Exit Sub
        End If
        'Get the total number of the attachments in selected emails
        AttCount = oMail.Attachments.Count + AttCount
    Next
 
    strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
    nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub

5. Daha sonra siz “Visual Basic” pəncərəsindən çıxıb Outlook əsas pəncərəsinə qayıda bilərsiniz. Sonra Tez Giriş Alətlər Panelində aşağı oxu tapıb basmalı və açılan siyahıdan “Daha çox əmrlər”i seçməlisiniz.
6. Daha sonra aşağıdakı şəkildə göstərilən addımları izləyin.
7. Nəhayət, bir cəhd edə bilərsiniz.

• Bir neçə e-məktub seçdikdən sonra Tez Giriş Alətlər Panelində yeni düyməni vura bilərsiniz. Sonra, seçilmiş e-poçtlardakı qoşmaların sayını bildirən bir mesaj alacaqsınız. Aşağıdakı şəkilə bənzəyir:
• Lakin e-poçt əvəzinə sorğu və ya cavab verən elementləri seçsəniz, aşağıdakı şəkildəki kimi bir xəbərdarlıq alacaqsınız:

Təsadüfi Outlook Problemlərinə reaksiya verin

Əgər siz onilliklər ərzində Outlook-dan istifadə etmisinizsə, Outlook-un cavab verməməsi, Outlook-un donması, tez-tez səhv mesajları və Outlook PST e-poçtunun korlanması və s. Bunları həll etmək üçün hər hansı bir hiyləni artıq mənimsəmisinizmi? Ümumiyyətlə, Outlook-u təhlükəsiz rejimdə işə sala, yeni Outlook profili yarada, ofisi təmir edə və üçüncü tərəf əlavələrini deaktiv edə və s. Bundan əlavə, yaxınlığınızda güclü bir təmir vasitəsi də saxlamalısınız, məsələn DataNumen Outlook Repair. Həm ehtiyat nüsxələri, həm də gələnlər qutusunu təmir etmə aləti uğursuz olduqda faydalı olacaq.

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 pozulmuş SQL məlumatlarını təmir edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com