Sådan batches alle åbne og sammensatte e-mails i din Outlook

Når du er færdig med at komponere nogle e-mails i Outlook, håber du muligvis at sende dem ud på én gang. Nu, i denne artikel, vil vi lære dig, hvordan du får det ved hjælp af VBA-kode.

For eksempel har du udfyldt nogle nye e-mails, men ikke sendt dem, bare holder dem åbne. Og bagefter vil du sende dem ud. Generelt skal du klikke på knappen "Send" i hver e-mail en efter en. Under denne omstændighed skal du længes efter en metode, der kan støtte dig til at sende alle de åbne og sammensatte e-mails i bulk.

I det følgende vil vi udsætte dig for en sådan effektiv måde. Det bruger VBA. hvis du ikke bruger VBA, kan du henvise til artiklen - “Sådan køres VBA-kode i din Outlook”I mellemtiden.

Batch Send alle åbne og sammensatte e-mails

1. Til at begynde med kan du komponere dine e-mails som normalt og holde dem åbne.
2. Tryk derefter på "Alt + F11" for at få adgang til VBA-editor.
3. Derefter skal du i det nye vindue kopiere følgende VBA-kode til et 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. Derefter udløses denne makro enten ved at trykke på “F5” -tasten direkte.
5. Endelig, når makroen er færdig, bliver du bedt om antallet af e-mails, der skal sendes.
6. Åbn nu Udbakke, hvor du kan se, at alle tidligere åbnede e-mails sendes.

Gendan Outlook fra uventet skade

Har du nogensinde stødt på korruption i Outlook før? Mange brugere har været genstand for dette problem og har klaget over det. Generelt, hvis du laver rettidige og effektive løsninger, kan du let hente Outlook-data fra beskadiget PST fil. For eksempel, hvis du har opdaterede Outlook-data, kan du nemt vende tilbage til sikkerhedskopien. Selvfølgelig kan du tage hjælp af et fremragende og pålideligt reparationsværktøj, ligesom DataNumen Outlook Repair, som kan scanne den korrupte Outlook-fil og gendanne maksimale data.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com