Bir Windows Klasöründeki Tüm Dosyaları Ayrı Outlook E-postaları Yoluyla Toplu Olarak Gönderme

Bir Windows klasöründeki tüm dosyaları tek tek Outlook e-postaları aracılığıyla birine göndermek isterseniz, bu makalede açıklanan yöntemi kullanabilirsiniz. Oldukça etkili olan VBA kodunu kullanıyor.

Bir önceki yazımı okuduktan sonra – “Yerel Klasördeki Tüm Dosyaları Outlook E-postasına Eklemek için 3 Hızlı Yöntem”, bazı kullanıcılar yerel bir klasördeki tüm dosyaları ayrı e-postalarla göndermek istiyor. Standart şekilde, e-postalar oluşturmalı ve dosyaları tek tek eklemelisiniz. Oldukça sıkıntılı. Bu nedenle, aşağıda size daha etkili bir yol tanıtacağız.

Bir Windows Klasöründeki Tüm Dosyaları Ayrı E-postalarla Toplu Gönderin

1. Öncelikle Outlook programınızı başlatın.
2. Ardından, Outlook'ta, makaleye atıfta bulunarak VBA düzenleyicisine erişin - "Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız? anlayışının sonucu olarak, buzdolabında iki üç günden fazla durmayan küçük şişeler elinizin altında bulunur.
3. Ardından, aşağıdaki VBA kodunu kopyalayıp bir projeye veya bir modüle yapıştı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 makroyu bir kerede çalıştırabilirsiniz. Sadece “F5” tuş düğmesine basın.
5. Ardından, açılan iletişim kutusunda kaynak Windows klasörünü seçmeniz istenecektir.
6. Son olarak Outlook, e-postaları ayırmak ve postaları önceden tanımlanmış alıcıya göndermek için bu Windows klasöründeki tüm dosyaları ekler.
7. Bittiğinde, “Hepsi tamamlandı!” Diye soran bir mesaj alacaksınız.

Gözünüz Outlook Health'te Olsun

Outlook, piyasadaki en popüler e-posta istemcisi olarak lanse edilse de, hâlâ ölümcül bir kusuru var: Güvenlik açıkları. Başka bir deyişle, Outlook çeşitli hatalara ve bozulmalara karşı hassastır. Bu nedenle, Outlook sağlığınıza büyük önem vermeli ve onu hasardan korumalısınız. Ayrıca, Outlook dosyalarınızı düzenli aralıklarla yedeklemeniz gerekir. Bunun yanı sıra, PST düzeltme aracı edinmeniz de önerilir. DataNumen Outlook Repair. Bu olabilir Outlook'u onar herhangi bir güçlük olmadan sorunlar.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql düzeltmesi ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com