Comment envoyer par lots tous les e-mails ouverts et composés dans votre Outlook

Une fois que vous avez fini de composer des e-mails dans Outlook, vous pouvez espérer les envoyer en une seule fois. Maintenant, dans cet article, nous allons vous apprendre comment l'obtenir à l'aide du code VBA.

Par exemple, vous avez terminé de nouveaux e-mails mais vous ne les avez pas envoyés, vous les gardez simplement ouverts. Et après, vous voulez les envoyer. En général, vous devez cliquer sur le bouton "Envoyer" dans chaque e-mail un par un. Dans ces circonstances, vous devez aspirer à une méthode qui puisse vous aider à envoyer tous les e-mails ouverts et composés en masse.

Dans ce qui suit, nous allons vous exposer un moyen aussi efficace. Il utilise VBA. si vous ne savez pas comment utiliser VBA, vous pouvez vous référer à l'article - "Comment exécuter le code VBA dans votre Outlook" entre-temps.

Envoyer par lots tous les e-mails ouverts et composés

1. Pour commencer, vous pouvez rédiger vos e-mails comme d'habitude et les garder ouverts.
2. Ensuite, appuyez sur "Alt + F11" pour accéder à l'éditeur VBA.
3. Ensuite, dans la nouvelle fenêtre, copiez le code VBA suivant dans un module.

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. Après cela, déclenchez cette macro soit en appuyant directement sur la touche "F5".
5. Enfin, une fois la macro terminée, vous serez invité à indiquer le nombre d'e-mails à envoyer.
6. Maintenant, ouvrez la boîte d'envoi, dans laquelle vous pouvez voir que tous les e-mails précédemment ouverts sont envoyés.

Restaurer Outlook à partir de dommages inattendus

Avez-vous déjà rencontré la corruption d'Outlook auparavant ? De nombreux utilisateurs ont été confrontés à ce problème et s'en sont plaints. En général, si vous apportez des solutions rapides et efficaces, vous pouvez facilement récupérer les données Outlook à partir de PST endommagé déposer. Par exemple, si vous avez des données Outlook mises à jour, vous pouvez facilement revenir à la sauvegarde. Bien sûr, vous pouvez vous aider d'un outil de réparation excellent et fiable, comme DataNumen Outlook Repair, qui peut analyser le fichier Outlook corrompu et récupérer un maximum de données.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupération SQL et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com