Cara Batch Mengirim Beberapa Draf Email dengan Outlook VBA

Untuk beberapa alasan, Anda mungkin menyimpan banyak draf email di Outlook Anda. Artikel ini akan mengajari Anda cara mengirim semuanya atau hanya yang dipilih melalui satu klik, yang dibuat dengan Outlook VBA.

Terkadang, Anda mungkin tidak berharap untuk mengirimkan email sekarang. Oleh karena itu, Anda akan menyimpannya di folder surat Draf dan bermaksud untuk mengirimkannya nanti. Seperti biasa, ketika Anda ingin mengirimkan draft, Anda harus membukanya satu per satu dan menekan tombol “Send” satu per satu. Jika ada banyak draf yang akan dikirim, itu akan cukup memakan waktu. Karenanya, banyak pengguna berharap Outlook dapat mengizinkan mereka mengirimkan semua draf hanya dengan mengklik satu tombol. Namun, secara default, tidak ada tombol seperti itu. Tapi Anda bisa menerapkan Outlook VBA untuk membuatnya. Berikut adalah langkah-langkah rumit dan kode VBA.

Kirim Batch Semua Draf Email

1. Pertama, luncurkan aplikasi Outlook dan tekan pintasan "Alt + F11".
2. Kemudian Anda akan membuka jendela editor VBA, di mana Anda harus membuka modul baru.
3. Selanjutnya, salin dan tempel kode VBA berikut ke dalamnya.

Sub SendAllDraftEmails()
    Dim objDrafts As Outlook.Items
    Dim objDraft As Object
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
 
    If objDrafts.Count > o Then
       strPrompt = "Are you sure to send out all the drafts?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objDrafts.Count To 1 Step -1
              objDrafts.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No Drafts!")
    End If
End Sub

4. Setelah itu, Anda dapat keluar dari editor VBA dan melanjutkan untuk menambahkan proyek VBA ke Bilah Alat Akses Cepat atau pita. Di sini kita akan mengambil Quick Access Toolbar sebagai contoh.

• Pertama, pergi ke "File"> "Options"> tab "Quick Access Toolbar".
• Kemudian ikuti langkah-langkah yang diperlihatkan pada gambar di bawah ini untuk menambahkan makro baru ke Bilah Alat Akses Cepat.

5. Akhirnya Anda dapat kembali ke jendela Outlook utama. Anda akan melihat tombol baru di Quick Access Toolbar.

• Jika tidak ada item di folder Draf, saat Anda mengklik tombol tersebut, Anda akan menerima pesan seperti screenshot berikut.
• Tetapi jika ada item di folder Draf, Anda akan menerima prompt, seperti gambar di bawah ini. Segera setelah Anda memilih "Ya", Outlook akan mulai mengirimkan semua draf.

Kirim Paket Email Konsep yang Dipilih

Jika Anda hanya ingin mengirimkan draf yang dipilih, kode di atas tidak sesuai. Anda dapat menggunakan kode berikut sebagai gantinya.

1. Pertama, salin ke modul baru.

Sub SendSelectedDraftEmails()
    Dim objSelection As Selection
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If objSelection.Count > 0 Then
       strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objSelection.Count To 1 Step -1
              objSelection.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No items selected!")
    End If
End Sub

2. Kemudian tambahkan makro baru ke Bilah Alat Akses Cepat seperti biasa.
3. Selanjutnya, Anda dapat memilih file tardapatkan draf email dan tekan tombol, Anda akan mendapatkan prompt seperti gambar:
4. Terakhir, selama Anda mengklik "Ya", draf email yang dipilih akan dikirim.

Buang Masalah Outlook yang Mengganggu

Mungkin Anda mengalami beberapa masalah Outlook yang menjengkelkan. Bagaimana Anda bisa menyingkirkannya? Seperti biasa, Anda dapat mencoba alat perbaikan bawaannya, Scanpst.exe. Itu dapat memperbaiki masalah file PST Outlook kecil. Tetapi jika Anda sayangnya bertemu dengan masalah yang parah, seperti Kerusakan email PST, alat kotak masuk tidak akan membuat efek. Pada titik itu, Anda tidak punya pilihan selain menggunakan alat yang lebih unggul, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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