Kõigi Windowsi kaustas olevate failide partii saatmine eraldi Outlooki meilide kaudu

Kui soovite saata kõik Windowsi kaustas olevad failid kellelegi üksikute Outlooki meilide kaudu, saate kasutada selles artiklis kirjeldatud meetodit. See kasutab VBA-koodi, mis on üsna tõhus.

Pärast minu eelmise artikli lugemist - "3 kiiret meetodit kõigi kohalikus kaustas olevate failide lisamiseks Outlooki meilile”, mõned kasutajad soovivad saata kõik kohalikus kaustas olevad failid eraldi e-kirjade kaudu. Tavapäraselt peaksite looma e-kirju ja manustama failid ükshaaval. See on üsna tülikas. Seetõttu tutvustame teile järgnevalt tõhusamat viisi.

Kõigi Windowsi kaustas olevate failide partii saatmine eraldi e-kirjade kaudu

1. Kõigepealt käivitage oma Outlooki programm.
2. Seejärel avage Outlookis VBA redaktor, viidates artiklile - "Kuidas Outlookis VBA-koodi käivitada".
3. Järgmisena kopeerige ja kleepige järgmine VBA kood projekti või moodulisse.

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ärast seda saate seda makrot korraga käivitada. Vajutage lihtsalt nuppu "F5".
5. Seejärel peaksite valima hüpikaknast Windowsi lähtekausta.
6. Lõppkokkuvõttes manustab Outlook kõik selles Windowsi kaustas olevad failid eraldi meilidesse ja saadab kirjad eelnevalt määratud adressaadile.
7. Kui see on lõppenud, kuvatakse teade "Kõik tehtud!".

Hoidke Outlook Healthil silma peal

Kuigi Outlooki on peetud turu populaarseimaks e-posti kliendiks, on sellel siiski saatuslik viga. See on selle haavatavus. Teisisõnu, Outlook on altid mitmesugustele vigadele ja andmete riknemisele. Seetõttu peate oma Outlooki tervisele suurt tähelepanu pöörama ja seda kahjustuste eest kaitsma. Lisaks peate oma Outlooki faile regulaarselt varundama. Lisaks on soovitatav hankida PST-failide parandamise tööriist, näiteks DataNumen Outlook Repair. See võib Outlooki parandamine probleeme ilma probleemideta.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom