Cara Memeriksa Lampiran secara Otomatis di Email Keluar Tertentu dengan Outlook VBA

Bagikan sekarang:

Terkadang, Anda mungkin lupa menambahkan lampiran yang diperlukan ke email tertentu, seperti email untuk melaporkan pekerjaan mingguan Anda. Artikel ini akan mengajarkan Anda untuk mengaktifkan peringatan popup untuk mencegah Anda mengirim email tertentu tanpa lampiran.

Tidak seperti Outlook 2010 dan versi sebelumnya, Outlook 2013 memiliki dukungan asli untuk mengingatkan Anda saat Anda belum melampirkan file apa pun di email keluar. Anda dapat mengaktifkan fitur ini di Opsi Outlook seperti tangkapan layar berikut:Otomatis Memperingatkan Anda Jika Tidak Ada Lampiran di Outlook 2013

Selama Anda mengaktifkan peringatan otomatis untuk lampiran yang hilang, setiap kali Anda mengirim email, peringatan akan muncul. Namun, sebagian besar waktu, Anda memang tidak perlu melampirkan file. Dalam kasus seperti itu, peringatan tersebut akan mengganggu. Di sini kami akan memberi tahu Anda cara mengaktifkan peringatan otomatis ketika tidak ada lampiran pada email keluar tertentu menggunakan Outlook VBA.

Pemeriksaan Otomatis untuk Lampiran di Email Keluar Tertentu

  1. Pertama-tama, luncurkan Outlook dan beralih ke tab "Pengembang".
  2. Klik pada tombol "Visual Basic" di grup "Kode".Tombol Visual Basic
  3. Kemudian di jendela popup baru "Microsoft Visual Basic for Applications", Anda harus mengklik dua kali pada proyek "ThisOutlookSession" untuk membukanya.
  4. Selanjutnya, Anda harus menyalin kode berikut ke dalam proyek "ThisOutlookSession".
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strMsg As String
    Dim intAns As Integer
 
    If Item.Class <> olMail Then
       Exit Sub
    End If
 
    'Specify the Email Recipient and Subject
    If InStr(LCase(Item.To), "test") > 0 And InStr(LCase(Item.Subject), "worklog") > 0 Then
       If Item.Attachments.Count = 0 Then
          strMsg = "Do you want to send the email without attachments?"
          intAns = MsgBox(strMsg, vbYesNo + vbDefaultButton2 + vbExclamation, "Check for Missing Attachments")
          If intAns = vbNo Then
             Cancel = True
          End If
       End If
    End If
End Sub

Salin Kode di Proyek ThisOutlookSession

  1. Selanjutnya klik ikon simpan di toolbar.
  2. Setelah itu, Anda harus melanjutkan untuk menandatangani kode ini.
  • Pertama, Anda harus membuat sertifikat digital. MS Office dilengkapi dengan utilitas bawaan – “Sertifikat Digital untuk Proyek VBA”. Anda dapat menemukannya dengan mencari “vba” di “Menu Mulai”.Sertifikat Digital untuk Proyek VBA
  • Selanjutnya, kembali ke jendela "visual basic" untuk menandatangani kode.Tanda tangan digital
  1. Setelah itu, keluar dari "Visual Basic" dan klik tombol "Macro settings" di bawah tab "Developer". Dalam dialog "Pusat Kepercayaan", Anda harus memilih untuk hanya mengaktifkan makro yang ditandatangani secara digital. Ingatlah untuk mengklik "OK" terakhir.Ubah Pengaturan Makro
  2. Akhirnya Anda bisa mencobanya. Buat pesan baru dengan penerima dan subjek tertentu, tetapi tanpa lampiran. Saat Anda mengklik tombol "Kirim", Anda akan menerima peringatan popup, seperti gambar berikut:Periksa Lampiran yang Hilang

Lindungi Data Outlook Anda

Karena Outlook rentan terhadap kerusakan, Anda harus berusaha melindungi data Outlook Anda. Cara terbaik adalah dengan membuat backup yang konsisten dan up-to-date. Karenanya, Anda bisa dengan mudah memulihkan data Outlook yang rusak dari cadangan meskipun mengalami kerusakan Outlook yang tidak terduga. Selain itu, jika cadangan gagal, Anda tidak punya pilihan selain mengambil bantuan alat perbaikan berpengalaman, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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

Bagikan sekarang:

Komentar ditutup.