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

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

6. Kemudian, Anda dapat pergi ke tugas folder, semua janji yang dipilih telah disimpan sebagai tugas baru, lihat tangkapan layar:

dokter janji untuk tugas 7


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 (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
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