Cum să trimiteți în lot toate fișierele dintr-un folder Windows prin e-mailuri separate Outlook

Dacă doriți să trimiteți cuiva toate fișierele dintr-un folder Windows prin e-mailuri individuale Outlook, puteți utiliza metoda introdusă în acest articol. Folosește codul VBA, care este destul de eficient.

După ce am citit articolul meu anterior – „3 Metode rapide pentru a atașa toate fișierele dintr-un folder local la un e-mail Outlook”, unii utilizatori doresc să trimită toate fișierele dintr-un folder local prin e-mailuri separate. În mod standard, ar trebui să creați e-mailuri și să atașați fișierele unul câte unul. Este destul de supărător. Prin urmare, în cele ce urmează, vă vom prezenta o modalitate mai eficientă.

Trimiteți în lot toate fișierele dintr-un folder Windows prin e-mailuri separate

1. În primul rând, porniți programul Outlook.
2. Apoi, în Outlook, accesați editorul VBA cu referire la articol – „Cum să rulați codul VBA în Outlook".
3. Apoi, copiați și inserați următorul cod VBA într-un proiect sau într-un 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. După aceea, puteți rula această macrocomandă dintr-o dată. Doar apăsați butonul „F5”.
5. Ulterior, vi se va cere să selectați folderul Windows sursă în caseta de dialog pop-up.
6. În cele din urmă, Outlook va atașa toate fișierele din acest folder Windows la e-mailuri separate și va trimite e-mailurile către destinatarul predefinit.
7. Când se termină, veți primi un mesaj care vă solicită „Totul gata!”.

Fii cu ochii pe Outlook Health

Deși Outlook a fost promovat ca fiind cel mai popular client de e-mail de pe piață, acesta are încă o problemă fatală. Și anume vulnerabilitatea sa. Cu alte cuvinte, Outlook este predispus la diverse erori și corupție. Prin urmare, trebuie să acordați o mare importanță stării Outlook, protejându-l de daune. În plus, trebuie să faceți copii de rezervă ale fișierelor Outlook la intervale regulate. În plus, este recomandat să obțineți un instrument de remediere PST, cum ar fi DataNumen Outlook Repair. Poate repara Outlook probleme fără bătăi de cap.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com