Cara Cepat Menyalin Semua Alamat Email yang Terjadi di Badan ke Bidang "CC" Saat Membuat Email Outlook

Bagikan sekarang:

Terkadang, saat Anda menulis email, Anda mungkin ingin mengirimkan email ini ke alamat email di badan pesan. Artikel ini akan memandu Anda untuk mendapatkannya dalam waktu cepat.

Misalnya, seseorang menanyakan informasi kontak beberapa orang, seperti alamat email. Dalam kasus ini, Anda mungkin ingin memberi tahu orang-orang ini tentang masalah ini saat mengirimkan informasi kontak mereka kepada orang lain. Karenanya, Anda ingin menyalin alamat email dari badan pesan ke bidang "CC". Secara umum, Anda harus melakukannya satu per satu secara manual. Tapi itu terlalu membosankan dan tidak praktis. Jadi, berikut ini, kami akan memperkenalkan cara yang jauh lebih cerdas.Salin Semua Alamat Email yang Terjadi di Isi ke Bidang "CC" Saat Menulis Email Outlook

Salin Alamat Email yang Terjadi di Isi ke Bidang “CC” Saat Menulis

  1. Pertama-tama, tekan tombol “Alt + F11” untuk meluncurkan editor Outlook VBA.
  2. Kemudian, di jendela baru, masukkan kode VBA berikut ke dalam modul kosong.
Sub CopyEmailAddresses_FromBodyToCCField()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Object
    Dim objDocRange As Object
    Dim objRecipient As Outlook.Recipient
 
    'Get the current mail
    Set objMail = Application.ActiveInspector.CurrentItem
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objDocRange = objMailDocument.Range
 
    'Extract email addresses from mail body
    With objDocRange.Find
         .ClearFormatting
         .Replacement.ClearFormatting
         .Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
         .MatchWildcards = True
         .Wrap = wdFindStop
         .Execute
    End With
 
    'Add the found email addresses as CC recipients
    While objDocRange.Find.Found
          Set objRecipient = objMail.Recipients.Add(objDocRange.Text)
          objRecipient.Type = olCC
          objDocRange.Collapse wdCollapseEnd
          objDocRange.Find.Execute
    Wend
 
    'Resolve all recipients
    objMail.Recipients.ResolveAll
End Sub

Kode VBA - Salin Alamat Email yang Terjadi di Isi ke Bidang "CC"

  1. Setelah itu, keluar dari editor VBA dan tambahkan makro baru ini ke Bilah Alat Akses Cepat jendela Pesan dengan merujuk ke "Cara Menjalankan Kode VBA di Outlook Anda".
  2. Akhirnya, Anda bisa mengambil bidikan. Inilah contoh saya yang sebenarnya.
  • Pertama, saya membuat email yang berisi setumpuk alamat email di badan.
  • Lalu, klik tombol makro di Bilah Alat Akses Cepat.Jalankan Macro
  • Segera, saat makro selesai, semua alamat email di badan akan disalin ke bidang "CC", seperti gambar di bawah.Alamat Email Disalin ke Bidang "CC"

Bagaimana Jika Data Outlook Anda Rusak

Sudah diketahui umum bahwa Outlook dapat disusupi karena berbagai faktor, seperti kesalahan manusia, tiba-tiba mati, kesalahan perangkat lunak dalam Outlook serta kerusakan perangkat keras komputer Anda dan sebagainya. Dengan demikian, pada kenyataannya, banyak pengguna pernah mengalami masalah serupa di Outlook. Diakui bahwa most Masalah menjengkelkan dan merepotkan adalah kerusakan file Outlook. Dalam situasi itu, Anda harus menggunakan jasa profesional Pemulihan PST layanan atau perangkat lunak, 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 mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com

Bagikan sekarang:

Komentar ditutup.