このためのアドインを (VB6 または VSTO を使用して) 作成するか、VBA を使用して受信メールを処理し、カレンダーの予定を作成して、それらの人々が AFK である時間をブロックすることができます。
何かのようなもの:
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub Items_ItemAdd(ByVal item As Object)
On Error Goto ErrorHandler
Dim Msg As Outlook.MailItem
If TypeName(item) = "MailItem" Then
Set Msg = item
If Msg.Subject = "OUT" Then
' create calendar appointment here
End If
If Msg.Subject = "IN" Then
' delete calendar appoinment here
End If
End If
ProgramExit:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ProgramExit
End Sub
別の方法として、不在通知機能を使用することをお勧めします。トイレや会議でしか使っていない場合でも、件名に「外出中」と表示されることは承知していますが、あなたが今していることよりも悪いことは想像できません. それは組み込みであり、それほど多くの労力を必要としません。
ps- これは私には関係のないことです。このような質問をするとおそらく非難されるでしょうが、その会社がどんな会社か教えていただけないでしょうか。それは絶対に恐ろしいですね。