Kuinka lähettää erässä kaikki avoimet ja kirjoitetut sähköpostit Outlookissasi

Kun olet kirjoittanut joitain sähköpostiviestejä Outlookissa, saatat toivoa, että voit lähettää ne kerralla. Nyt tässä artikkelissa opetamme sinulle, kuinka saada se VBA-koodin avulla.

Olet esimerkiksi täydentänyt uusia sähköposteja, mutta et ole lähettänyt niitä, vaan pitänyt ne auki. Ja sen jälkeen haluat lähettää ne. Yleensä sinun on napsautettava "Lähetä" -painiketta jokaisessa sähköpostissa yksitellen. Tässä tilanteessa sinun on kaipattava menetelmää, joka voi tukea sinua lähettämään kaikki avoimet ja kirjoitetut sähköpostit joukkona.

Seuraavassa esittelemme sinulle tällaisen tehokkaan tavan. Se käyttää VBA:ta. jos et osaa käyttää VBA:ta, voit katsoa artikkelin - "Kuinka suorittaa VBA-koodi Outlookissa" sillä välin.

Erälähetä kaikki avoimet ja kirjoitetut sähköpostit

1. Aluksi voit kirjoittaa sähköpostisi tavalliseen tapaan ja pitää ne auki.
2. Paina sitten “Alt + F11” päästäksesi VBA-editoriin.
3. Kopioi seuraavaksi uudessa ikkunassa seuraava VBA-koodi moduuliin.

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. Tämän jälkeen käynnistä tämä makro joko painamalla suoraan “F5”-näppäintä.
5. Lopuksi, kun makro on valmis, saat kehotteen lähetettävien sähköpostien määrästä.
6. Avaa nyt Lähtevät-kansio, jossa näet, että kaikki aiemmin avatut sähköpostit lähetetään.

Palauta Outlook odottamattomilta vaurioilta

Oletko koskaan törmännyt Outlookin korruptioon? Monet käyttäjät ovat olleet tämän ongelman kohteena ja valittaneet siitä. Yleensä, jos teet oikea-aikaisia ​​ja tehokkaita ratkaisuja, voit helposti hakea Outlook-tiedot vaurioitunut PST tiedosto. Jos sinulla on esimerkiksi päivitetyt Outlook-tiedot, voit helposti palata varmuuskopioon. Tietysti voit ottaa avuksi erinomaisen ja luotettavan korjaustyökalun, esim DataNumen Outlook Repair, joka voi skannata korruptoituneen Outlook-tiedoston ja palauttaa mahdollisimman paljon tietoja.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-palautus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com