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

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:

Tiến sĩ bổ nhiệm nhiệm vụ 1

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:

Tiến sĩ bổ nhiệm nhiệm vụ 2


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

Tiến sĩ bổ nhiệm nhiệm vụ 3

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:

Tiến sĩ bổ nhiệm nhiệm vụ 4

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:

Tiến sĩ bổ nhiệm nhiệm vụ 5

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:

Tiến sĩ bổ nhiệm nhiệm vụ 6

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:

Tiến sĩ bổ nhiệm nhiệm vụ 7


Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!

  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
  • Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
  • Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL