Ինչպես խմբաքանակով ուղարկել բոլոր ֆայլերը Windows պանակում ՝ Outlook- ի առանձին էլ

Outlook լուծումներ Սեպտեմբեր 29, 2025

Եթե ցանկանում եք Windows- ի թղթապանակի բոլոր ֆայլերը ուղարկել Outlook- ի անհատական նամակների միջոցով մեկին, կարող եք օգտագործել այս հոդվածում ներկայացված մեթոդը: Այն օգտագործում է VBA ծածկագիրը, ինչը բավականին արդյունավետ է:

Իմ նախորդ հոդվածը կարդալուց հետո - «3 արագ մեթոդներ տեղական պանակում տեղադրված բոլոր ֆայլերը Outlook էլ. Փոստին կցելու համար”, Որոշ օգտվողներ ցանկանում են բոլոր ֆայլերը ուղարկել տեղական թղթապանակ` առանձին էլ. Ստանդարտ ձևով, դուք պետք է ստեղծեք էլփոստեր և կցեք ֆայլերը մեկ առ մեկ: Բավականին մտահոգիչ է: Հետևաբար, հաջորդում մենք ձեզ կներկայացնենք ավելի արդյունավետ միջոց:

Փաթեթը ուղարկեք բոլոր ֆայլերը Windows թղթապանակում `առանձին էլ

Նախ, գործարկեք ձեր Outlook ծրագիրը։
Այնուհետեւ, Outlook- ում, մուտք գործեք VBA խմբագիր `հղում կատարելով հոդվածին -«Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
Հաջորդը, պատճենեք և տեղադրեք հետևյալ VBA ծածկագիրը նախագծի կամ մոդուլի մեջ:

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

Դրանից հետո դուք կարող եք միանգամից գործարկել այս մակրոը: Պարզապես սեղմեք «F5» ստեղնը:
Հետագայում ձեզանից կպահանջվի բացվող երկխոսության վանդակում ընտրել աղբյուրի Windows պանակը:
Ի վերջո, Outlook- ը կցի այս Windows պանակի բոլոր ֆայլերը ՝ առանձին էլփոստերը և նամակները ուղարկելու կանխորոշված հասցեատիրոջը:
Երբ այն ավարտվի, դուք կստանաք հաղորդագրություն, որը հուշում է «Ամեն ինչ ավարտված է»:

Հետևեք Outlook Health- ին

Չնայած Outlook-ը համարվում է շուկայում ամենատարածված էլ. փոստի հաճախորդը, այն դեռևս ունի մեկ ճակատագրական թերություն։ Դա նրա խոցելիությունն է։ Այլ կերպ ասած, Outlook-ը հակված է տարբեր սխալների և վնասման։ Հետևաբար, դուք պետք է մեծ նշանակություն տաք ձեր Outlook-ի առողջությանը՝ պաշտպանելով այն վնասներից։ Բացի այդ, դուք պետք է պարբերաբար պահուստավորեք ձեր Outlook ֆայլերը։ Բացի այդ, խորհուրդ է տրվում ձեռք բերել PST սխալների շտկման գործիք, ինչպիսին է DataNumen Outlook Repair. Դա կարող է վերանորոգել Outlook- ը խնդիրներ ՝ առանց որևէ դժվարության:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql ֆիքս և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com