提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何在Outlook中將多個約會快速轉換為任務?

在本文中,我將討論如何在Outlook中快速輕鬆地將約會或多個約會轉換為任務。

通過拖放將一個約會轉換為任務

通過應用VBA代碼將多個約會轉換為任務


通過拖放將一個約會轉換為任務

要將一個約會轉換為任務,只需將約會拖到任務文件夾,請按照以下步驟操作:

1。 在 日曆 窗口中,選擇需要轉換為任務的約會項目,然後將其拖放到任務中 任務 圖標位於導航窗格的底部,如下面的屏幕截圖所示:

doc任命到任務1

2。 然後一個新的 任務 窗口顯示,請點擊 保存並關閉 按鈕將該約會保存為任務。 看截圖:

doc任命到任務2


通過應用VBA代碼將多個約會轉換為任務

如果你有多個約會需要轉換為任務,下面的VBA代碼可以幫你一個忙,請按如下操作:

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 然後點擊 插入 > 模塊,將以下代碼複製並粘貼到打開的空白模塊中,請參閱截圖:

VBA代碼:將多個約會轉換為任務

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

doc任命到任務3

3。 然後選擇要轉換為任務的約會,然後單擊 運行宏 按鈕來運行此代碼,請參閱屏幕截圖:

doc任命到任務4

4。 然後a 選擇“文件夾” 彈出對話框,選擇一個 任務 您想要保存轉換結果的文件夾,請參閱屏幕截圖:

doc任命到任務5

5。 然後點擊 OK 按鈕,所有選定的約會將被創建為任務,然後您應保存並關閉該任務 任務 一個一個的窗口,看截圖:

doc任命到任務6

6。 然後,你可以去 任務 所有選定的約會已被保存為新任務,請參閱截圖:

doc任命到任務7


Kutools for Outlook - 為Outlook帶來100高級功能,讓工作更輕鬆!

  • 自動CC / BCC 發送電子郵件時的規則; 自動轉發 多個電子郵件按自定義; 自動回复 沒有交換服務器,以及更多自動功能......
  • BCC警告 - 當您嘗試回复所有內容時顯示消息 如果您的郵件地址在BCC列表中; 缺少附件時提醒,以及更多提醒功能......
  • 回复(全部)使用郵件會話中的所有附件; 回复很多電子郵件 很快; 自動添加問候語 回复時; 將日期添加到主題...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,全部保存...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 按慣例; 刪除重複郵件和聯繫人... 使您能夠在Outlook中更智能,更快速,更好地完成工作。
拍攝kutools outlook kutools選項卡1180x121
拍攝kutools outlook kutools加標籤1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.