Paano Mag-batch Ipadala ang Lahat ng Buksan at Binubuo na Mga Email sa Iyong Outlook

Matapos mong matapos ang pagbuo ng ilang mga email sa Outlook, maaari kang umasa na maipadala ang mga ito nang sabay-sabay. Ngayon, sa artikulong ito, tuturuan ka namin kung paano ito makuha sa tulong ng VBA code.

Halimbawa, nakumpleto mo ang ilang mga bagong email ngunit hindi ipinadala ang mga ito, pinapanatili lamang silang bukas. At pagkatapos, nais mong palabasin sila. Sa pangkalahatan, kailangan mong i-click ang pindutang "Ipadala" sa bawat email nang paisa-isa. Sa ilalim ng pangyayaring ito, kailangan mong hanapin ang isang pamamaraan na maaaring suportahan ka upang maipadala ang lahat ng mga bukas at binubuo na mga email nang maramihan.

Sa mga sumusunod, ilalantad namin ang isang mabisang paraan sa iyo. Gumagamit ito ng VBA. kung hindi mo paano gamitin ang VBA, maaari kang mag-refer sa artikulo - “Paano Patakbuhin ang VBA Code sa Iyong Outlook" Samantala.

Ipadala ang Batch Lahat ng Buksan at Binuo na Mga Email

1. Upang magsimula sa, maaari kang sumulat ng iyong mga email tulad ng dati at panatilihing bukas ang mga ito.
2. Pagkatapos, pindutin ang "Alt + F11" upang ma-access ang VBA editor.
3. Susunod, sa bagong window, kopyahin ang sumusunod na VBA code sa isang module.

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. Pagkatapos nito, i-trigger ang macro na ito alinman sa pamamagitan ng pagpindot nang direkta sa pindutan ng "F5".
5. Panghuli, kapag nakumpleto ang macro, mahihiling ka sa bilang ng mga email na ipapadala.
6. Ngayon, buksan ang Outbox, kung saan maaari mong makita na ang lahat ng dati nang nabukhang mga email ay ipinapadala.

Ibalik ang Outlook mula sa Hindi Inaasahang Pinsala

Naranasan mo na ba ang katiwalian sa Outlook dati? Maraming mga gumagamit ang napapailalim sa isyung ito at nagreklamo tungkol dito. Sa pangkalahatan, kung gumawa ka ng napapanahon at mabisang mga solusyon, madali mong makuha ang data ng Outlook mula sa nasira ang PST file Halimbawa, kung mayroon kang isang na-update na data ng Outlook, madali kang makakabalik sa backup. Siyempre, maaari kang kumuha ng tulong ng isang mahusay at maaasahang tool sa pag-aayos, tulad ng DataNumen Outlook Repair, na maaaring mag-scan ng sira na file ng Outlook at mabawi ang maximum na data.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql paggaling at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa