Note: The other languages of the website are Google-translated. Back to English

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.


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.
shot kutools outlook tab kutools 1180x121
tembak kutools outlook kutools plus tab 1180x121
 
Urutkan komentar berdasarkan
komentar (3)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk mengubah ini untuk memasukkan lebih banyak tautan ke email yang dikirim daripada hanya penerima & subjek? yaitu. tambahkan email terkirim sebagai lampiran?
Komentar ini diminimalkan oleh moderator di situs
HAI,

Ini bekerja selama beberapa hari dan sekarang tidak lagi berfungsi.

Apakah ada alasan?
Komentar ini diminimalkan oleh moderator di situs
Hai Terri Amos,
Harap aktifkan opsi Aktifkan semua makro dan Terapkan pengaturan keamanan makro ke opsi add-in yang diinstal seperti yang ditunjukkan pada gambar di bawah. Setelah itu, mulai ulang Outlook Anda.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL