Kako grupno poslati sve otvorene i sastavljene e-poruke u vašem Outlooku

Nakon što završite s pisanjem nekih poruka e-pošte u Outlooku, možete se nadati da ćete ih poslati odjednom. Sada ćemo vas u ovom članku naučiti kako ga dobiti uz pomoć VBA koda.

Na primjer, dovršili ste neke nove e-poruke, ali ih niste poslali, samo ih držite otvorenima. A poslije ih želite poslati van. Općenito, morate kliknuti gumb "Pošalji" u svakoj e-poruci jednu po jednu. Pod ovim okolnostima, morate čeznuti za metodom koja vam može pomoći da pošaljete sve otvorene i sastavljene e-poruke skupno.

U nastavku ćemo vam predstaviti takav učinkovit način. Koristi VBA. ako ne znate kako koristiti VBA, možete pogledati članak – “Kako pokrenuti VBA kod u vašem Outlooku” u međuvremenu.

Skupno slanje svih otvorenih i sastavljenih poruka e-pošte

1. Za početak, možete sastaviti svoje e-poruke kao i obično i držati ih otvorenima.
2. Zatim pritisnite “Alt + F11” za pristup VBA editoru.
3. Zatim u novom prozoru kopirajte sljedeći VBA kod u modul.

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. Nakon toga, pokrenite ovu makronaredbu izravnim pritiskom tipke "F5".
5. Na kraju, kada se makronaredba završi, dobit ćete upit za broj e-poruka koje treba poslati.
6. Sada otvorite Outbox, u kojem možete vidjeti da se šalju svi prethodno otvoreni emailovi.

Vratite Outlook od neočekivane štete

Jeste li se ikada prije susreli s oštećenjem Outlooka? Mnogi su se korisnici suočili s ovim problemom i žalili su se na njega. Općenito, ako donesete pravovremena i učinkovita rješenja, možete lako dohvatiti Outlook podatke iz oštećeni PST datoteka. Na primjer, ako imate ažurirane Outlook podatke, možete se jednostavno vratiti na sigurnosnu kopiju. Naravno, možete se poslužiti izvrsnim i pouzdanim alatom za popravak, kao što je DataNumen Outlook Repair, koji može skenirati oštećenu Outlook datoteku i oporaviti maksimalan broj podataka.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com