Kaip išsiųsti kelis juodraščius el. laiškus naudojant „Outlook VBA“.

Dėl tam tikrų priežasčių „Outlook“ galite išsaugoti daug juodraščių el. laiškų. Šiame straipsnyje sužinosite, kaip išsiųsti juos visus arba tik pasirinktus vienu paspaudimu, kuris sukurtas naudojant „Outlook VBA“.

Kartais galbūt nesitiki dabar išsiųsti el. laiškus. Todėl išsaugosite juos aplanke Juodraščiai ir ketinate išsiųsti vėliau. Kaip įprasta, kai norite išsiųsti juodraščius, turite juos atidaryti atskirai ir po vieną paspausti mygtuką „Siųsti“. Jei reikia išsiųsti daug juodraščių, tai užtruks daug laiko. Todėl daugelis vartotojų tikisi, kad „Outlook“ gali leisti išsiųsti visus juodraščius tiesiog spustelėjus vieną mygtuką. Tačiau pagal numatytuosius nustatymus tokio mygtuko nėra. Tačiau galite pritaikyti „Outlook VBA“, kad ją sukurtumėte. Čia pateikiami sudėtingi veiksmai ir VBA kodai.

Siųsti visus juodraščius

1. Pirmiausia paleiskite „Outlook“ programą ir paspauskite „Alt + F11“ sparčiuosius klavišus.
2. Tada atidarysite VBA redaktoriaus langą, kuriame turėtumėte atidaryti naują modulį.
3. Tada nukopijuokite ir įklijuokite į jį šiuos VBA kodus.

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. Po to galite išeiti iš VBA redaktoriaus ir pridėti VBA projektą prie greitosios prieigos įrankių juostos arba juostos. Kaip pavyzdį paimsime greitosios prieigos įrankių juostą.

• Pirmiausia eikite į skirtuką „Failas“ > „Parinktys“ > „Greitos prieigos įrankių juosta“.
• Tada atlikite toliau esančiame paveikslėlyje nurodytus veiksmus, kad pridėtumėte naują makrokomandą prie greitosios prieigos įrankių juostos.

5. Galiausiai galite grįžti į pagrindinį „Outlook“ langą. Greitosios prieigos įrankių juostoje pamatysite naują mygtuką.

• Jei aplanke Juodraščiai nėra elemento, spustelėję mygtuką gausite pranešimą, panašų į toliau pateiktą ekrano kopiją.
• Bet jei aplanke Juodraščiai yra elementų, gausite raginimą, kaip ir toliau pateiktame paveikslėlyje. Kai tik pasirinksite „Taip“, „Outlook“ pradės siųsti visus juodraščius.

Siųsti paketu pasirinktus juodraščius el

Jei tikitės siųsti tik pasirinktus juodraščius, aukščiau pateikti kodai netinka. Vietoj to galite naudoti šiuos kodus.

1. Pirmiausia nukopijuokite juos į naują modulį.

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. Tada kaip įprasta pridėkite naują makrokomandą prie greitosios prieigos įrankių juostos.
3. Vėliau galite pasirinkti tarGaukite el. laiškų juodraščius ir paspauskite mygtuką, gausite raginimą, panašų į paveikslėlį:
4. Galiausiai, kol spustelėsite „Taip“, bus išsiųsti pasirinkti juodraščiai el.

Atsikratykite erzinančių „Outlook“ problemų

Galbūt susidūrėte su keliomis varginančiomis „Outlook“ problemomis. Kaip galite jų atsikratyti? Kaip įprasta, galite išbandyti integruotą taisymo įrankį Scanpst.exe. Jis gali išspręsti mažas Outlook PST failo problemas. Bet jei, deja, susidursite su rimtomis bėdomis, pvz PST el. pašto pažeidimas, gautųjų įrankis nepadarys efektų. Tuo metu jūs neturite kito pasirinkimo, kaip naudoti geresnį įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

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