Outlookで複数の予定をタスクにすばやく変換するにはどうすればよいですか?
この記事では、OutlookでXNUMXつまたは複数の予定をタスクにすばやく簡単に変換する方法について説明します。
ドラッグアンドドロップして、XNUMXつの予定をタスクに変換します
ドラッグアンドドロップして、XNUMXつの予定をタスクに変換します
XNUMXつの予定をタスクに変換するには、予定をタスクフォルダーにドラッグするだけです。次のようにしてください。
1。 の中に カレンダー ウィンドウで、タスクに変換する必要のある予定項目を選択し、それをにドラッグアンドドロップします タスク 次のスクリーンショットのように、ナビゲーションペインの下部にあるアイコン:
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。 次に、タスクに変換する予定を選択し、[ マクロを実行する このコードを実行するためのボタン。スクリーンショットを参照してください。
4。 そして、 フォルダを選択してください ダイアログが飛び出しますので、 タスク 変換された結果を保存するフォルダー。スクリーンショットを参照してください。
5。 次に、をクリックします OK ボタンをクリックすると、選択したすべての予定がタスクとして作成されます。次に、を保存して閉じる必要があります。 仕事 ウィンドウをXNUMXつずつ、スクリーンショットを参照してください。
6。 次に、に行くことができます 仕事 フォルダでは、選択したすべての予定が新しいタスクとして保存されています。スクリーンショットを参照してください。
Kutools for Outlook-100の高度な機能をOutlookにもたらし、作業をはるかに簡単にします!
- 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
- BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
- メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
- 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
- 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。

