Cum să trimiteți în lot toate e-mailurile deschise și compuse în Outlook

După ce ați terminat de compus unele e-mailuri în Outlook, puteți spera să le trimiteți dintr-o singură mișcare. Acum, în acest articol, vă vom învăța cum să îl obțineți cu ajutorul codului VBA.

De exemplu, ați completat câteva e-mailuri noi, dar nu le-ați trimis, ci doar le-ați păstrat deschise. Și după aceea, vrei să le trimiți. În general, trebuie să faceți clic pe butonul „Trimite” din fiecare e-mail unul câte unul. În această circumstanță, trebuie să tânjiți după o metodă care vă poate ajuta să trimiteți toate e-mailurile deschise și compuse în vrac.

În cele ce urmează, vă vom expune o modalitate atât de eficientă. Folosește VBA. dacă nu știți cum să utilizați VBA, puteți consulta articolul – „Cum să rulați codul VBA în Outlook” între timp.

Trimiteți în lot toate e-mailurile deschise și compuse

1. Pentru început, puteți să vă compuneți e-mailurile ca de obicei și să le păstrați deschise.
2. Apoi, apăsați „Alt + F11” pentru a accesa editorul VBA.
3. Apoi, în noua fereastră, copiați următorul cod VBA într-un 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. După aceea, declanșați această macrocomandă fie apăsând direct butonul tastei „F5”.
5. În cele din urmă, când macrocomandă se finalizează, vi se va solicita numărul de e-mailuri care trebuie trimise.
6. Acum, deschideți Căsuța de ieșire, în care puteți vedea că toate e-mailurile deschise anterior sunt trimise.

Restaurați Outlook de la daune neașteptate

Ați mai întâlnit vreodată corupție în Outlook? Mulți utilizatori au fost supuși acestei probleme și s-au plâns de ea. În general, dacă faceți soluții în timp util și eficiente, puteți recupera cu ușurință datele Outlook din PST deteriorat fişier. De exemplu, dacă aveți date Outlook actualizate, puteți reveni cu ușurință la backup. Desigur, ați putea să vă ajutați de un instrument de reparare excelent și de încredere, cum ar fi DataNumen Outlook Repair, care poate scana fișierul Outlook corupt și poate recupera maximum de date.

Introducerea autorului:

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