Windows papkasidagi barcha fayllarni alohida Outlook elektron pochtalari orqali qanday qilib ommaviy yuborish kerak

Agar siz Windows papkasidagi barcha fayllarni alohida Outlook elektron pochta xabarlari orqali kimgadir yubormoqchi bo'lsangiz, ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin. U VBA kodidan foydalanmoqda, bu juda samarali.

Oldingi maqolamni o'qib chiqqandan so'ng - "Mahalliy jilddagi barcha fayllarni Outlook elektron pochtasiga biriktirishning 3 ta tezkor usuli”, ba'zi foydalanuvchilar mahalliy papkadagi barcha fayllarni alohida elektron pochta orqali yuborishni xohlashadi. Standart uslubda siz elektron pochta xabarlarini yaratishingiz va fayllarni birma-bir biriktirishingiz kerak. Bu juda muammoli. Shuning uchun, quyida biz sizga yanada samaraliroq usulni taqdim etamiz.

Windows papkasidagi barcha fayllarni alohida elektron pochta orqali ommaviy yuborish

1. Avvalo, Outlook dasturingizni ishga tushiring.
2. Keyin, Outlook-da, maqolaga murojaat qilib, VBA muharririga kiring - "Outlook-da VBA kodini qanday ishlatish kerak".
3. Keyinchalik, quyidagi VBA kodini loyiha yoki modulga nusxalash va joylashtirish.

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. Shundan so'ng siz ushbu makrosni bir vaqtning o'zida ishga tushirishingiz mumkin. Faqat "F5" tugmachasini bosing.
5. Keyinchalik, ochilgan dialog oynasida manba Windows papkasini tanlashingiz talab qilinadi.
6. Oxir-oqibat, Outlook ushbu Windows papkasidagi barcha fayllarni alohida elektron pochtalarga biriktiradi va xatlarni oldindan belgilangan qabul qiluvchiga yuboradi.
7. Ish tugagach, siz "Hammasi tugadi!" Degan xabarni olasiz.

Outlook salomatligini kuzatib boring

Outlook bozordagi eng mashhur elektron pochta mijozi sifatida e'lon qilingan bo'lsa-da, uning hali ham jiddiy kamchiligi bor. Bu uning zaifligi. Boshqacha qilib aytganda, Outlook turli xil xatolar va buzilishlarga moyil. Shuning uchun siz Outlook-ning sog'lig'iga, uni shikastlanishdan himoya qilishga katta ahamiyat berishingiz kerak. Bundan tashqari, siz Outlook fayllaringizni muntazam ravishda zaxiralashingiz kerak. Bundan tashqari, PST tuzatish vositasini, masalan, ... ni olish tavsiya etiladi. DataNumen Outlook Repair. U qila oladi Outlook-ni ta'mirlash hech qanday muammosiz muammolar.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com