Kā sūtīt visus atvērtos un saliktos e-pastus savā Outlook

Kad esat pabeidzis komponēt dažus e-pasta ziņojumus programmā Outlook, varat cerēt tos nosūtīt vienā piegājienā. Tagad šajā rakstā mēs iemācīsim, kā to iegūt, izmantojot VBA kodu.

Piemēram, esat pabeidzis dažus jaunus e-pasta ziņojumus, bet neesat tos nosūtījis, vienkārši turot tos atvērtus. Un pēc tam jūs vēlaties tos izsūtīt. Katrā e-pastā pa vienam ir jānoklikšķina uz pogas “Sūtīt”. Šādos apstākļos jums ir jāilgojas pēc metodes, kas varētu jums palīdzēt visu atvērto un sastādīto e-pastu sūtīšanu vairumā.

Turpmāk mēs jums atklāsim tik efektīvu veidu. Tas izmanto VBA. ja jums nav, kā izmantot VBA, varat atsaukties uz rakstu - “Kā palaist VBA kodu programmā OutlookTikmēr.

Sūtīt visus atvērtos un saliktos e-pastus

1. Vispirms jūs varat sastādīt savus e-pastus kā parasti un saglabāt tos atvērtus.
2. Pēc tam nospiediet “Alt + F11”, lai piekļūtu VBA redaktoram.
3. Pēc tam jaunajā logā modulī nokopējiet šādu VBA kodu.

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. Pēc tam aktivizējiet šo makro, tieši nospiežot taustiņa “F5” taustiņu.
5. Visbeidzot, kad makro būs pabeigts, tiks parādīts uzaicinājums nosūtīt e-pasta ziņojumu skaitu.
6. Tagad atveriet sadaļu Izsūtne, kurā redzat, ka tiek sūtīti visi iepriekš atvērtie e-pasta ziņojumi.

Atjaunojiet programmu Outlook no neparedzētiem bojājumiem

Vai jūs kādreiz esat saskāries ar Outlook korupciju? Daudzi lietotāji ir pakļauti šai problēmai un ir sūdzējušies par to. Parasti, ja veicat savlaicīgus un efektīvus risinājumus, varat viegli iegūt Outlook datus no bojāts PST failu. Piemēram, ja jums ir atjaunināti Outlook dati, varat viegli atgriezties pie dublējuma. Protams, jūs varētu izmantot lielisku un uzticamu remonta rīku, piemēram, DataNumen Outlook Repair, kas var skenēt korumpēto Outlook failu un atgūt maksimālos datus.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql atgūšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar