Kaip paketais siųsti visus atidarytus ir sudarytus el. laiškus „Outlook“.

Baigę kurti kai kuriuos el. laiškus programoje „Outlook“, galite tikėtis juos išsiųsti vienu kartu. Dabar šiame straipsnyje mes išmokysime, kaip jį gauti naudojant VBA kodą.

Pavyzdžiui, užpildėte kai kuriuos naujus el. laiškus, bet jų neišsiuntėte, tiesiog palikote juos atidarytus. O vėliau norisi juos išsiųsti. Paprastai kiekviename el. laiške po vieną turite spustelėti mygtuką „Siųsti“. Esant tokioms aplinkybėms, turite ilgėtis metodo, kuris padėtų siųsti visus atvirus ir sudarytus el. laiškus masiškai.

Toliau mes jums pateiksime tokį veiksmingą būdą. Jis naudoja VBA. jei nemokate naudoti VBA, galite kreiptis į straipsnį – „Kaip paleisti VBA kodą „Outlook“.“ tuo tarpu.

Siųsti paketu visus atidarytus ir sudarytus el. laiškus

1. Pirmiausia galite rašyti el. laiškus kaip įprasta ir palikti juos atidarytus.
2. Tada paspauskite „Alt + F11“, kad pasiektumėte VBA redaktorių.
3. Tada naujame lange nukopijuokite šį VBA kodą į 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 to suaktyvinkite šią makrokomandą tiesiogiai paspausdami „F5“ klavišą.
5. Galiausiai, kai makrokomanda bus baigta, būsite paraginti išsiųsti el. laiškų skaičių.
6. Dabar atidarykite „Siuntimo dėžutę“, kurioje pamatysite, kad siunčiami visi anksčiau atidaryti el. laiškai.

Atkurkite „Outlook“ nuo netikėtos žalos

Ar kada nors anksčiau susidūrėte su „Outlook“ korupcija? Daugelis vartotojų susidūrė su šia problema ir dėl to skundėsi. Apskritai, jei laiku imasi efektyvių sprendimų, galite lengvai nuskaityti „Outlook“ duomenis iš sugadintas PST failą. Pavyzdžiui, jei turite atnaujintų „Outlook“ duomenų, galite lengvai grįžti prie atsarginės kopijos. Žinoma, galite pasinaudoti puikiu ir patikimu remonto įrankiu, pvz DataNumen Outlook Repair, kuris gali nuskaityti sugadintą „Outlook“ failą ir atkurti maksimalų duomenų kiekį.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com