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

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

Na primjer, dovršili ste neke nove e-poruke, ali ih niste poslali, samo ih držite otvorenima. I nakon toga, želite ih poslati. U principu, morate kliknuti na dugme „Pošalji“ u svakoj e-poruci jedan po jedan. Pod ovim okolnostima, morate čeznuti za metodom koja vam može podržati slanje svih otvorenih i sastavljenih e-poruka na veliko.

U nastavku ćemo vam izložiti ovako efikasan 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.

Grupno slanje svih otvorenih i sastavljenih e-poruka

1. Za početak, možete sastaviti svoje e-poruke kao i obično i držati ih otvorenima.
2. Zatim pritisnite “Alt + F11” da pristupite 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, aktivirajte ovaj makro ili direktnim pritiskom na tipku “F5”.
5. Konačno, kada se makro završi, dobićete upit o broju 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

Da li ste se ikada ranije susreli sa korupcijom u Outlooku? Mnogi korisnici su bili predmet ovog problema i žalili su se na njega. Općenito, ako donesete pravovremena i efikasna rješenja, možete lako preuzeti podatke iz Outlooka oštećen PST fajl. Na primjer, ako imate ažurirane Outlook podatke, lako se možete vratiti na sigurnosnu kopiju. Naravno, možete uzeti u obzir odličan i pouzdan alat za popravku, npr DataNumen Outlook Repair, koji može skenirati oštećenu Outlook datoteku i oporaviti maksimum podataka.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com