如何通過單獨的 Outlook 電子郵件批量發送 Windows 文件夾中的所有文件

Outlook解決方案 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 檔案。另外，建議您使用 PST 文件修復工具，例如… DataNumen Outlook Repair。 它可以 維修展望 問題沒有任何麻煩。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 SQL修復 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。