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

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

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

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

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


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

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

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

任務1的doc任命

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

任務2的doc任命


通過應用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

任務3的doc任命

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

任務4的doc任命

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

任務5的doc任命

5。 然後點擊 OK 按鈕,所有選定的約會都將創建為任務,然後應保存並關閉 任務 窗口一一顯示,請參見屏幕截圖:

任務6的doc任命

6。 然後,您可以轉到 任務 文件夾中,所有選定的約會都已保存為新任務,請參見屏幕截圖:

任務7的doc任命


Kutools for Outlook-為Outlook帶來100個高級功能,並使工作更加輕鬆!

  • 自動CC / BCC 根據規則發送電子郵件; 自動前進 自定義多封電子郵件; 自動回复 沒有交換服務器,還有更多自動功能...
  • BCC警告 -當您嘗試全部答复時顯示消息 如果您的郵件地址在“密件抄送”列表中; 缺少附件時提醒,還有更多提醒功能...
  • 在郵件對話中回复(全部)帶有所有附件; 回复許多電子郵件 片刻之間; 自動添加問候語 回复時將日期添加到主題中...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,保存全部...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 習俗 刪除重複的郵件和聯繫人... 使您能夠在Outlook中做得更聰明,更快和更好。
拍攝kutools前景kutools選項卡1180x121
拍攝kutools前景kutools加標籤1180x121
 
按評論排序
留言 (0)
還沒有評分。 成為第一位評論!
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護