Kadang kala, semasa anda menghantar atau menerima e-mel dengan banyak penerima, anda mungkin ingin membuat kumpulan kenalan untuk penerima ini. Artikel ini akan memperkenalkan cara cepat untuk mencapainya dengan Outlook VBA.
Dalam artikel kami sebelumnya "Cara Membuat Kumpulan Kenalan dari Senarai Penerima", Kami telah mempelajari kaedah biasa untuk membuat kumpulan kenalan untuk penerima e-mel. Iaitu untuk memilih dan menyalin penerima dari e-mel terlebih dahulu, dan kemudian membuat kumpulan kenalan secara manual dan tampal penerima di medan "Anggota ->". Jelas, ini sangat membebankan. Oleh itu, di sini kami akan memperkenalkan pendekatan lain, yang akan menggunakan Outlook VBA untuk mencapai kumpulan kenalan baru dengan pantas. Anda hanya boleh menekan butang tanpa perlu menyalin dan menampal berulang kali. Teruskan membaca untuk mendapatkan langkah terperinci dan kod VBA.
Buat Kumpulan Kenalan dari Senarai Penerima E-mel
- Sebagai permulaan, anda perlu pergi ke tab "Pembangun" dalam Outlook.
- Kemudian di bawah tab ini, anda boleh mencari dan mengklik butang "Visual Basic".
- Selepas itu, tetingkap "Microsoft Visual Basic for Applications" baru akan dibuka. Sekarang anda harus membuka modul baru dengan mengklik "Masukkan"> "Modul".
- Selanjutnya di tetingkap modul baru, anda boleh menyalin dan menampal kod berikut ke dalamnya.
Sub createcontactgroupforrecipients()
Dim obApp As Application
Dim olSel As Selection
Dim obj As Object
Dim oMail As MailItem
Dim tempMail As MailItem
Dim Recips As Recipients
Dim ConGroup As DistListItem
Dim strName As String
Set obApp = Outlook.Application
Set olSel = obApp.ActiveExplorer.Selection
For Each obj In olSel
If obj.Class = olMail Then
Set oMail = obj
Set tempMail = oMail.ReplyAll
Set Recips = tempMail.Recipients
Set ConGroup = obApp.CreateItem(olDistributionListItem)
strName = InputBox("Specify a name for the new contact group:")
With ConGroup
.AddMembers Recips
.DLName = strName
'Use ".Save" to directly save the new contact group
.Display
End With
tempMail.Close olDiscard
End If
Next
End Sub
- Kemudian anda boleh keluar dari tetingkap "Visual Basic" semasa dan terus menambahkan makro baru ke Bar Alat Akses Pantas. Klik pada anak panah ke bawah di Bar Alat Akses Pantas dan pilih "Lebih banyak Perintah" dari senarai drop-down.
- Selepas itu, anda akan masuk ke tetingkap "Pilihan Outlook". Pada ketika ini, anda perlu mengambil langkah berikut:
- Pertama, tetapkan "Pilih perintah dari" ke "Makro".
- Kemudian cari dan cari makro yang ditambahkan sebelumnya.
- Seterusnya klik pada butang "Tambah" di tengah.
- Terakhir tekan butang "OK".
- Selepas itu, anda boleh kembali ke panel e-mel Outlook dan mencuba.
- Pada mulanya, anda boleh menghantar satu e-mel di mana-mana folder mel.
- Kemudian klik butang di Bar Alat Akses Pantas, seperti gambar di bawah:
- Dan seterusnya anda akan menerima kotak mesej, yang menuntut anda menentukan nama untuk kumpulan kenalan baru.
- Kemudian klik butang "OK". Sekali gus, kumpulan kenalan baru, yang mengandungi semua penerima e-mel yang dipilih, akan dibuka. Anda boleh menekan "Simpan & Tutup" untuk menyimpannya.
Mesti Ada dalam Perlindungan Data Outlook
Oleh kerana Outlook rentan, anda harus membuat langkah berjaga-jaga yang mencukupi untuk melindungi data Outlook mereka. Pertama, anda harus membuat sandaran data Outlook biasa. Di samping itu, anda perlu mengetahui cara mencari dan menjalankan alat pembaikan terbina dalam, Scanpst.exe. Keperluan terakhir tetapi tidak mustahak adalah luaran yang luar biasa alat pembaikan data Outlook yang rosak, Seperti DataNumen Outlook Repair, yang akan menyelamatkan anda sekiranya sandaran dan Scanpst.exe keduanya gagal.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pembaikan SQL Server ralat pangkalan data mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com