Bagaimana cara mendapatkan peringatan saat mengirim email ke domain eksternal di Outlook?
Saat menggunakan Outlook, bagaimana Anda dapat mencegah pengiriman email secara tidak sengaja ke penerima di luar perusahaan Anda? Sebenarnya, Anda dapat menampilkan kotak peringatan saat mengirim email ke domain eksternal di Outlook. Artikel ini akan memperkenalkan metode VBA untuk mencapainya.
Dapatkan peringatan saat mengirim email ke domain eksternal dengan kode VBA
Dapatkan peringatan saat mengirim email ke domain eksternal dengan kode VBA
Kode VBA berikut dapat membantu Anda mendapatkan peringatan saat mengirim email ke domain eksternal di Outlook. Silakan lakukan sebagai berikut.
1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Sesi Pandangan ini untuk membuka ThisOutlookSession (Kode) jendela, lalu salin kode VBA di bawah ini ke jendela. Lihat tangkapan layar:
Kode VBA: Dapatkan peringatan saat mengirim email ke domain eksternal
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Update by Extendoffice 20180504
Dim xMailItem As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim i As Long
Dim xRecipientAddress As String
Dim xPrompt As String
Dim xYesNo As Integer
Dim xPos As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
xRecipientAddress = xRecipients.Item(i).Address
xPos = InStrRev(LCase(xRecipientAddress), "@addin99.com")
If xPos <= 0 Then Exit For
Cancel = False
Next
If InStrRev(LCase(xRecipientAddress), "@addin99.com") > 0 Then Exit Sub
xPrompt = "Are you sure to send this email to outside your company? "
xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
End Sub
Note: Di kode, "@ addin99.com鈥滱dalah domain email internal yang akan Anda kirimi email. Harap ubah sesuai kebutuhan Anda.
Mulai sekarang, ketika mengklik tombol Send untuk mengirim email ke domain email eksternal (bukan domain email internal yang Anda tentukan dalam kode VBA), kotak peringatan akan muncul seperti gambar di bawah ini.
Artikel terkait:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!