Cum să trimiteți în loturi mai multe e-mailuri nefinalizate cu Outlook VBA

Din anumite motive, este posibil să salvați multe e-mailuri nefinalizate în Outlook. Acest articol vă va învăța cum să le trimiteți pe toate sau doar pe cele selectate printr-un singur clic, care este creat cu Outlook VBA.

Uneori, este posibil să nu sperați să trimiteți e-mailurile chiar acum. Prin urmare, le veți salva în folderul de e-mail Ciorne și intenționați să le trimiteți mai târziu. Ca de obicei, atunci când doriți să trimiteți schițele, trebuie să le deschideți individual și să apăsați butonul „Trimite” unul câte unul. Dacă există o cantitate mare de schițe de trimis, va dura destul de mult. Prin urmare, mulți utilizatori speră că Outlook le poate permite să trimită toate schițele doar făcând clic pe un buton. Cu toate acestea, în mod implicit, nu există un astfel de buton. Dar puteți aplica Outlook VBA pentru a-l crea. Iată pașii elaborați și codurile VBA.

Trimiteți în lot toate e-mailurile nefinalizate

1. La început, lansați aplicația Outlook și apăsați comenzile rapide „Alt + F11”.
2. Apoi veți deschide fereastra editorului VBA, în care ar trebui să deschideți un nou modul.
3. Ulterior, copiați și inserați următoarele coduri VBA în el.

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. După aceea, puteți ieși din editorul VBA și puteți continua să adăugați proiectul VBA la Bara de instrumente Acces rapid sau în panglică. Aici vom lua ca exemplu Bara de instrumente Acces rapid.

• În primul rând, accesați „Fișier” > „Opțiuni” > fila „Bară de instrumente de acces rapid”.
• Apoi urmați pașii indicați în imaginea de mai jos pentru a adăuga noua macrocomandă la Bara de instrumente Acces rapid.

5. În cele din urmă, puteți reveni la fereastra principală a Outlook. Veți vedea noul buton în Bara de instrumente Acces rapid.

• Dacă nu există niciun element în dosarul Ciorne, când faceți clic pe butonul, veți primi un mesaj precum următoarea captură de ecran.
• Dar dacă există elemente în folderul Ciorne, veți primi o solicitare, ca imaginea de mai jos. De îndată ce selectați „Da”, Outlook va începe să trimită toate schițele.

Trimiteți în lot e-mailurile nefinalizate selectate

Dacă sperați să trimiteți numai schițele selectate, atunci codurile de mai sus sunt nepotrivite. Puteți utiliza următoarele coduri în schimb.

1. În primul rând, copiați-le într-un modul nou.

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. Apoi adăugați noua macrocomandă în Bara de instrumente Acces rapid, ca de obicei.
3. Ulterior, puteți selecta tarprimiți e-mailuri nefinalizate și apăsați butonul, veți primi o solicitare precum imaginea:
4. În cele din urmă, atâta timp cât faceți clic pe „Da”, e-mailurile selectate vor fi trimise.

Eliminați problemele enervante de Outlook

Poate că ați întâmpinat mai multe probleme deranjante cu Outlook. Cum poți scăpa de ele? Ca de obicei, puteți încerca instrumentul său de reparare încorporat, Scanpst.exe. Este capabil să remedieze micile probleme ale fișierelor Outlook PST. Dar dacă, din păcate, te întâlnești cu probleme grave, cum ar fi Daune de e-mail PST, instrumentul Inbox nu va produce efecte. În acel moment, nu ai de ales decât să folosești un instrument mai preeminent, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repararea erorilor mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com