Cara Mengumpulkan Semua File di Folder Windows melalui Email Outlook Terpisah

Jika Anda ingin mengirim semua file di folder Windows melalui email Outlook individu ke seseorang, Anda dapat menggunakan metode yang diperkenalkan di artikel ini. Itu memanfaatkan kode VBA, yang cukup efektif.

Setelah membaca artikel saya sebelumnya – “3 Metode Cepat untuk Melampirkan Semua File di Folder Lokal ke Email Outlook”, beberapa pengguna ingin mengirim semua file di folder lokal melalui email terpisah. Dengan cara standar, Anda harus membuat email dan melampirkan file satu per satu. Ini cukup merepotkan. Oleh karena itu, berikut ini kami akan memperkenalkan cara yang lebih efektif untuk Anda.

Batch Kirim Semua File di Folder Windows melalui Email Terpisah

1. Pertama-tama, jalankan program Outlook Anda.
2. Kemudian, di Outlook, akses editor VBA dengan mengacu pada artikel – “Cara Menjalankan Kode VBA di Outlook Anda".
3. Selanjutnya, salin dan tempel kode VBA berikut ke dalam proyek 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. Setelah itu, Anda dapat menjalankan makro ini sekaligus. Cukup tekan tombol kunci "F5".
5. Selanjutnya, Anda akan diminta untuk memilih folder sumber Windows di kotak dialog popup.
6. Pada akhirnya, Outlook akan melampirkan semua file di folder Windows ini untuk memisahkan email dan mengirimkan email ke penerima yang telah ditentukan sebelumnya.
7. Setelah selesai, Anda akan mendapatkan pesan yang meminta "Semua selesai!".

Mengawasi Kesehatan Outlook

Meskipun Outlook telah disebut-sebut sebagai klien email paling populer di pasaran, ia masih memiliki kelemahan fatal. Yaitu kerentanannya. Dengan kata lain, Outlook rentan terhadap berbagai kesalahan dan kerusakan. Oleh karena itu, Anda harus sangat memperhatikan kesehatan Outlook Anda, melindunginya dari kerusakan. Selain itu, Anda harus mencadangkan file Outlook Anda secara berkala. Selain itu, disarankan untuk mendapatkan alat perbaikan PST, seperti DataNumen Outlook Repair. Hal ini dapat perbaiki Outlook masalah tanpa gangguan.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com