Kako grupno poslati sve datoteke u Windows folderu putem zasebnih Outlook e-poruka

Ako želite nekome poslati sve datoteke u mapi Windows putem pojedinačnih Outlook e-poruka, možete koristiti metodu predstavljenu u ovom članku. Koristi VBA kod, koji je prilično efikasan.

Nakon što sam pročitao moj prethodni članak – “3 brza metoda za prilaganje svih datoteka u lokalnoj mapi na Outlook e-poštu“, neki korisnici žele da pošalju sve datoteke u lokalnom folderu putem zasebnih e-poruka. Na standardni način, trebali biste kreirati e-poštu i priložiti datoteke jednu po jednu. Prilično je problematično. Stoga ćemo vam u nastavku predstaviti efikasniji način.

Grupno slanje svih datoteka u Windows folderu putem zasebnih e-poruka

1. Prvo, pokrenite Outlook program.
2. Zatim, u Outlooku, pristupite VBA editoru u odnosu na članak – “Kako pokrenuti VBA kod u vašem Outlooku".
3. Zatim kopirajte i zalijepite sljedeći VBA kod u projekat ili 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. Nakon toga, ovaj makro možete pokrenuti odjednom. Samo pritisnite dugme "F5".
5. Nakon toga, od vas će se tražiti da odaberete izvorni Windows folder u iskačućem dijaloškom okviru.
6. Na kraju, Outlook će priložiti sve datoteke u ovoj Windows fascikli u odvojene e-poruke i poslati poštu unapred definisanom primaocu.
7. Kada se završi, dobićete poruku sa upitom "Sve je gotovo!".

Pazite na Outlook Health

Iako se Outlook smatra najpopularnijim klijentom e-pošte na tržištu, on i dalje ima fatalnu manu. To je njegova ranjivost. Drugim riječima, Outlook je sklon raznim greškama i oštećenjima. Stoga morate posvetiti veliku pažnju zdravlju svog Outlooka, štiteći ga od oštećenja. Osim toga, morate redovno praviti sigurnosne kopije svojih Outlook datoteka. Osim toga, preporučuje se nabavka alata za popravak PST datoteka, kao što je DataNumen Outlook Repair. Može popraviti Outlook problema bez ikakvih problema.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com