Slik sender du alle åpne og sammensatte e-poster i Outlook

Etter at du er ferdig med å skrive noen e-poster i Outlook, håper du kanskje å sende dem ut på én gang. Nå, i denne artikkelen, vil vi lære deg hvordan du får det ved hjelp av VBA-kode.

Du har for eksempel fullført noen nye e-poster, men ikke sendt dem, bare holdt dem åpne. Og etterpå vil du sende dem ut. Generelt må du klikke på "Send"-knappen i hver e-post én etter én. Under denne omstendigheten må du lengte etter en metode som kan hjelpe deg å sende alle åpne og sammensatte e-poster i bulk.

I det følgende vil vi avsløre en så effektiv måte for deg. Den bruker VBA. hvis du ikke vet hvordan du bruker VBA, kan du se artikkelen – "Hvordan kjøre VBA-kode i Outlook" i mellomtiden.

Batch Send alle åpne og sammensatte e-poster

1. Til å begynne med kan du skrive e-postene dine som vanlig og holde dem åpne.
2. Trykk deretter "Alt + F11" for å få tilgang til VBA-editor.
3. Deretter, i det nye vinduet, kopierer du følgende VBA-kode til en 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. Etter det, utløs denne makroen enten ved å trykke på "F5"-tasten direkte.
5. Til slutt, når makroen er fullført, vil du bli spurt om antall e-poster som skal sendes.
6. Åpne nå Utboks, der du kan se at alle tidligere åpnede e-poster blir sendt.

Gjenopprett Outlook fra uventet skade

Har du noen gang møtt Outlook-korrupsjon før? Mange brukere har vært utsatt for dette problemet og har klaget på det. Generelt, hvis du lager rettidige og effektive løsninger, kan du enkelt hente Outlook-data fra skadet PST fil. For eksempel, hvis du har oppdaterte Outlook-data, kan du enkelt gå tilbake til sikkerhetskopien. Selvfølgelig kan du ta hjelp av et utmerket og pålitelig reparasjonsverktøy, som DataNumen Outlook Repair, som kan skanne den korrupte Outlook-filen og gjenopprette maksimal data.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql utvinning og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med