Outlook'unuzdaki Tüm Açık ve Oluşturulmuş E-postaları Toplu Olarak Gönderme

Outlook'ta bazı e-postalar oluşturmayı bitirdikten sonra, bunları tek seferde göndermeyi umabilirsiniz. Şimdi, bu yazımızda size VBA kodu yardımıyla nasıl alacağınızı öğreteceğiz.

Örneğin, bazı yeni e-postaları tamamladınız ancak göndermediniz, sadece açık tuttunuz. Ve sonra, onları göndermek istersiniz. Genel olarak, her e-postadaki "Gönder" düğmesine tek tek tıklamanız gerekir. Bu durumda, tüm açık ve oluşturulmuş e-postaları toplu olarak göndermenize yardımcı olabilecek bir yöntemi özlemelisiniz.

Aşağıda, size böylesine etkili bir yolu göstereceğiz. VBA kullanıyor. VBA'yı nasıl kullanacağınızı bilmiyorsanız, makaleye başvurabilirsiniz – “Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?" Bu sırada.

Tüm Açık ve Oluşturulmuş E-postaları Toplu Olarak Gönderin

1. Başlangıç ​​olarak, e-postalarınızı her zamanki gibi oluşturabilir ve açık tutabilirsiniz.
2. Ardından, VBA düzenleyicisine erişmek için “Alt + F11” tuşlarına basın.
3. Ardından, yeni pencerede aşağıdaki VBA kodunu bir modüle kopyalayın.

Sub BatchSendOutAllOpenEmails()
    Dim objInspectors As Outlook.Inspectors
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim lMailCount As Long
 
    'Get all open items in your Outlook
    Set objInspectors = Outlook.Application.Inspectors
 
    lMailCount = 0
    For i = objInspectors.Count To 1 Step -1
        If objInspectors.Item(i).CurrentItem.Class = olMail Then
           'Get all open emails
           Set objMail = objInspectors.Item(i).CurrentItem
 
           'Send out open emails that contain subject & recipients
           If objMail.Subject <> "" Then
              If objMail.Recipients.Count > 0 Then
                 objMail.Send
                 lMailCount = lMailCount + 1
              End If
           End If
        End If
    Next
 
    'Prompt you of the results
    MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub

4. Daha sonra bu makroyu ya direkt olarak “F5” tuşuna basarak tetikleyin.
5. Son olarak, makro tamamlandığında size gönderilecek e-posta sayısı sorulur.
6. Şimdi, önceden açılmış tüm e-postaların gönderildiğini görebileceğiniz Giden Kutusu'nu açın.

Outlook'u Beklenmedik Hasarlardan Kurtarın

Daha önce hiç Outlook bozulmasıyla karşılaştınız mı? Birçok kullanıcı bu soruna maruz kalmış ve bu konuda şikayette bulunmuştur. Genel olarak, zamanında ve etkili çözümler yaparsanız, Outlook verilerini kolayca alabilirsiniz. hasarlı PST dosya. Örneğin, güncellenmiş bir Outlook verileriniz varsa, kolayca yedeklemeye dönebilirsiniz. Elbette, mükemmel ve güvenilir bir onarım aracından yardım alabilirsiniz. DataNumen Outlook Repair, bozuk Outlook dosyasını tarayabilir ve maksimum veriyi kurtarabilir.

Yazar Tanıtımı:

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