Kako grupno poslati sve datoteke u Windows mapi putem zasebne Outlook e-pošte

Outlook rješenja 29. rujna 2025.

Ako želite nekome poslati sve datoteke u Windows mapi putem pojedinačne Outlook e-pošte, možete koristiti metodu predstavljenu u ovom članku. Koristi VBA kod, što je prilično učinkovito.

Nakon čitanja mog prethodnog članka – “3 brze metode za prilaganje svih datoteka u lokalnoj mapi Outlook e-pošti”, neki korisnici žele poslati sve datoteke u lokalnoj mapi putem zasebnih e-poruka. Na standardni način, trebali biste izraditi e-poruke i priložiti datoteke jednu po jednu. Prilično je problematično. Stoga ćemo vam u nastavku predstaviti učinkovitiji način.

Grupno pošaljite sve datoteke u Windows mapi putem zasebne e-pošte

Prvo, pokrenite Outlook program.
Zatim u programu Outlook pristupite uređivaču VBA u odnosu na članak – "Kako pokrenuti VBA kod u vašem Outlooku".
Zatim kopirajte i zalijepite sljedeći VBA kod u projekt 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

Nakon toga možete pokrenuti ovu makronaredbu odjednom. Samo pritisnite tipku "F5".
Nakon toga, od vas će se tražiti da odaberete izvornu Windows mapu u skočnom dijaloškom okviru.
Naposljetku, Outlook će priložiti sve datoteke u ovoj Windows mapi za odvajanje e-pošte i poslati e-poštu unaprijed definiranom primatelju.
Kada završi, dobit ćete poruku s upitom "Sve je gotovo!".

Pripazite na Outlook Health

Iako se Outlook smatra najpopularnijim klijentom e-pošte na tržištu, i dalje ima fatalnu manu. To je njegova ranjivost. Drugim riječima, Outlook je sklon raznim pogreškama i oštećenjima. Stoga morate pridati veliku važnost zdravlju svog Outlooka, štiteći ga od oštećenja. Osim toga, morate redovito izrađivati sigurnosne kopije svojih Outlook datoteka. Osim toga, preporučuje se nabaviti alat za popravak PST-a, poput DataNumen Outlook Repair. To može popraviti Outlook pitanja bez ikakvih problema.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql popravak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com