Kako grupno poslati više nacrta e-poruka s programom Outlook VBA

Iz nekih razloga možete spremiti mnogo nacrta e-poruka u svoj Outlook. Ovaj će vas članak naučiti kako grupno poslati sve ili samo odabrane jednim klikom, što je kreirano pomoću programa Outlook VBA.

Ponekad se možda ne nadate da ćete upravo sada poslati e-poštu. Stoga ćete ih spremiti u mapu Skice i namjeravate ih poslati kasnije. Kao i obično, kada želite poslati nacrte, morate ih otvoriti pojedinačno i pritisnuti gumb "Pošalji" jedan po jedan. Ako postoji velika količina nacrta za slanje, to će oduzeti dosta vremena. Stoga se mnogi korisnici nadaju da im Outlook može dopustiti slanje svih nacrta samo klikom na jedan gumb. Međutim, prema zadanim postavkama ne postoji takav gumb. Ali možete primijeniti Outlook VBA da biste ga stvorili. Ovdje su razrađeni koraci i VBA kodovi.

Skupno slanje svih nacrta e-pošte

1. Najprije pokrenite Outlook aplikaciju i pritisnite prečace “Alt + F11”.
2. Tada ćete otvoriti prozor VBA editora u kojem trebate otvoriti novi modul.
3. Nakon toga kopirajte i zalijepite sljedeće VBA kodove u njega.

Sub SendAllDraftEmails()
    Dim objDrafts As Outlook.Items
    Dim objDraft As Object
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
 
    If objDrafts.Count > o Then
       strPrompt = "Are you sure to send out all the drafts?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objDrafts.Count To 1 Step -1
              objDrafts.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No Drafts!")
    End If
End Sub

4. Nakon toga možete izaći iz VBA uređivača i nastaviti s dodavanjem VBA projekta na alatnu traku za brzi pristup ili vrpcu. Ovdje ćemo uzeti alatnu traku za brzi pristup kao primjer.

• Najprije idite na “Datoteka” > “Opcije” > karticu “Alatna traka za brzi pristup”.
• Zatim slijedite korake prikazane na slici ispod za dodavanje nove makronaredbe na alatnu traku za brzi pristup.

5. Konačno se možete vratiti u glavni prozor programa Outlook. Vidjet ćete novi gumb na alatnoj traci za brzi pristup.

• Ako nema stavke u mapi Skice, kada kliknete gumb, primit ćete poruku kao na sljedećoj snimci zaslona.
• Ali ako postoje stavke u mapi Skice, dobit ćete upit, kao na slici ispod. Čim odaberete "Da", Outlook će početi slati sve nacrte.

Skupno slanje odabranih nacrta e-pošte

Ako se nadate da ćete poslati samo odabrane skice, gornji kodovi nisu prikladni. Umjesto toga možete koristiti sljedeće kodove.

1. Prvo ih kopirajte u novi modul.

Sub SendSelectedDraftEmails()
    Dim objSelection As Selection
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If objSelection.Count > 0 Then
       strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objSelection.Count To 1 Step -1
              objSelection.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No items selected!")
    End If
End Sub

2. Zatim dodajte novu makronaredbu na alatnu traku za brzi pristup kao i obično.
3. Nakon toga možete odabrati tardobiti nacrte e-pošte i pritisnuti gumb, dobit ćete upit kao na slici:
4. Na kraju, sve dok kliknete "Da", odabrane skice e-poruka bit će poslane.

Riješite se dosadnih Outlook problema

Možda ste naišli na više neugodnih problema s Outlookom. Kako ih se možete riješiti? Kao i obično, možete isprobati njegov ugrađeni alat za popravak, Scanpst.exe. Može riješiti male probleme s Outlook PST datotekom. Ali ako se nažalost susrećete s teškim nevoljama, kao što je npr Oštećenje PST e-pošte, alat za pristiglu poštu neće imati efekta. U tom trenutku nemate drugog izbora nego upotrijebiti nadmoćniji alat, poput DataNumen Outlook Repair.

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 mdf popravak greške i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com