機密性やプライバシーなどの理由で、多くの人にタスクを割り当てる場合は、個別に送信することをお勧めします。 さて、ここではそれを取得する方法を紹介します。
タスクを割り当てるときに、複数の受信者を入力して[送信]をクリックすると、多くの人に送信されたタスクが更新されないことを通知する警告が表示されます。 したがって、タスクの更新を時間内に取得したい場合は、タスクを多くの受信者に個別に割り当てることをお勧めします。
もちろん、タスクの更新を考慮することは別として、機密性のために、タスクを複数の人に別々に送信する必要があります。 通常、個別のタスクを作成し、受信者を追加して、XNUMXつずつ送信する必要があります。 明らかに面倒です。 したがって、以下では、はるかに効率的な方法を紹介します。
タスクを複数の人に個別にバッチ割り当てする
- まず、「Alt + F11」を押してOutlook VBAエディターにアクセスしてください。
- 次に、[Microsoft Visual Basic for Applications]ウィンドウで、VBAコードを空のモジュールまたはプロジェクトにコピーします。
Sub AssignTaskToMultipleContactsSeparately()
Dim objCurrentTask As Outlook.TaskItem
Dim objRecipients As Outlook.Recipients
Dim objRecipient As Outlook.Recipient
Dim objCopiedTask As Outlook.TaskItem
Dim i As Long
Dim strRecipientName As String
Set objCurrentTask = Outlook.Application.ActiveInspector.CurrentItem
If Not objCurrentTask Is Nothing Then
Set objRecipients = objCurrentTask.Recipients
For Each objRecipient In objRecipients
Set objCopiedTask = objCurrentTask.Copy
For i = objCopiedTask.Recipients.Count To 1 Step -1
objCopiedTask.Recipients.Remove (i)
Next
strRecipientName = Split(objRecipient.Address, "@")(0)
strRecipientName = UCase(Left(strRecipientName, 1)) & Right(strRecipientName, Len(strRecipientName) - 1)
With objCopiedTask
.Recipients.Add (objRecipient.Address)
.Recipients.ResolveAll
.Subject = .Subject & " (" & strRecipientName & ")"
.Assign
.Send
End With
Next
objCurrentTask.Close olDiscard
End If
End Sub
- その後、投稿の「オプションの手順」を参照して、このマクロをタスク ウィンドウのリボンに追加します。OutlookでVBAコードを実行する方法"
- 最終的に、このマクロを試すには、次の手順を実行します。
- まず、新しいタスクを作成し、受信者を自由に追加します。
- 次に、リボンのマクロボタンをクリックします。
- 次のスクリーンショットに示すように、現在のタスクは受信者に個別に割り当てられます。
あなたの見通しの世話をする
Outlookはエラーや破損を起こしやすいです。 したがって、Outlookデータの損失に悩まされたくない場合は、Outlookデータの定期的なバックアップを作成する必要があります。 この方法でのみ、Outlookファイルが破損した場合でも、簡単に復元できます 破損したOutlook バックアップからのデータ。 バックアップがない場合は、次のような注目に値する強力な回復ツールに頼る必要があります。 DataNumen Outlook Repair.
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL Server 回復 と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com