Làm cách nào để chuyển đổi nhiều cuộc hẹn thành công việc một cách nhanh chóng trong Outlook?
Trong bài viết này, tôi sẽ nói về cách chuyển đổi một cuộc hẹn hoặc nhiều cuộc hẹn thành công việc một cách nhanh chóng và dễ dàng trong Outlook.
Chuyển một cuộc hẹn thành công việc bằng cách kéo và thả
Chuyển đổi nhiều cuộc hẹn thành công việc bằng cách áp dụng mã VBA
Chuyển một cuộc hẹn thành công việc bằng cách kéo và thả
Để chuyển một cuộc hẹn thành công việc, bạn chỉ cần kéo cuộc hẹn vào thư mục công việc, vui lòng thực hiện như sau:
1. Trong Xem Lịch cửa sổ, chọn mục cuộc hẹn mà bạn cần chuyển đổi thành tác vụ, sau đó kéo và thả nó vào Nhiệm vụ biểu tượng ở cuối ngăn điều hướng như ảnh chụp màn hình sau:
2. Sau đó, một mới Nhiệm vụ cửa sổ được hiển thị, vui lòng nhấp vào Lưu & Đóng để lưu cuộc hẹn này làm nhiệm vụ. Xem ảnh chụp màn hình:
Chuyển đổi nhiều cuộc hẹn thành công việc bằng cách áp dụng mã VBA
Nếu bạn có nhiều cuộc hẹn cần được chuyển đổi thành nhiệm vụ, mã VBA dưới đây có thể giúp bạn, vui lòng làm như sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Và sau đó, nhấp vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở, xem ảnh chụp màn hình:
Mã VBA: Chuyển đổi nhiều cuộc hẹn thành công việc
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
3. Sau đó chọn các cuộc hẹn mà bạn muốn chuyển đổi thành nhiệm vụ, rồi bấm Chạy Macro để chạy mã này, xem ảnh chụp màn hình:
4. Và sau đó một Chọn thư mục hộp thoại sẽ bật ra, chọn một Nhiệm vụ thư mục nơi bạn muốn lưu kết quả đã chuyển đổi, xem ảnh chụp màn hình:
5. Sau đó nhấn vào OK và tất cả các cuộc hẹn đã chọn sẽ được tạo dưới dạng nhiệm vụ, sau đó bạn nên lưu và đóng Nhiệm vụ từng cửa sổ một, xem ảnh chụp màn hình:
6. Sau đó, bạn có thể đi đến Nhiệm vụ thư mục, tất cả các cuộc hẹn đã chọn đã được lưu dưới dạng nhiệm vụ mới, xem ảnh chụp màn hình:
Công cụ năng suất văn phòng tốt nhất
Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn
📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP) / Lên lịch gửi email / Tự động CC/BCC theo quy định khi gửi Email / Tự động chuyển tiếp (Quy tắc nâng cao) / Tự động thêm lời chào / Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !
📨 Quản lý email: Dễ dàng thu hồi email / Chặn email lừa đảo theo chủ đề và những người khác / Xóa các email trùng lặp / Tìm Kiếm Nâng Cao / Hợp nhất các thư mục hữu ích. Cảm ơn !
📁 Tệp đính kèm chuyên nghiệp: Lưu hàng loạt / Tách hàng loạt / Nén hàng loạt / Tự động lưu / Tự động tách / Tự động nén hữu ích. Cảm ơn !
🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn / Tăng năng suất Outlook của bạn với chế độ xem theo thẻ / Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !
👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến / Email chống lừa đảo / 🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !
👩🏼🤝👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn / Chia nhóm liên hệ thành các nhóm riêng lẻ / Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !
Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.