Cara Memeriksa Lampiran secara automatik dalam E-mel Keluar Khusus dengan Outlook VBA

Kadang-kadang, anda mungkin lupa menambahkan lampiran yang diperlukan pada e-mel tertentu, seperti e-mel untuk melaporkan karya mingguan anda. Artikel ini akan mengajar anda untuk mengaktifkan amaran pop timbul untuk mengelakkan anda menghantar e-mel tertentu tanpa lampiran.

Tidak seperti Outlook 2010 dan versi sebelumnya, Outlook 2013 mempunyai sokongan asli untuk mengingatkan anda ketika anda belum melampirkan fail dalam e-mel keluar. Anda boleh mengaktifkan ciri ini dalam Pilihan Outlook seperti tangkapan skrin berikut:

Selagi anda mendayakan amaran automatik untuk lampiran yang hilang, setiap kali anda menghantar e-mel, amaran akan muncul. Tetapi kebanyakan masa, anda memang tidak perlu melampirkan fail. Dalam kes sedemikian, amaran akan menjengkelkan. Di sini kami akan memberitahu anda cara mendayakan amaran automatik apabila tiada lampiran dalam e-mel keluar tertentu melalui Outlook VBA.

Periksa Auto untuk Lampiran dalam E-mel Keluar Khusus

1. Pada awalnya, lancarkan Outlook dan beralih ke tab "Pembangun".
2. Klik pada butang "Visual Basic" dalam kumpulan "Code".
3. Kemudian di tetingkap "Microsoft Visual Basic for Applications" yang baru muncul, anda harus mengklik dua kali pada projek "ThisOutlookSession" untuk membukanya.
4. Selepas itu, anda harus menyalin kod berikut ke dalam projek "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

5. Seterusnya klik ikon simpan di bar alat.
6. Selepas itu, anda harus terus menandatangani kod ini.

• Pertama sekali, anda harus mencipta sijil digital. MS Office dilengkapi dengan utiliti terbina dalam – “Sijil Digital untuk Projek VBA”. Anda boleh mendapatkannya dengan mencari “vba” dalam “Menu Mula”.
• Seterusnya, kembali ke tetingkap "visual basic" untuk menandatangani kodnya.

7. Setelah itu, keluar dari "Visual Basic" dan klik butang "Tetapan makro" di bawah tab "Pembangun". Dalam dialog "Pusat Kepercayaan", anda harus memilih untuk mengaktifkan makro yang ditandatangani secara digital sahaja. Ingatlah untuk mengklik "OK" terakhir.
8. Akhirnya anda boleh mencuba. Buat mesej baru dengan penerima dan subjek tertentu, tetapi tanpa lampiran. Apabila anda mengklik butang "Kirim", anda akan menerima peringatan pop timbul, seperti gambar berikut:

Pastikan Data Outlook Anda Dilindungi

Oleh kerana Outlook terdedah kepada kerosakan, anda harus berusaha melindungi data Outlook anda. Cara terbaik ialah membuat sandaran yang konsisten dan terkini. Oleh itu, anda boleh dengan mudah memulihkan data Outlook yang rosak dari sandaran walaupun mengalami kerosakan Outlook yang tidak dijangka. Selain itu, jika sandaran gagal, anda tidak mempunyai pilihan selain untuk menggunakan alat pembaikan yang berpengalaman, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

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