如何通过单独的 Outlook 电子邮件批量发送 Windows 文件夹中的所有文件

展望解决方案 2025 年 9 月 29 日
立即分享：

如果您想通过个人 Outlook 电子邮件将 Windows 文件夹中的所有文件发送给某人，您可以使用本文介绍的方法。 它正在使用非常有效的VBA代码。

在阅读了我之前的文章后——“将本地文件夹中的所有文件附加到 Outlook 电子邮件的 3 种快速方法”，一些用户希望通过单独的电子邮件发送本地文件夹中的所有文件。 按照标准方式，您应该创建电子邮件并一个接一个地附加文件。 挺麻烦的。 因此，在下文中，我们将向您介绍一种更有效的方法。

通过单独的 Outlook 电子邮件批量发送 Windows 文件夹中的所有文件

通过单独的电子邮件批量发送 Windows 文件夹中的所有文件

  1. 首先，启动 Outlook 程序。
  2. 然后，在 Outlook 中，参考文章访问 VBA 编辑器——》如何在 Outlook 中运行 VBA 代码。
  3. 接下来，将以下 VBA 代码复制并粘贴到项目或模块中。
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

VBA 代码 - 通过单独的电子邮件批量发送 Windows 文件夹中的所有文件

  1. 之后，您可以立即运行此宏。 只需按“F5”键按钮。
  2. 随后，您将需要在弹出对话框中选择源 Windows 文件夹。选择 Windows 文件夹
  3. 最终，Outlook 会将此 Windows 文件夹中的所有文件附加到单独的电子邮件中，并将邮件发送给预定义的收件人。
  4. 完成后，您将收到一条消息提示“全部完成！”。消息提示“全部完成”

密切关注 Outlook 运行状况

尽管 Outlook 被誉为市场上最受欢迎的电子邮件客户端，但它仍然存在一个致命缺陷，那就是它的脆弱性。换句话说，Outlook 容易出现各种错误和损坏。因此，您必须高度重视 Outlook 的健康状况，保护它免受损害。此外，您必须定期备份 Outlook 文件。另外，建议您使用 PST 文件修复工具，例如…… DataNumen Outlook Repair。 它可以 修复 Outlook 没有任何麻烦的问题。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。