Outlook-da barcha ochiq va tuzilgan elektron pochta xabarlarini qanday qilib ommaviy yuborish kerak

Outlook-da ba'zi elektron pochta xabarlarini yozishni tugatganingizdan so'ng, ularni bir vaqtning o'zida yuborishingiz mumkin. Endi ushbu maqolada VBA kodi yordamida uni qanday olishni o'rgatamiz.

Misol uchun, siz ba'zi yangi elektron pochta xabarlarini to'ldirdingiz, lekin ularni jo'natmadingiz, faqat ularni ochiq qoldirasiz. Va keyin siz ularni jo'natmoqchisiz. Umuman olganda, har bir elektron pochta xabarida "Yuborish" tugmasini birma-bir bosishingiz kerak. Bunday holda, siz barcha ochiq va tuzilgan elektron pochta xabarlarini ommaviy ravishda yuborishingiz mumkin bo'lgan usulni orzu qilishingiz kerak.

Quyida biz sizga shunday samarali usulni taqdim etamiz. U VBA dan foydalanadi. VBA dan qanday foydalanishni bilmasangiz, maqolaga murojaat qilishingiz mumkin – “Outlook-da VBA kodini qanday ishlatish kerak” shu bilan birga.

Barcha ochiq va tuzilgan elektron pochta xabarlarini to'plamga yuborish

1. Boshlash uchun siz odatdagidek elektron pochta xabarlaringizni yozishingiz va ularni ochiq saqlashingiz mumkin.
2. Keyin VBA muharririga kirish uchun "Alt + F11" tugmasini bosing.
3. Keyin, yangi oynada quyidagi VBA kodini modulga nusxalang.

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. Shundan so'ng, to'g'ridan-to'g'ri "F5" tugmachasini bosish orqali ushbu makrosni ishga tushiring.
5. Nihoyat, so'l tugallangach, sizga yuboriladigan elektron pochta xabarlari soni so'raladi.
6. Endi, Chiqish qutisini oching, unda siz avval ochilgan barcha elektron pochta xabarlari yuborilayotganligini ko'rishingiz mumkin.

Outlookni kutilmagan zarardan tiklang

Siz ilgari Outlook korruptsiyasiga duch kelganmisiz? Ko'pgina foydalanuvchilar ushbu muammoga duch kelishdi va bu haqda shikoyat qilishdi. Umuman olganda, agar siz o'z vaqtida va samarali echimlar qilsangiz, Outlook ma'lumotlarini osongina olishingiz mumkin shikastlangan PST fayl. Misol uchun, agar sizda yangilangan Outlook ma'lumotlari bo'lsa, zahiraga osongina qaytishingiz mumkin. Albatta, siz mukammal va ishonchli ta'mirlash vositasidan yordam olishingiz mumkin, masalan DataNumen Outlook Repair, bu buzilgan Outlook faylini skanerlashi va maksimal ma'lumotlarni qayta tiklashi mumkin.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sqlni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com