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 IniOutlookSession 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:
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.