web-dev-qa-db-ja.com

Outlookで特定の送信者からの会議出席依頼を自動的に拒否または受け入れるにはどうすればよいですか？

Outlookで特定の送信者からの会議出席依頼を自動的に拒否または受け入れる方法はありますか？

会議出席依頼を含むメッセージを特定の送信者から特定のフォルダーに移動したり、削除したりするルールを作成できることはわかっていますが、要求された会議は引き続きカレンダーに表示されます。特定の人からのリクエストを自動的に拒否して、カレンダーに表示されないようにしたいのですが。

[オプション]> [カレンダー]に[自動承認/拒否]オプションが表示されますが、これらは特定の送信者からのリクエストだけでなく、すべてのリクエストに適用されるようです。

MS Office Professional Plus2013の一部であるOutlook2013を使用しています。

このトピックに関する他の質問を見たことがありますが、その回答では、要求された会議がまだカレンダーに表示されるという私の懸念に対処できていません。そして、私はまだ十分な評判を持っていないので、それらの質問にコメントすることはできません。

microsoft-outlookmicrosoft-outlook-2013calendar
1
Matt Leonard

[条件の選択]ダイアログで[会議の招待または更新]オプションを指定することにより、削除ルールを介して拒否を行うことができます。

回答テンプレートを使用した辞退のスクリーンショットを含む詳細なチュートリアルについては、記事 Outlookで特定の人からの会議の招待を自動的に辞退する方法 を参照してください。

問題は実際には受け入れることにあり、ルールを使用して行うことはできません。これには、次のように実行するVBAプログラミング（痛い！）が必要です。

  • キーを押す Alt+F11 Microsoft Visual Basic forApplicationsウィンドウを開きます

  • Microsoft Visual Basic for Applicationsウィンドウの左側のウィンドウで、ThisOutlookSessionをダブルクリックして[コード]ウィンドウを開き、次のVBAコードをウィンドウにコピーします。このスクリプトはリマインダー期間も設定しますが、それを望まない場合は、With xAppointmentItemからEnd Withまでの部分を削除してください。引用符内の「送信者名」を置き換えるか、IFコマンドに条件を追加します。

    Public WithEvents GItems As Outlook.Items
Private Sub Application_Startup()
        Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
        Set xMtRequest = Item
        Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
        If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
                With xAppointmentItem
                        .ReminderMinutesBeforeStart = 45
                        .Categories = "Orange Category"
                        .Save
                End With
                Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
                xMtResponse.Send
                xMtRequest.Delete
        End If
End If
End Sub

  • コードを保存します

  • 押す Alt+Q Microsoft VisualBasicを閉じる

  • Outlookを再起動します。

これと同じVBAマクロを使用して、olMeetingAcceptedをolMeetingDeclinedに置き換えることで拒否できます。

1
harrymc

TechNetフォーラムで同様のスレッドが1つ見つかりました。これは、あなたにも役立つはずです。 特定の送信者から送信された予定を自動受け入れる方法は？

0
Perry