როგორ გავაგზავნოთ ყველა ფაილი Windows საქაღალდეში ცალკე Outlook ელფოსტის მეშვეობით

Outlook Solutions სექტემბერი 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-ის შეკეთება პრობლემები ყოველგვარი შეფერხების გარეშე.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql შესწორება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად