Bagaimana cara otomatis membuat nama pengirim yang terhormat saat membalas pesan di Outlook?
Saat membalas pesan email, Anda harus mengetik nama pengirim dan salam secara manual. Untuk menghemat waktu dan meningkatkan efisiensi kerja, Anda dapat mempertimbangkan untuk membuat nama dan salam pengirim tersayang secara otomatis di Outlook. Artikel ini, saya akan berbicara tentang beberapa metode yang berguna untuk menyelesaikan tugas ini di Outlook.
Buat nama dan salam pengirim tersayang secara otomatis saat membalas pesan dengan kode VBA
Buat nama dan salam pengirim tersayang secara otomatis saat membalas pesan dengan kode VBA
Kode VBA berikut dapat membantu Anda memasukkan nama pengirim dan salam secara otomatis saat membalas pesan email, lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. di Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Sesi Pandangan ini dari Project1 (VbaProject.OTM) panel untuk membuka mode, lalu salin dan tempel kode berikut ke dalam modul kosong.
Kode VBA: Masukkan nama pengirim dan salam secara otomatis saat membalas:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMailItem = xItem
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Sub AutoAddGreetingToReply(Item As Object)
Dim xGreetStr As String
Dim xReplyMail As MailItem
Dim xSenderName As String
Dim xRecipient As Recipient
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xReplyMail = Item
For Each xRecipient In xReplyMail.Recipients
If xSenderName = "" Then
xSenderName = xRecipient.Name
Else
xSenderName = xSenderName & "," & xRecipient.Name
End If
Next xRecipient
Select Case Time
Case 0.3 To 0.5
xGreetStr = " Good morning!"
Case 0.5 To 0.75
xGreetStr = " Good afternoon!"
Case Else
xGreetStr = " Good evening!"
End Select
With xReplyMail
.Display
.HTMLBody = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
End With
End Sub
3. Kemudian tutup Outlook dan mulai ulang untuk mengambil efek kode, dan sekarang, saat Anda membalas pesan email, nama pengirim dan salam tersayang dimasukkan ke dalam badan secara otomatis, lihat tangkapan layar:
Buat nama dan salam pengirim yang tersayang secara otomatis saat membalas pesan dengan Kutools for Outlook
Jika Anda memiliki Kutools untuk Outlook, Dengan yang Tambahkan salam saat membalas Fitur, Outlook akan otomatis memasukkan nama pengirim saat membalas.
Kutools untuk Outlook : dengan lebih dari 100 add-in Outlook praktis, gratis untuk dicoba tanpa batasan dalam 60 hari. |
Setelah menginstal Kutools untuk Outlook, tolong lakukan seperti ini:
1. Klik Kutools > Opsi, lihat tangkapan layar:
2. di Opsi kotak dialog, di bawah membalas tab, cek Tambahkan salam saat membalas pilihan, dan kemudian masukkan salam yang Anda butuhkan, lihat tangkapan layar:
3. Lalu klik OK untuk menyelesaikan pengaturan ini, mulai sekarang, saat membalas pesan, salam akan dibuat secara otomatis di depan badan pesan, lihat tangkapan layar:
Klik untuk mengunduh Kutools for Outlook dan uji coba gratis sekarang!
Alat Produktivitas Kantor Terbaik
Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda
🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...
📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP) / Jadwal Kirim Email / Auto CC/BCC Sesuai Aturan Saat Mengirim Email / Penerusan Otomatis (Aturan Lanjutan) / Tambah Salam Otomatis / Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...
📨 email Management: Mengingat Email dengan Mudah / Blokir Email Penipuan berdasarkan Subjek dan Lainnya / Hapus Email Duplikat / Pencarian / Konsolidasi Folder ...
📁 Lampiran Pro: Penyimpanan Batch / Pelepasan Batch / Kompres Batch / Penyimpanan otomatis / Lepaskan Otomatis / Kompres Otomatis ...
🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren / Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab / Minimalkan Outlook Daripada Menutup ...
👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk / Email Anti-Phishing / 🕘Tampilkan Zona Waktu Pengirim ...
👩🏼🤝👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih / Bagi Grup Kontak menjadi Grup Individual / Hapus Pengingat Ulang Tahun ...
Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.