Bagaimana cara membalas pesan yang diterima secara otomatis saat Anda sibuk di Outlook?
Terkadang, Anda ingin membalas pesan yang diterima di Outlook secara otomatis saat Anda sibuk dalam suatu periode. Tetapi tidak ada fungsi bawaan yang dapat menangani pekerjaan ini, namun, di sini saya memiliki kode VBA untuk menanganinya.
Balas otomatis saat Anda sibuk dengan kode VBA
Balas otomatis saat Anda sibuk dengan kode VBA
- Otomatiskan pengiriman email dengan CC / BCC Otomatis, Maju Otomatis berdasarkan aturan; mengirim Balas otomatis (Di Luar Kantor) tanpa memerlukan server pertukaran...
- Dapatkan pengingat seperti Peringatan BCC saat membalas semua saat Anda berada di daftar BCC, dan Ingatkan Saat Lampiran Hilang untuk lampiran yang terlupakan...
- Tingkatkan efisiensi email dengan Balas (Semua) Dengan Lampiran, Tambahkan Ucapan atau Tanggal & Waktu secara Otomatis ke Tanda Tangan atau Subjek, Balas Beberapa Email...
- Sederhanakan pengiriman email dengan Ingat Email, Alat Lampiran (Kompres Semua, Simpan Otomatis Semua...), Hapus Duplikat, dan Laporan Cepat...
Berikut adalah kode VBA, yang akan membalas secara otomatis saat ada beberapa janji temu di kalender Outlook Anda, jika tidak ada apa pun di kalender, otomatis berhenti menjawab.
1. tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik dua kali pada Sesi Pandangan ini dari Project1 panel, salin dan tempel kode di bawah ini ke skrip.
VBA: Balasan otomatis saat Anda sibuk di kalender
Public WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
Set xMailItem = Item
Set xReplyMailItem = xMailItem.Reply
xReplyHTMLBody = xReplyMailItem.HTMLBody
Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
xAppointments.Sort "[Start]"
xAppointments.IncludeRecurrences = True
xDateFormat = Format(Now, "ddddd h:nn AMPM")
xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
Set xRestrictAppointments = xAppointments.Restrict(xFilter)
If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
For Each xAppointment In xRestrictAppointments
If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
xReplyHTMLBody
xReplyMailItem.Send
End If
Next
End If
End Sub
3. Simpan kode ini dan mulai ulang Outlook. Mulai sekarang, jika email diterima dalam rentang waktu janji temu Anda, balasan otomatis akan dikirim.
Tip:
(1) Dalam kode, Anda dapat mengubah isi balasan sesuai kebutuhan dalam skrip ini "Maaf aku tidak bisa membalasmu saat ini. Aku akan membalasmu nanti." & _
(2) Makro VBA ini dapat secara otomatis membalas email yang diterima di Kotak Masuk file data default.
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.