Ayrı Outlook E-poçtları vasitəsilə Windows Qovluğunda Bütün Faylları Toplu Göndərmək

Windows qovluğundakı bütün faylları fərdi Outlook e-poçtları vasitəsilə kiməsə göndərmək istəyirsinizsə, bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz. Bu, olduqca təsirli olan VBA kodundan istifadə edir.

Əvvəlki məqaləmi oxuduqdan sonra - "Yerli qovluqdakı bütün faylları Outlook e-poçtuna əlavə etmək üçün 3 sürətli üsul”, bəzi istifadəçilər yerli qovluqdakı bütün faylları ayrı-ayrı e-poçtlar vasitəsilə göndərmək istəyirlər. Standart üslubda siz e-poçtlar yaratmalı və faylları bir-bir əlavə etməlisiniz. Bu olduqca əziyyətlidir. Buna görə də, aşağıda sizə daha təsirli bir üsul təqdim edəcəyik.

Windows Qovluğundakı Bütün Faylları Ayrı E-poçtlar vasitəsilə Toplu Göndər

1. Əvvəlcə Outlook proqramınızı işə salın.
2. Sonra, Outlook-da məqaləyə istinad edərək VBA redaktoruna daxil olun - "Outlook-da VBA kodunu necə işlətmək olar".
3. Sonra, aşağıdakı VBA kodunu bir layihəyə və ya modula köçürün və yapışdırın.

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. Bundan sonra bu makronu bir anda işə sala bilərsiniz. Sadəcə “F5” düyməsini sıxmaq kifayətdir.
5. Bundan sonra, açılan informasiya qutusunda mənbə Windows qovluğunu seçməlisiniz.
6. Nəhayət, Outlook bu Windows qovluğundakı bütün faylları ayrı-ayrı e-poçtlara əlavə edəcək və məktubları əvvəlcədən təyin edilmiş alıcıya göndərəcək.
7. Tamamlandıqda, "Hər şey tamamlandı!" deyə bir mesaj alacaqsınız.

Outlook Sağlamlığına diqqət yetirin

Outlook bazarda ən populyar e-poçt klienti kimi təqdim olunsa da, hələ də ölümcül bir qüsuru var. Bu, onun zəifliyidir. Başqa sözlə, Outlook müxtəlif səhvlərə və korrupsiyaya meyllidir. Buna görə də Outlook-un sağlamlığına, onu zədələnmədən qorumağa böyük əhəmiyyət verməlisiniz. Bundan əlavə, Outlook fayllarınızı müntəzəm olaraq ehtiyat nüsxəsini çıxarmalısınız. Bundan əlavə, PST düzəliş aləti kimi tövsiyə olunur. DataNumen Outlook Repair. Mümkündür Outlook-u təmir edin heç bir əngəl olmadan məsələlər.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com