Kaip paketu siųsti visus failus „Windows“ aplanke naudojant atskirus „Outlook“ el

„Outlook“ sprendimai Rugsėjis 29, 2025
Bendrinti dabar:

Jei norite kam nors nusiųsti visus „Windows“ aplanke esančius failus per atskirus „Outlook“ el. laiškus, galite naudoti šiame straipsnyje aprašytą metodą. Jis naudoja VBA kodą, kuris yra gana efektyvus.

Perskaičius mano ankstesnį straipsnį - "3 greiti būdai, kaip visus vietiniame aplanke esančius failus pridėti prie „Outlook“ el“, kai kurie vartotojai nori siųsti visus vietiniame aplanke esančius failus atskirais el. Įprastu būdu turėtumėte kurti el. laiškus ir pridėti failus po vieną. Tai gana varginantis. Todėl toliau mes jums pristatysime efektyvesnį būdą.

Siųskite paketu visus failus „Windows“ aplanke naudodami atskirus „Outlook“ el

Siųskite visus failus „Windows“ aplanke atskirais el

  1. Pirmiausia paleiskite „Outlook“ programą.
  2. Tada programoje „Outlook“ pasiekite VBA redaktorių pagal straipsnį – „Kaip paleisti VBA kodą „Outlook“.".
  3. Tada nukopijuokite ir įklijuokite šį VBA kodą į projektą arba 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

VBA kodas – paketiniu būdu siųskite visus „Windows“ aplanke esančius failus atskirais el

  1. Po to šią makrokomandą galėsite paleisti iš karto. Tiesiog paspauskite mygtuką „F5“.
  2. Vėliau iššokančiajame dialogo lange turėsite pasirinkti šaltinio „Windows“ aplanką.Pasirinkite „Windows“ aplanką
  3. Galiausiai „Outlook“ pridės visus šiame „Windows“ aplanke esančius failus prie atskirų el. laiškų ir išsiųs laiškus iš anksto nustatytam gavėjui.
  4. Kai tai baigsis, gausite pranešimą, raginantį „Viskas atlikta!“.Pranešimas, raginantis „Viskas atlikta“

Stebėkite „Outlook Health“.

Nors „Outlook“ laikoma populiariausia el. pašto programa rinkoje, ji vis dar turi vieną lemtingą trūkumą. Tai yra jos pažeidžiamumas. Kitaip tariant, „Outlook“ yra linkusi į įvairias klaidas ir duomenų iškraipymus. Todėl turite skirti didelę reikšmę savo „Outlook“ sveikatai, apsaugodami ją nuo pažeidimų. Be to, turite reguliariai kurti atsargines „Outlook“ failų kopijas. Be to, rekomenduojama įsigyti PST taisymo įrankį, pvz., DataNumen Outlook Repair. Tai gali pataisyti Outlook problemų be jokių rūpesčių.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com

Bendrinti dabar:

Komentarai yra uždaryti.