Cara Mengirim Email Teks Biasa Hanya ke Mereka yang Berada di Domain Tertentu melalui Outlook VBA

Solusi Outlook September 29, 2025
Bagikan sekarang:

Beberapa pengguna ingin mengirim email Teks Biasa hanya ke penerima yang alamat emailnya ada di domain tertentu. Artikel ini akan memperkenalkan metode cerdas untuk mendapatkannya.

Di artikel saya sebelumnya "Cara Selalu Mengirim Email Outlook dalam Format Teks Biasa untuk Kontak Tertentu”, Anda bisa mendapatkan 2 pendekatan untuk mengirim email Teks Biasa hanya ke kontak tertentu. Jika Anda ingin mengirim email semacam itu ke semua kontak di domain email tertentu, menggunakan 2 cara dalam artikel itu akan sedikit bodoh dan merepotkan. Oleh karena itu, berikut ini kami akan membagikan kepada Anda cara lain yang jauh lebih efektif.

Kirim Email Teks Biasa Hanya ke Mereka yang berada di Domain Tertentu melalui Outlook VBA

Kirim Email Teks Biasa Hanya ke Mereka yang berada di Domain Tertentu

  1. Pertama-tama, Anda harus meluncurkan aplikasi Outlook Anda.
  2. Kemudian, Anda perlu menekan tombol tombol “Alt + F11” di layar utama Outlook.
  3. Selanjutnya, jendela "Microsoft Visual Basic for Applications" akan muncul. Di dalamnya, Anda harus membuka proyek "ThisOutlookSession".
  4. Selanjutnya, salin dan tempel kode VBA berikut ke dalam proyek ini.
'Occurs when sending an Outlook email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim strAddress, strDomain As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       For Each objRecipient In objMail.Recipients
           'Get the recipient's email domain
           strAddress = objRecipient.Address
           strDomain = Right(strAddress, Len(strAddress) - InStr(strAddress, "@"))
 
           'If the domain is the specific one
           'Change the "datanumen.com" as per your needs
           If strDomain = "datanumen.com" Then
              'Convert the email format to plain text
              objMail.BodyFormat = olFormatPlain
              objMail.Save
              Exit For
           End If
      Next
    End If
End Sub

Kode VBA - Kirim Email Teks Biasa Hanya ke Mereka yang berada di Domain Tertentu

  1. Setelah itu, Anda harus menandatangani makro ini. Klik “Alat” > “Tanda Tangan Digital” dan ikuti panduan di layar untuk menyelesaikannya.
  2. Kemudian, keluar dari jendela saat ini. Kemudian beralih ke tab "Pengembang" dan ketuk tombol "Keamanan Makro". Di kotak dialog sembulan baru, Anda harus mengubah pengaturan untuk mengaktifkan makro yang ditandatangani secara digital.
  3. Akhirnya, Anda dapat mengambil bidikan. Buat dan tulis email ke satu penerima di domain email tertentu. Dan tekan tombol "Kirim" untuk mengirimkannya. Dalam proses ini, Outlook akan secara otomatis mengubah format email menjadi Teks Biasa.

Pulihkan File Outlook yang Rusak

Outlook rentan terhadap infeksi virus, serangan malware, lonjakan daya, dan sebagainya. Karenanya kita harus mempelajari beberapa tips untuk memulihkan data Outlook setelah rusak. Pada awalnya, Anda harus memeriksa cadangan Anda. Jika cadangan terlalu lama atau gagal dipulihkan, Anda dapat menggunakan alat bawaan – Scanpst.exe. Tentu saja alat perbaikan kotak masuk tidak selalu efektif. Jadi, sebaiknya Anda menyiapkan alat eksternal yang andal dan meyakinkan, seperti DataNumen Outlook Repair. Sangat direkomendasikan karena tingkat pemulihannya yang tinggi.

Pengantar Penulis:

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

Bagikan sekarang:

Komentar ditutup.