Cara Batch Mengirim Semua Email Terbuka dan Tersusun di Outlook Anda

Setelah Anda selesai membuat beberapa email di Outlook, Anda mungkin berharap untuk mengirimkannya sekaligus. Nah, di artikel ini, kami akan mengajari Anda cara mendapatkannya dengan bantuan kode VBA.

Misalnya, Anda telah menyelesaikan beberapa email baru tetapi tidak mengirimnya, hanya membiarkannya tetap terbuka. Dan setelah itu, Anda ingin mengirim mereka keluar. Secara umum, Anda harus mengklik tombol "Kirim" di setiap email satu per satu. Dalam keadaan ini, Anda harus merindukan metode yang dapat mendukung Anda untuk mengirim semua email terbuka dan tersusun secara massal.

Berikut ini akan kami paparkan cara yang efektif untuk Anda. Itu menggunakan VBA. jika Anda tidak tahu cara menggunakan VBA, Anda dapat merujuk ke artikel - “Cara Menjalankan Kode VBA di Outlook Anda"Sementara itu.

Kirim Batch Semua Email Terbuka dan Tertulis

1. Untuk memulainya, Anda dapat menulis email seperti biasa dan tetap membukanya.
2. Kemudian, tekan "Alt + F11" untuk mengakses editor VBA.
3. Selanjutnya, di jendela baru, salin kode VBA berikut ke dalam modul.

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. Setelah itu, picu makro ini baik dengan menekan tombol "F5" secara langsung.
5. Akhirnya, saat makro selesai, Anda akan diminta untuk jumlah email yang akan dikirim.
6. Sekarang, buka Kotak Keluar, di mana Anda dapat melihat bahwa semua email yang sebelumnya dibuka sedang dikirim.

Pulihkan Outlook dari Kerusakan Tak Terduga

Pernahkah Anda mengalami korupsi Outlook sebelumnya? Banyak pengguna telah mengalami masalah ini dan mengeluhkannya. Secara umum, jika Anda membuat solusi yang tepat waktu dan efektif, Anda dapat dengan mudah mengambil data Outlook dari PST rusak mengajukan. Misalnya, jika Anda memiliki data Outlook yang diperbarui, Anda dapat dengan mudah kembali ke cadangan. Tentu saja, Anda dapat mengambil bantuan alat perbaikan yang sangat baik dan andal, seperti DataNumen Outlook Repair, yang dapat memindai file Outlook yang rusak dan memulihkan data maksimum.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com