Bagaimana cara membalas otomatis dengan pesan email asli di Outlook?

Biasanya, saat kita membuat aturan untuk mengandalkan email secara otomatis saat tidak di kantor, tetapi pesan asli di badan tidak akan disertakan. Bagaimana Anda bisa secara otomatis mengandalkan email dengan pesan asli di Outlook? Artikel ini, saya akan berbicara tentang kode VBA untuk membantu Anda menyelesaikan pekerjaan ini secepat mungkin di Outlook.

Otomatis membalas email dengan pesan asli dalam pandangan dengan kode VBA

Otomatis membalas email dengan pesan asli dalam pandangan dengan kode VBA

Aturan Outlook normal tidak dapat membantu Anda menangani pekerjaan, tetapi, dengan kode VBA berikut, Anda dapat menyelesaikannya dengan cepat dan mudah. Harap 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 ThisOutlookSession dari Project1 (VbaProject.OTM) panel untuk membuka mode, lalu salin dan tempel kode berikut ke dalam modul kosong.

Kode VBA: Otomatis membalas email dengan pesan asli:

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub

3. Kemudian simpan dan tutup jendela kode, tutup atau mulai ulang Outlook agar kode VBA berlaku. Sekarang, ketika Anda menerima email, Outlook akan mengirim balasan otomatis dengan pesan asli seperti gambar berikut yang ditampilkan:

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.