Paano Magpadala ng Batch Lahat ng Mga File sa isang Windows Folder sa pamamagitan ng Mga Hiwalay na Outlook Email

Kung gusto mong ipadala ang lahat ng mga file sa isang folder ng Windows sa pamamagitan ng indibidwal na mga email sa Outlook sa isang tao, maaari mong gamitin ang paraang ipinakilala sa artikulong ito. Gumagamit ito ng VBA code, na medyo epektibo.

Pagkatapos basahin ang aking nakaraang artikulo - "3 Mabilis na Pamamaraan upang Maikabit ang Lahat ng Mga File sa isang Lokal na Folder sa isang Outlook Email”, gustong ipadala ng ilang user ang lahat ng file sa isang lokal na folder sa pamamagitan ng hiwalay na mga email. Sa karaniwang paraan, dapat kang lumikha ng mga email at ilakip ang mga file nang paisa-isa. Ito ay medyo mahirap. Samakatuwid, sa mga sumusunod, ipapakilala namin sa iyo ang isang mas epektibong paraan.

Batch Send All Files sa isang Windows Folder sa pamamagitan ng Mga Hiwalay na Email

1. Una sa lahat, simulan ang iyong programa sa Outlook.
2. Pagkatapos, sa Outlook, i-access ang VBA editor bilang pagtukoy sa artikulo - "Paano Patakbuhin ang VBA Code sa Iyong Outlook".
3. Susunod, kopyahin at i-paste ang sumusunod na VBA code sa isang proyekto o isang module.

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. Pagkatapos nito, maaari mong patakbuhin ang macro na ito nang sabay-sabay. Pindutin lamang ang pindutan ng "F5".
5. Sa dakong huli, kakailanganin mong piliin ang pinagmulang folder ng Windows sa popup dialog box.
6. Sa huli, ikakabit ng Outlook ang lahat ng mga file sa folder ng Windows na ito upang paghiwalayin ang mga email at ipapadala ang mga mail sa paunang natukoy na tatanggap.
7. Kapag natapos na ito, makakatanggap ka ng mensaheng nag-uudyok ng "All done!".

Pagmasdan ang Outlook Health

Bagama't itinatanghal ang Outlook bilang pinakasikat na email client sa merkado, mayroon pa rin itong isang nakamamatay na depekto. Ito ay ang kahinaan nito. Sa madaling salita, ang Outlook ay madaling kapitan ng iba't ibang error at pagkasira. Kaya naman kailangan mong bigyang-halaga ang kalusugan ng iyong Outlook, protektahan ito mula sa pinsala. Bukod pa rito, kailangan mong regular na i-backup ang iyong mga file sa Outlook. Bukod pa rito, inirerekomenda na kumuha ng isang tool para sa pag-aayos ng PST, tulad ng DataNumen Outlook Repair. Maaari ito kumpunihin ang Outlook mga isyu nang walang anumang abala.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa