Kako paketno pošiljati vsa odprta in sestavljena e-poštna sporočila v Outlooku

Ko v Outlooku sestavite nekaj e-poštnih sporočil, jih lahko upate, da jih boste poslali naenkrat. Zdaj vas bomo v tem članku naučili, kako jo pridobite s pomočjo kode VBA.

Na primer, izpolnili ste nekaj novih e-poštnih sporočil, vendar jih niste poslali, temveč jih držite odprta. Nato jih želite poslati. Na splošno morate v vsakem e-poštnem sporočilu posebej klikniti gumb »Pošlji«. V teh okoliščinah morate hrepeneti po metodi, ki vam lahko pomaga, da v celoti pošljete vsa odprta in sestavljena e-poštna sporočila.

V nadaljevanju vam bomo predstavili tako učinkovit način. Uporablja VBA. če ne veste, kako uporabljati VBA, si lahko ogledate članek - “Kako zagnati kodo VBA v Outlooku”Medtem.

Skupinsko pošiljanje vseh odprtih in sestavljenih e-poštnih sporočil

1. Za začetek lahko sestavite e-poštna sporočila kot običajno in jih držite odprta.
2. Nato pritisnite “Alt + F11” za dostop do urejevalnika VBA.
3. Nato v novo okno kopirajte naslednjo kodo VBA v 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. Po tem sprožite ta makro z neposrednim pritiskom na tipko “F5”.
5. Nazadnje, ko se makro dokonča, boste pozvani k številu e-poštnih sporočil, ki jih je treba poslati.
6. Zdaj odprite Outbox, v katerem lahko vidite, da se pošiljajo vsa prej odprta e-poštna sporočila.

Obnovite Outlook iz nepričakovane škode

Ste se že kdaj srečali s korupcijo v Outlooku? Številni uporabniki so bili izpostavljeni tej težavi in ​​so se zaradi nje pritoževali. Če na splošno pravočasno in učinkovito rešite, lahko zlahka pridobite podatke iz Outlooka poškodovan PST mapa. Če imate na primer posodobljene podatke programa Outlook, jih lahko preprosto vrnete v varnostno kopijo. Seveda lahko pomagate z odličnim in zanesljivim orodjem za popravila, kot je npr DataNumen Outlook Repair, ki lahko skenira poškodovano Outlookovo datoteko in obnovi največ podatkov.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnovitev sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com