Bagaimana cara membuat tugas secara otomatis saat mengirim email di Outlook?
Terkadang, Anda mungkin perlu membuat tugas email secara otomatis saat mengirimnya di Outlook. Di sini kami menyediakan metode bagi Anda untuk menyelesaikannya dengan cepat.
Buat tugas secara otomatis saat mengirim email di Outlook dengan VBA
Buat tugas secara otomatis saat mengirim email di Outlook dengan VBA
Dengan kode VBA di bawah ini, Anda dapat membuat tugas secara otomatis berdasarkan email pengiriman di Outlook. Silakan lakukan sebagai berikut.
1. Luncurkan Outlook Anda, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, salin kode VBA di bawah ini ke Sesi Pandangan ini jendela kode.
Kode VBA: Buat tugas secara otomatis saat mengirim email di Outlook
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
Dim xYesNo As Integer
Dim xPrompt As String
Dim xTaskItem As TaskItem
Dim xRecipient As String
On Error Resume Next
xPrompt = "Do you want to create a task for this message?"
xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
Cancel = False
If xYesNo = vbNo Then Exit Sub
Set xTaskItem = Application.CreateItem(olTaskItem)
For Each Rcp In Item.Recipients
If xRecipient = "" Then
xRecipient = Rcp.Address
Else
xRecipient = xRecipient & vbCrLf & Rcp.Address
End If
Next Rcp
xRecipient = xRecipient & vbCrLf & Item.Body
With xTaskItem
.Subject = Item.Subject
.StartDate = Item.ReceivedTime
.DueDate = Date + 3 + CDate("9:00:00 AM")
.ReminderSet = True
.ReminderTime = Date + 2 + CDate("9:00:00 AM")
.Body = xRecipient
.Save
End With
Set xTaskItem = Nothing
End Sub
Note: Penerima pesan dan badan pesan akan ditambahkan ke badan tugas secara otomatis. Tanggal mulai tugas adalah tanggal pengiriman pesan, dan tugas akan jatuh tempo dalam 3 hari. Anda akan diingatkan tentang tugas pada jam 9 pagi setelah satu hari. Anda dapat mengubahnya sesuai kebutuhan.
3. Simpan kode dan tekan lain + Q untuk menutup jendela Microsoft Visual Basic for Applications.
4. Mulai sekarang, saat mengklik Kirim di jendela email baru atau balasan, a Buat Tugas kotak dialog akan muncul seperti gambar di bawah ini yang ditunjukkan, klik Yes untuk mengirim email dan membuat tugas secara otomatis, atau klik Tidak untuk mengirim email tanpa membuat tugas.
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.
