Bagaimana Mengirim Banyak Email Draf dengan Outlook VBA

Untuk beberapa sebab, anda mungkin menyimpan banyak draf e-mel di Outlook anda. Artikel ini akan mengajarkan kepada anda bagaimana mengirim semuanya atau hanya yang dipilih melalui satu klik, yang dibuat dengan Outlook VBA.

Kadang kala, anda mungkin tidak berharap dapat menghantar e-mel sekarang. Oleh itu, anda akan menyimpannya dalam folder mel Draf dan berhasrat untuk menghantarnya kemudian. Seperti biasa, semasa anda ingin menghantar draf, anda harus membukanya secara berasingan dan tekan butang "Kirim" satu persatu. Sekiranya terdapat sejumlah besar draf yang akan dihantar, ia akan memakan masa yang lama. Oleh itu, banyak pengguna berharap Outlook dapat membenarkan mereka menghantar semua draf hanya dengan mengklik satu butang. Namun, secara lalai, tidak ada butang seperti itu. Tetapi anda boleh menggunakan Outlook VBA untuk membuatnya. Berikut adalah langkah terperinci dan kod VBA.

Kumpulan Hantar Semua E-mel Draf

1. Pada mulanya, lancarkan aplikasi Outlook dan tekan pintasan "Alt + F11".
2. Kemudian anda akan membuka tetingkap editor VBA, di mana anda harus membuka modul baru.
3. Selepas itu, salin dan tampal kod 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. Selepas itu, anda boleh keluar dari editor VBA dan terus menambahkan projek VBA ke Quick Access Toolbar atau pita. Di sini kita akan mengambil Bar Alat Akses Pantas sebagai contoh.

• Pertama, pergi ke "Fail"> "Pilihan"> tab "Bar Alat Akses Pantas".
• Kemudian ikuti langkah-langkah yang ditunjukkan dalam gambar di bawah untuk menambahkan makro baru ke Bar Alat Akses Pantas.

5. Akhirnya anda boleh kembali ke tetingkap utama Outlook. Anda akan melihat butang baru di Bar Alat Akses Pantas.

• Sekiranya tidak ada item dalam folder Draf, apabila anda mengklik butang, anda akan menerima mesej seperti tangkapan skrin berikut.
• Tetapi jika terdapat item dalam folder Draf, anda akan menerima arahan, seperti gambar di bawah. Sebaik sahaja anda memilih "Ya", Outlook akan mulai mengirimkan semua draf.

Kumpulan Hantaran E-mel Draf Terpilih

Sekiranya anda ingin menghantar draf yang dipilih sahaja, maka kod di atas tidak sesuai. Anda boleh menggunakan kod berikut.

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 Bar Alat Akses Pantas seperti biasa.
3. Selepas itu, anda boleh memilih tardapatkan draf e-mel dan tekan butang, anda akan mendapat arahan seperti gambar:
4. Akhirnya, selagi anda mengklik "Ya", draf e-mel yang dipilih akan dihantar.

Buangkan Masalah Outlook yang Mengganggu

Mungkin anda telah menghadapi banyak masalah Outlook yang menjengkelkan. Bagaimana anda dapat menyingkirkannya? Seperti biasa, anda boleh mencuba alat pembaikannya, Scanpst.exe. Ia dapat menyelesaikan masalah fail Outlook PST yang kecil. Tetapi jika anda menghadapi masalah yang teruk, seperti Kerosakan e-mel PST, alat peti masuk tidak akan menghasilkan kesan. Pada ketika itu, anda tidak mempunyai pilihan selain menggunakan alat yang lebih unggul, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pembaikan ralat mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com