Windows хавтас дахь бүх файлыг тусдаа Outlook имэйлээр хэрхэн багцаар илгээх вэ

Хэрэв та Windows хавтсанд байгаа бүх файлыг хэн нэгэн рүү бие даасан Outlook имэйлээр илгээхийг хүсвэл энэ нийтлэлд танилцуулсан аргыг ашиглаж болно. Энэ нь VBA кодыг ашиглаж байгаа бөгөөд энэ нь нэлээд үр дүнтэй юм.

Миний өмнөх нийтлэлийг уншсаны дараа - "Локал хавтас дахь бүх файлыг Outlook имэйлд хавсаргах 3 хурдан арга”, зарим хэрэглэгчид дотоод хавтсанд байгаа бүх файлыг тусдаа имэйлээр илгээхийг хүсдэг. Стандарт загвараар та имэйл үүсгэж, файлуудыг нэг нэгээр нь хавсаргах хэрэгтэй. Энэ нь нэлээд төвөгтэй юм. Тиймээс бид танд илүү үр дүнтэй аргыг дараах байдлаар танилцуулах болно.

Windows хавтас дахь бүх файлыг тусдаа имэйлээр багцаар илгээнэ үү

1. Эхлээд Outlook програмаа эхлүүлнэ үү.
2. Дараа нь, Outlook дээр нийтлэлийн лавлагаатай VBA засварлагч руу хандана уу - "Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
3. Дараа нь дараах 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

4. Үүний дараа та энэ макрог нэг дор ажиллуулж болно. "F5" товчийг дарахад л хангалттай.
5. Дараа нь гарч ирэх харилцах цонхонд та Windows-ийн эх хавтсыг сонгох шаардлагатай болно.
6. Эцсийн эцэст, Outlook нь энэ Windows хавтсанд байгаа бүх файлыг тусдаа имэйлд хавсаргаж, урьдчилан тодорхойлсон хүлээн авагч руу захидал илгээх болно.
7. Энэ нь дууссаны дараа та "Бүгд дууссан!" гэсэн мессежийг хүлээн авах болно.

Outlook-ийн эрүүл мэндийг анхаарч үзээрэй

Outlook нь зах зээл дээрх хамгийн алдартай имэйл клиент гэж сурталчилж байгаа ч гэсэн нэг ноцтой дутагдалтай талтай хэвээр байна. Энэ нь түүний эмзэг байдал юм. Өөрөөр хэлбэл, Outlook нь янз бүрийн алдаа, эвдрэлд өртөмтгий байдаг. Тиймээс та Outlook-ийн эрүүл мэнддээ маш их анхаарал хандуулж, эвдрэлээс хамгаалах хэрэгтэй. Үүнээс гадна та Outlook файлуудаа тогтмол нөөцлөх хэрэгтэй. Түүнчлэн, PST засварлах хэрэгсэл гэх мэтийг авахыг зөвлөж байна. DataNumen Outlook RepairБайна. Ингэж чаддаг Outlook програмыг засах ямар ч төвөггүй асуудлууд.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com