Bagaimana cara mengubah beberapa janji temu menjadi tugas dengan cepat di Outlook?

Pada artikel ini, saya akan berbicara tentang cara mengonversi janji temu atau beberapa janji temu menjadi tugas dengan cepat dan mudah di Outlook.

Ubah satu janji menjadi tugas dengan menyeret dan melepas

Ubah beberapa janji temu menjadi tugas dengan menerapkan kode VBA

Ubah satu janji menjadi tugas dengan menyeret dan melepas

Untuk mengubah satu janji menjadi tugas, Anda hanya perlu menyeret janji temu ke folder tugas, lakukan seperti ini:

1. di Kalender jendela, pilih item janji temu yang perlu Anda ubah menjadi tugas lalu seret dan lepaskan ke Tasks ikon di bagian bawah panel navigasi seperti gambar berikut yang ditampilkan:

dokter janji untuk tugas 1

2. Lalu yang baru tugas jendela ditampilkan, silakan klik Simpan & Tutup tombol untuk menyimpan janji temu ini sebagai tugas. Lihat tangkapan layar:

dokter janji untuk tugas 2

Ubah beberapa janji temu menjadi tugas dengan menerapkan kode VBA

Jika Anda memiliki banyak janji temu yang perlu diubah menjadi tugas, kode VBA di bawah ini dapat membantu Anda, lakukan hal berikut:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dan kemudian, klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke dalam modul kosong yang dibuka, lihat tangkapan layar:

Kode VBA: Ubah beberapa janji temu menjadi tugas

Sub ConvertAppointmentsToTasks()
Dim xItemCollection As VBA.Collection
Dim xActiveWindow As Object
Dim xItem As Object
Dim xSelection As Outlook.Selection
Dim xTaskFolder As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xTaskItem As Outlook.TaskItem
On Error Resume Next
Set xItemCollection = New VBA.Collection
Set xActiveWindow = Outlook.Application.ActiveWindow
If TypeOf xActiveWindow Is Inspector Then
    Set xItem = xActiveWindow.CurrentItem
    If xItem.Class = olAppointment Then xItemCollection.Add xItem
Else
    Set xSelection = xActiveWindow.Selection
    If xSelection Is Nothing Then Exit Sub
    For Each xItem In xSelection
        If xItem.Class = olAppointment Then xItemCollection.Add xItem
    Next
End If
Set xTaskFolder = Application.Session.PickFolder
If xTaskFolder Is Nothing Then Exit Sub
For Each xAppointmentItem In xItemCollection
    Set xTaskItem = xTaskFolder.Items.Add(olTaskItem)
    With xTaskItem
        .StartDate = Format(xAppointmentItem.Start, "Short Date")
        .DueDate = Format(xAppointmentItem.End, "Short Date")
        .Subject = xAppointmentItem.Subject & " (From Appt)"
        .Categories = xAppointmentItem.Categories
        .Body = xAppointmentItem.Body
        .Save
        .Display
    End With
Next
End Sub

dokter janji untuk tugas 3

3. Lalu pilih janji yang ingin Anda ubah menjadi tugas, lalu klik Jalankan Macro tombol untuk menjalankan kode ini, lihat tangkapan layar:

dokter janji untuk tugas 4

4. Dan kemudian a Pilih Folder dialog akan muncul, pilih a Tasks folder tempat Anda ingin menyimpan hasil yang dikonversi, lihat tangkapan layar:

dokter janji untuk tugas 5

5. Lalu klik OK tombol, dan semua janji yang dipilih akan dibuat sebagai tugas, lalu Anda harus menyimpan dan menutup tugas jendela satu per satu, lihat tangkapan layar:

dokter janji untuk tugas 6