Kā pakešu sūtīt visus Windows mapē esošos failus, izmantojot atsevišķus Outlook e-pastus

Ja vēlaties kādam nosūtīt visus Windows mapē esošos failus, izmantojot atsevišķus Outlook e-pasta ziņojumus, varat izmantot šajā rakstā aprakstīto metodi. Tas izmanto VBA kodu, kas ir diezgan efektīvs.

Izlasot manu iepriekšējo rakstu - "3 ātras metodes visu vietējā mapē esošo failu pievienošanai Outlook e-pastam”, daži lietotāji vēlas nosūtīt visus lokālajā mapē esošos failus, izmantojot atsevišķus e-pastus. Standarta veidā jums vajadzētu izveidot e-pasta ziņojumus un pievienot failus pa vienam. Tas ir diezgan apgrūtinoši. Tāpēc turpmāk mēs jūs iepazīstināsim ar efektīvāku veidu.

Pakešsūtīt visus failus Windows mapē, izmantojot atsevišķus e-pastus

1. Vispirms palaidiet savu Outlook programmu.
2. Pēc tam programmā Outlook piekļūstiet VBA redaktoram, atsaucoties uz rakstu - "Kā palaist VBA kodu programmā Outlook".
3. Pēc tam kopējiet un ielīmējiet šo VBA kodu projektā vai 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. Pēc tam šo makro var palaist uzreiz. Vienkārši nospiediet taustiņu "F5".
5. Pēc tam uznirstošajā dialoglodziņā būs jāatlasa Windows avota mape.
6. Galu galā programma Outlook pievienos visus šajā Windows mapē esošos failus atsevišķiem e-pastiem un nosūtīs vēstules iepriekš noteiktajam adresātam.
7. Kad tas būs pabeigts, jūs saņemsit ziņojumu ar aicinājumu “Viss darīts!”.

Sekojiet līdzi Outlook veselībai

Lai gan programma Outlook tiek reklamēta kā populārākais e-pasta klients tirgū, tai joprojām ir viens būtisks trūkums. Tā ir tās ievainojamība. Citiem vārdiem sakot, programma Outlook ir pakļauta dažādām kļūdām un bojājumiem. Tāpēc jums ir jāpievērš liela uzmanība sava Outlook veselībai, aizsargājot to no bojājumiem. Turklāt jums regulāri jādublē Outlook faili. Turklāt ieteicams iegādāties PST labošanas rīku, piemēram, DataNumen Outlook Repair. Tā var labot Outlook problēmas bez problēmām.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar