Outlookで複数の予定をタスクにすばやく変換するにはどうすればよいですか？

この記事では、OutlookでXNUMXつまたは複数の予定をタスクにすばやく簡単に変換する方法について説明します。

ドラッグアンドドロップして、XNUMXつの予定をタスクに変換します

VBAコードを適用して、複数の予定をタスクに変換します

ドラッグアンドドロップして、XNUMXつの予定をタスクに変換します

XNUMXつの予定をタスクに変換するには、予定をタスクフォルダーにドラッグするだけです。次のようにしてください。

1。の中に カレンダー ウィンドウで、タスクに変換する必要のある予定項目を選択し、それをにドラッグアンドドロップします タスク 次のスクリーンショットのように、ナビゲーションペインの下部にあるアイコン：

タスク1への医師の予約

2。その後、新しい仕事ウィンドウが表示されたら、をクリックしてください 保存して閉じる この予定をタスクとして保存するボタン。スクリーンショットを参照してください：

タスク2への医師の予約

VBAコードを適用して、複数の予定をタスクに変換します

複数の予定をタスクに変換する必要がある場合は、以下のVBAコードを使用すると便利です。次のようにしてください。

1。を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

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への医師の予約