Outlook-da bütün açıq və tərtib edilmiş e-poçtları toplu şəkildə necə göndərmək olar

Outlook-da bəzi e-poçtları yazmağı bitirdikdən sonra onları bir anda göndərməyi ümid edə bilərsiniz. İndi bu məqalədə biz sizə VBA kodunun köməyi ilə onu necə əldə etməyi öyrədəcəyik.

Məsələn, bəzi yeni e-poçtları tamamladınız, lakin onları göndərmədiniz, sadəcə onları açıq saxladınız. Və sonra onları göndərmək istəyirsən. Ümumiyyətlə, hər e-poçtda bir-bir “Göndər” düyməsini sıxmalısınız. Bu vəziyyətdə, bütün açıq və tərtib edilmiş e-poçtları toplu şəkildə göndərmək üçün sizə dəstək ola biləcək bir üsula can atmalısınız.

Aşağıda sizə belə təsirli bir üsul təqdim edəcəyik. VBA istifadə edir. VBA-dan necə istifadə edəcəyinizi bilmirsinizsə, məqaləyə müraciət edə bilərsiniz – “Outlook-da VBA kodunu necə işlətmək olar” bu arada.

Bütün Açıq və Hazırlanmış E-poçtları Toplu Göndər

1. Başlamaq üçün, siz həmişəki kimi e-poçtlarınızı tərtib edə və onları açıq saxlaya bilərsiniz.
2. Sonra VBA redaktoruna daxil olmaq üçün "Alt + F11" düyməsini basın.
3. Sonra, yeni pəncərədə aşağıdakı VBA kodunu modula köçürün.

Sub BatchSendOutAllOpenEmails()
    Dim objInspectors As Outlook.Inspectors
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim lMailCount As Long
 
    'Get all open items in your Outlook
    Set objInspectors = Outlook.Application.Inspectors
 
    lMailCount = 0
    For i = objInspectors.Count To 1 Step -1
        If objInspectors.Item(i).CurrentItem.Class = olMail Then
           'Get all open emails
           Set objMail = objInspectors.Item(i).CurrentItem
 
           'Send out open emails that contain subject & recipients
           If objMail.Subject <> "" Then
              If objMail.Recipients.Count > 0 Then
                 objMail.Send
                 lMailCount = lMailCount + 1
              End If
           End If
        End If
    Next
 
    'Prompt you of the results
    MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub

4. Bundan sonra, birbaşa "F5" düyməsini basaraq bu makronu işə salın.
5. Nəhayət, makro tamamlandıqda, göndəriləcək e-poçtların sayı barədə məlumat alacaqsınız.
6. İndi, əvvəllər açılmış bütün e-poçtların göndərildiyini görə biləcəyiniz Gedənlər qutusunu açın.

Gözlənilməz zərərdən Outlook-u bərpa edin

Daha əvvəl Outlook korrupsiyası ilə qarşılaşmısınızmı? Bir çox istifadəçi bu problemlə üzləşib və bundan şikayətlənib. Ümumiyyətlə, siz vaxtında və effektiv həllər tapsanız, Outlook məlumatlarını asanlıqla əldə edə bilərsiniz zədələnmiş PST fayl. Məsələn, yenilənmiş Outlook məlumatınız varsa, asanlıqla ehtiyat nüsxəyə qayıda bilərsiniz. Əlbəttə ki, kimi əla və etibarlı təmir alətindən kömək ala bilərsiniz DataNumen Outlook Repair, zədələnmiş Outlook faylını skan edə və maksimum məlumatları bərpa edə bilə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 bərpa və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com