個別のOutlook電子メールを介してWindowsフォルダ内のすべてのファイルをバッチ送信する方法

Outlookソリューション 2025 年 9 月 29 日

Windows フォルダー内のすべてのファイルを個別の Outlook メールで誰かに送信したい場合は、この記事で紹介する方法を使用できます。 VBA コードを使用しているため、非常に効果的です。

前回の記事を読んだ後 – 「ローカルフォルダ内のすべてのファイルをOutlookの電子メールに添付する3つの簡単な方法」という場合、ローカルフォルダー内のすべてのファイルを別のメールで送信したいユーザーもいます。標準的な方法では、電子メールを作成し、ファイルを XNUMX つずつ添付する必要があります。かなり面倒です。したがって、以下では、より効果的な方法を紹介します。

Windows フォルダー内のすべてのファイルを別のメールで一括送信する

まず、Outlookプログラムを起動してください。
次に、Outlook で、記事を参照して VBA エディターにアクセスします。OutlookでVBAコードを実行する方法"。
次に、次の 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

その後、このマクロをすぐに実行できます。「F5」キーボタンを押すだけです。
その後、ポップアップダイアログボックスでソース Windows フォルダーを選択する必要があります。
最終的に、Outlook はこの Windows フォルダー内のすべてのファイルを別の電子メールに添付し、事前に定義された受信者にメールを送信します。
完了すると、「すべて完了しました!」というメッセージが表示されます。

Outlook の健全性を監視する

Outlookは市場で最も人気のあるメールクライアントとして宣伝されていますが、致命的な欠陥があります。それは脆弱性です。つまり、Outlookはさまざまなエラーや破損が発生しやすいのです。そのため、Outlookの状態を良好に保ち、損傷から保護することに細心の注意を払う必要があります。さらに、Outlookファイルを定期的にバックアップする必要があります。また、PST修復ツールを入手することをお勧めします。 DataNumen Outlook Repair。それができる Outlookを修復する問題なく問題を解決できます。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL修正と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com