Jostain syystä voit tallentaa useita luonnossähköpostiviestejä Outlookiin. Tämä artikkeli opettaa sinulle, miten kaikki tai vain valitut erät voidaan lähettää yhdellä napsautuksella, joka on luotu Outlook VBA: lla.
Joskus et voi toivoa lähettämästäsi sähköposteja juuri nyt. Siksi tallennat ne Luonnokset-postikansioon ja aiot lähettää ne myöhemmin. Kuten tavallista, kun haluat lähettää luonnokset, sinun on avattava ne yksitellen ja painettava "Lähetä" -painiketta yksi kerrallaan. Jos lähetettäviä luonnoksia on paljon, se vie aikaavievää. Siksi monet käyttäjät toivovat, että Outlook voi antaa heille mahdollisuuden lähettää kaikki luonnokset napsauttamalla yhtä painiketta. Oletuksena ei kuitenkaan ole tällaista painiketta. Mutta voit luoda Outlook VBA: n sen luomiseen. Tässä ovat yksityiskohtaiset vaiheet ja VBA-koodit.
Erä Lähetä kaikki luonnosviestit
- Käynnistä aluksi Outlook-sovellus ja paina Alt + F11-pikavalintoja.
- Sitten avaat VBA-editori-ikkunan, jossa sinun pitäisi avata uusi moduuli.
- Kopioi ja liitä seuraavat VBA-koodit sitten siihen.
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
- Tämän jälkeen voit poistua VBA-editorista ja jatkaa VBA-projektin lisäämistä pikakäyttötyökaluriville tai valintanauhalle. Tässä otamme esimerkkinä pikakäyttötyökalurivin.
- Ensinnäkin, siirry kohtaan "Tiedosto"> "Asetukset"> "Pikatyökalurivi" -välilehti.
- Noudata sitten alla olevan kuvan ohjeita lisätäksesi uuden makron Pikatyökaluriville.
- Lopuksi voit palata Outlookin pääikkunaan. Näet uuden painikkeen Pikatyökalurivillä.
- Jos Luonnokset-kansiossa ei ole kohdetta, kun napsautat painiketta, saat seuraavan kuvakaappauksen kaltaisen viestin.
- Mutta jos Luonnokset-kansiossa on kohteita, saat kehotteen, kuten alla oleva kuva. Heti kun valitset “Kyllä”, Outlook alkaa lähettää kaikkia luonnoksia.
Erä lähettää valitut luonnosviestit
Jos haluat lähettää vain valitut luonnokset, yllä olevat koodit eivät sovi. Voit käyttää seuraavia koodeja.
- Ensinnäkin kopioi ne uuteen moduuliin.
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
- Lisää sitten uusi makro Quick Access -työkaluriville tavalliseen tapaan.
- Tämän jälkeen voit valita tarHanki luonnos sähköpostiviestejä ja paina painiketta, saat kuvan kaltaisen kehotteen:
- Lopuksi, niin kauan kuin napsautat Kyllä, valitut sähköpostiluonnokset lähetetään.
Hävitä ärsyttävät Outlook-ongelmat
Ehkä olet kohdannut useita tuskallisia Outlook-ongelmia. Kuinka voit päästä eroon niistä? Kuten tavallista, voit kokeilla sen sisäänrakennettua korjaustyökalua, Scanpst.exe. Se pystyy korjaamaan pienet Outlook PST -tiedosto-ongelmat. Mutta jos valitettavasti kohtaat vakavia ongelmia, kuten PST-sähköpostivahinko, Saapuneet-työkalu ei tee tehosteita. Siinä vaiheessa sinulla ei ole muuta vaihtoehtoa kuin käyttää esimerkeisempää työkalua, kuten DataNumen Outlook Repair.
Tekijän esittely:
Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-virheiden korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com