Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara menambahkan kontak secara otomatis dari email saat membalas di Outlook?

Di Outlook 2010 Anda dapat mengaktifkan file Kontak yang disarankan fitur dan secara otomatis menambahkan penerima sebagai kontak baru. Namun, ini Kontak yang disarankan fitur tidak didukung di Outlook 2013 dan 2016. Di sini, saya akan memperkenalkan VBA untuk secara otomatis menambahkan pengirim dan penerima email sebagai kontak baru saat membalas di Outlook.

Tambahkan kontak secara otomatis dari email Outlook saat membalas dengan VBA

Tab Office - Aktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Lebih Mudah ...
Kutools for Outlook - Membawa 100 Fitur Canggih yang Kuat ke Microsoft Outlook
  • CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email berdasarkan aturan; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
  • Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat surat Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
  • Balas (Semua) Dengan Semua Lampiran dalam percakapan surat; Balas Banyak Email sekaligus; Tambah Salam Otomatis saat membalas; Tambah Tanggal & Waktu secara Otomatis ke dalam subjek ...
  • Alat Lampiran: Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua Otomatis ... Laporan Cepat, Hitung Email Terpilih, Hapus Duplikat Email dan Kontak ...
  • Lebih dari 100 fitur canggih akan memecahkan sebagian besar masalah Anda di Outlook 2021 - 2010 atau Office 365. Fitur lengkap uji coba gratis 60 hari.

Tambahkan kontak secara otomatis dari email Outlook saat membalas dengan VBA

VBA ini secara otomatis akan menambahkan pengirim dan semua penerima email sebagai kontak baru saat Anda membalas email di Outlook. Harap lakukan sebagai berikut:

1. tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.

2. Perluas Project1, dan klik dua kali Sesi Pandangan ini untuk membukanya, lalu tempelkan kode VBA di bawah ini ke jendela ThisOutlookSession. Lihat tangkapan layar:

VBA: Tambah Kontak Otomatis dari email saat membalas di Outlook

Public WithEvents xExplorer As Outlook.Explorer
Public WithEvents xMailItem As Outlook.MailItem
Sub Application_Startup()
Set xExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub xExplorer_SelectionChange()
On Error Resume Next
Set xMailItem = xExplorer.Selection.Item(1)
End Sub

Private Sub xMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xNameSpace As NameSpace
Dim xSenderAddress As String
Dim xContactItems As Outlook.Items
Dim i, k As Long
Dim xFilterAddress As String
Dim xContact As Outlook.ContactItem
Dim xNewContact As Outlook.ContactItem
Dim Arr() As String
Dim ArrName() As String
Dim xArrCount As Integer
On Error Resume Next
ReDim Arr(xMailItem.Recipients.Count + 1)
ReDim ArrName(xMailItem.Recipients.Count + 1)
xSenderAddress = xMailItem.SenderEmailAddress
Arr(0) = xSenderAddress
ArrName(0) = xMailItem.SenderName
For i = LBound(Arr) + 1 To UBound(Arr) - 1
Arr(i) = xMailItem.Recipients.Item(i).Address
ArrName(i) = xMailItem.Recipients.Item(i).Name
Next i
Set xNameSpace = Outlook.Application.GetNamespace("MAPI")
Set xContactItems = xNameSpace.GetDefaultFolder(olFolderContacts).Items
For i = LBound(Arr) To UBound(Arr) - 1
For k = 1 To 3
xFilterAddress = "[Email" & k & "Address] = " & Arr(i)
Set xContact = xContactItems.Find(xFilterAddress)
If Not (xContact Is Nothing) Then
Exit For
End If
Next k
If xContact Is Nothing Then
Set xNewContact = Outlook.Application.CreateItem(olContactItem)
With xNewContact
.FullName = ArrName(i)
.Email1Address = Arr(i)
.Categories = "From Email"
.Save
End With
End If
Next i
End Sub

3. Simpan kode VBA, dan mulai ulang Microsoft Outlook Anda.

Mulai sekarang, saat Anda membalas email di Outlook, pengirim email ini dan semua penerima akan disimpan sebagai kontak baru secara otomatis ke dalam folder kontak default akun email default.


Artikel terkait


Kutools for Outlook - Menghadirkan 100 Fitur Canggih ke Outlook, dan Membuat Pekerjaan Lebih Mudah!

  • CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email secara khusus; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
  • Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat email Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
  • Balas (Semua) Dengan Semua Lampiran di percakapan surat; Balas Banyak Email dalam hitungan detik; Tambah Salam Otomatis saat membalas; Tambahkan Tanggal ke dalam subjek ...
  • Alat Lampiran: Kelola Semua Lampiran di Semua Email, Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua ... Laporan Cepat, Hitung Email yang Dipilih...
  • Email Sampah yang Kuat dengan kebiasaan; Hapus Duplikat Email dan Kontak... Memungkinkan Anda melakukan lebih cerdas, lebih cepat, dan lebih baik di Outlook.
shot kutools outlook tab kutools 1180x121
tembak kutools outlook kutools plus tab 1180x121
 
Urutkan komentar berdasarkan
komentar (1)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Halo, terima kasih untuk kode ini.
Tapi itu menggandakan (setidaknya dalam kasus saya) kontak sebanyak yang saya tulis kepada mereka. Ada ide?
Omong-omong, dalam opsi pandangan, kotak "cari duplikat saat menyimpan kontak baru" dicentang.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL