Cara Batch Kirim Semua Fail dalam Folder Windows melalui E-mel Outlook yang Berasingan

Sekiranya anda ingin mengirim semua fail dalam folder Windows melalui e-mel Outlook individu kepada seseorang, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini. Ia menggunakan kod VBA, yang cukup berkesan.

Setelah membaca artikel saya sebelumnya - “3 Kaedah Pantas untuk Melampirkan Semua Fail dalam Folder Tempatan ke E-mel Outlook", Beberapa pengguna ingin mengirim semua fail dalam folder tempatan melalui e-mel yang berasingan. Dengan cara standard, anda harus membuat e-mel dan melampirkan fail satu persatu. Ia cukup menyusahkan. Oleh itu, berikut ini, kami akan memperkenalkan cara yang lebih berkesan kepada anda.

Batch Hantar Semua Fail dalam Folder Windows melalui E-mel Berasingan

1. Pertama sekali, mulakan program Outlook anda.
2. Kemudian, di Outlook, akses editor VBA merujuk pada artikel - “Cara Menjalankan Kod VBA di Outlook Anda".
3. Seterusnya, salin dan tampal kod VBA berikut ke dalam projek atau modul.

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. Selepas itu, anda boleh menjalankan makro ini sekaligus. Cukup tekan butang kekunci "F5".
5. Selepas itu, anda diminta untuk memilih folder Windows sumber di kotak dialog pop timbul.
6. Pada akhirnya, Outlook akan melampirkan semua fail dalam folder Windows ini untuk memisahkan e-mel dan menghantar e-mel kepada penerima yang telah ditetapkan.
7. Apabila selesai, anda akan mendapat mesej yang meminta "Semua selesai!".

Awasi Kesihatan Outlook

Walaupun Outlook telah disebut-sebut sebagai klien e-mel paling popular di pasaran, ia masih mempunyai kelemahan yang membawa maut. Iaitu kelemahannya. Dalam erti kata lain, Outlook terdedah kepada pelbagai ralat dan kerosakan. Oleh itu, anda perlu mementingkan kesihatan Outlook anda, melindunginya daripada kerosakan. Di samping itu, anda perlu membuat sandaran fail Outlook anda secara berkala. Selain itu, adalah disyorkan untuk mendapatkan alat pembaikan PST, seperti DataNumen Outlook Repair. Ia boleh baiki Outlook masalah tanpa kerumitan.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com