Comment envoyer par lots tous les fichiers d'un dossier Windows via des e-mails Outlook distincts

Si vous souhaitez envoyer tous les fichiers d'un dossier Windows via des e-mails Outlook individuels à quelqu'un, vous pouvez utiliser la méthode présentée dans cet article. Il utilise le code VBA, qui est assez efficace.

Après avoir lu mon article précédent – ​​«3 méthodes rapides pour joindre tous les fichiers d'un dossier local à un e-mail Outlook”, certains utilisateurs souhaitent envoyer tous les fichiers d'un dossier local via des e-mails séparés. De manière standard, vous devez créer des e-mails et joindre les fichiers un par un. C'est assez gênant. Par conséquent, dans ce qui suit, nous vous présenterons un moyen plus efficace.

Envoyer par lots tous les fichiers d'un dossier Windows via des e-mails séparés

1. Pour commencer, ouvrez votre programme Outlook.
2. Ensuite, dans Outlook, accédez à l'éditeur VBA en référence à l'article - "Comment exécuter le code VBA dans votre Outlook ».
3. Ensuite, copiez et collez le code VBA suivant dans un projet ou un module.

Sub SendAllFilesInSeparateEmails()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim objFile As Object
    Dim strWindowsFolder As String
    Dim objFileSystem As Object
    Dim objMail As Outlook.MailItem
 
    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       Set objWindowsFolder = objFileSystem.GetFolder(strWindowsFolder)
 
       'Send each file in an email
       For Each objFile In objWindowsFolder.Files
 
           'Create a new mail
           Set objMail = Outlook.Application.CreateItem(olMailItem)
           'Change the details as per your needs
           With objMail
                .Subject = Left(objFile.Name, Len(objFile.Name) - (Len(objFileSystem.GetExtensionName(objFile.Name)) + 1))
                .Attachments.Add objFile.Path
                .Recipients.Add ("someone@datanumen.com")
                .Recipients.ResolveAll
                .Send
          End With
       Next
 
       'Prompt you when completing sending
       MsgBox "All done!", vbOKOnly + vbExclamation
    End If
End Sub

4. Après cela, vous pouvez exécuter cette macro immédiatement. Appuyez simplement sur la touche "F5".
5. Par la suite, vous devrez sélectionner le dossier Windows source dans la boîte de dialogue contextuelle.
6. En fin de compte, Outlook joindra tous les fichiers de ce dossier Windows pour séparer les e-mails et envoyer les e-mails au destinataire prédéfini.
7. Une fois terminé, vous recevrez un message indiquant "Tout est terminé !".

Gardez un œil sur la santé d'Outlook

Bien qu'Outlook soit considéré comme le client de messagerie le plus populaire du marché, il présente une faille majeure : sa vulnérabilité. En d'autres termes, Outlook est sujet à diverses erreurs et à la corruption des fichiers. Il est donc essentiel de veiller à la bonne santé de votre compte Outlook et de le protéger contre tout dommage. De plus, il est indispensable de sauvegarder régulièrement vos fichiers Outlook. Enfin, il est recommandé d'utiliser un outil de réparation de fichiers PST, tel que… DataNumen Outlook Repair. Il peut réparer Outlook problèmes sans tracas.

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 correction sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com