メインコンテンツへスキップ

Outlookで特定の人からの会議の招待を自動的に拒否するにはどうすればよいですか? 

Outlookでは、特定の人からの会議への招待を自動的に拒否するルールを作成できますが、どのように対処するのでしょうか。 この記事では、方法について詳しく紹介します。

Outlookで特定の人からの会議の招待を自動的に拒否する

特定の人からの会議の招待を自動的に拒否し、カレンダーからも会議を削除します


Outlookで特定の人からの会議の招待を自動的に拒否する

このジョブを完了するには、次の手順を実行してください。

1。 まず、辞退会議の招待状のメッセージテンプレートを作成する必要があります。 の中に メッセージ ウィンドウに、会議の招待を辞退するために送信するメッセージを入力します。 スクリーンショットを参照してください:

2。 次に、メッセージをテンプレート形式で保存します。クリックしてください File > 名前を付けて保存、で 名前を付けて保存 ウィンドウで、メッセージの名前をに入力します ファイル名 テキストボックスをクリックして、 Outlookテンプレート(* .oft) タイプとして保存 ドロップダウンリスト、スクリーンショットを参照してください:

Note:選択した場合 Outlookテンプレート(* .oft)、 デフォルトのユーザーテンプレートフォルダが開きます。

3。 次に、をクリックします Save ボタンをクリックしてメッセージテンプレートを保存し、メッセージウィンドウを閉じます。

4。 次に、ルールを作成できます。 クリックしてください キャンペーンのルール > ルールとアラートを管理するホーム タブ、スクリーンショットを参照してください:

5。 の中に ルールとアラート ダイアログボックスで、をクリックします。 新しいルール 電子メールのルール タブ、スクリーンショットを参照してください:

6。 飛び出した ルールウィザード、クリック 受信したメッセージにルールを適用する オプションの下に 空白のルールから始める セクション、スクリーンショットを参照してください:

7。 次に、をクリックします Next ボタンをクリックし、ポップアウトされたダイアログボックスで、 ステップ1:条件を選択します リストボックスをクリックし、テキストリンクをクリックします 人々またはパブリックグループ を開く ルールアドレス ダイアログボックスで、会議を辞退する相手を選択します。スクリーンショットを参照してください。

8に設定します。 OK をクリックします。 OK ボタン、まだこのダイアログボックスで、チェックするためにスクロールしてください これは会議の招待状または更新です オプションから ステップ1:条件を選択します リストボックス、スクリーンショットを参照:

9。 クリックしてください Next 次のダイアログボックスのボタン:

(1.)チェック 特定のテンプレートを使用して返信する 内のオプション ステップ1:アクションを選択します リストボックス;

(2.)次に、テキストリンクをクリックします 特定のテンプレート を開く 返信テンプレートを選択します ダイアログボックス;

(3.) 返信テンプレートを選択します ダイアログボックスで、 のユーザーテンプレート ファイルシステム 覗く 落ちる;

(4.)次に、今作成したメッセージ名を選択します。

(5.)クリック Open

10。 元のダイアログボックスに戻り、チェックを続けます 消して 内のオプション ステップ1:アクションを選択します リストボックス、スクリーンショットを参照:

11。 クリック Next > Next 最後のステップのダイアログに移動します。 の中に 終了 ルール設定セクションで、このルールの名前を指定し、チェックします このルールをオンにします オプションから ステップ2:ルールオプションを設定する、スクリーンショットを参照してください:

12に設定します。 OK をクリックします。 終了 ボタンをクリックしてこのルールを終了し、をクリックします OK ダイアログボックスを閉じます。

13。 今後、この特定の人から会議を受信すると、拒否メールが自動的に送信され、会議メッセージも削除されます。


特定の人からの会議の招待を自動的に拒否し、カレンダーからも会議を削除します

最初の方法は、会議に参加しないことを通知する電子メールを送信するのに役立ちますが、会議は常にカレンダーに表示されます。 カレンダーに同時に表示される会議を削除する必要がある場合は、次のVBAコードを使用すると便利です。

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

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession Project1(VbaProject.OTM) ペインでモジュールを開き、次のコードをコピーして空のモジュールに貼り付けます。

VBAコード:会議の招待を自動的に拒否し、カレンダーから会議を削除します。

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
    Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
    If xItem.Class = olMeetingRequest Then
        Set xMeeting = xItem
        xMeeting.ReminderSet = False
        If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("") Then 'Specify the person you need
            Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
            xAppointmentItem.ReminderSet = False
            Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
            xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                    "I am not at office. " & vbCrLf & _
                                    "I'm sorry that I will not attend the meeting invitations."
            xMeetingDeclined.Send
            xMeeting.Delete
        End If
    End If
Next
End Sub

3。 次に、このコードウィンドウを保存して閉じます。 今後、この特定の人からの会議がある場合、その人は拒否された電子メールを受信し、会議は自動的にカレンダーから削除されます。


最高のオフィス生産性向上ツール

Kutools for Outlook - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

 

Comments (33)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Good morning, the code I pasted below erases the email but not the calendar event.

Scenario is a meeting forwarding to a DL that contains my personal email . At this moment I receive the event in both the calendars, rightly to the shared calendars connected to the DL, but also to my personal agenda, I would not.

Please could you help me with the code?

thx
Francesco


Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
If xItem.Class = olMeetingRequest Then
Set xMeeting = xItem
xMeeting.ReminderSet = False
If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("") Then
Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
xAppointmentItem.Delete
xMeeting.Delete
End If
End If
Next
End Sub
This comment was minimized by the moderator on the site
Buongiorno, con il codice sotto mi viene eliminata la mail ricevuta ma non l'evento nel calendario personale.

Lo scenario è inoltro di un meeting ad una DL a cui è collegato il mio account. Al momento ricevo l'evento sia nel calendario condiviso collegato alla DL (corretto!) sia nel mio personale, dal quale invece non vorrei vederlo.

Potete aiutarmi?

grazie
Francesco


Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
If xItem.Class = olMeetingRequest Then
Set xMeeting = xItem
xMeeting.ReminderSet = False
If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("") Then
Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
xAppointmentItem.Delete
xMeeting.Delete
End If
End If
Next
End Sub
This comment was minimized by the moderator on the site
thanks for the great advice. How does the VBA need to be changed if I don't want to auto-decline invites from specific senders, but if I want invites to be declined (and removed!) that are sent to me as a member of a distribution list? I don't want to leave the distribution list, but since I work remotely, on-site meetings don't make sense to me, but the pure mails from this particular group do.
This comment was minimized by the moderator on the site
Hallo

Werden auch Terminanfragen gelöscht, die "im Auftrag von" abgelehnt und gelöscht?
Bin mir nicht ganz sicher, ob der Code funktioniert, da Termine die "im Auftrag von" nicht gelöscht werden, obwohl der/die Absender ebenfalls aufgeführt ist.

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
If xItem.Class = olMeetingRequest Then
Set xMeeting = xItem
xMeeting.ReminderSet = False
If VBA.InStr(VBA.LCase(", "), VBA.LCase(xMeeting.SenderEmailAddress)) <> 0 Then 'Specify the person you need
Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
'xAppointmentItem.ReminderSet = False
'Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
'xMeetingDeclined.Body = "Dear, " & vbCrLf & _
"I am not at office. " & vbCrLf & _
"I'm sorry that I will not attend the meeting invitations."
'xMeetingDeclined.Send
xAppointmentItem.Delete
xMeeting.Delete
End If
End If
Next
End Sub
This comment was minimized by the moderator on the site
Wie würde der Codeaussehen, wenn man dort mehrere Empfänger hinterlegen möchte?

Gruß
Thomas
This comment was minimized by the moderator on the site
Hallo

Wie würde der Code aussehen, wenn ich mehrere Absender habe, dessen Termin ich ohne Antwort ablehnen will?

Danke schön
This comment was minimized by the moderator on the site
buen dia,
¿hay posibilidad de añadir una condición para el rechazo de la invitación?
me refiero a validar si a la hora de la reunión se está libre o no, en caso de tener otra reunión si rechazar automáticamente.

gracias
This comment was minimized by the moderator on the site
Hi, skyyang
Thank you for your information.

I have one question about this.
If i don't want to repley email of attending, which code can i use ?
Could you please update with this option?
This comment was minimized by the moderator on the site
Hello, dedn,
To remove the meetings but don't send a response, please apply the below code:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
    Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
    If xItem.Class = olMeetingRequest Then
        Set xMeeting = xItem
        xMeeting.ReminderSet = False
        If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("") Then 'Specify the person you need
            Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
            'xAppointmentItem.ReminderSet = False
            'Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
            'xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                    "I am not at office. " & vbCrLf & _
                                    "I'm sorry that I will not attend the meeting invitations."
            'xMeetingDeclined.Send
            xAppointmentItem.Delete
            xMeeting.Delete
        End If
    End If
Next
End Sub

Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Hallo
Danke für den Code.
Wie müßte die Zeile 14 aussehen, wenn man mehrere Absender hat?

Danke schön.
This comment was minimized by the moderator on the site
Hello, Thomas,
If you want to set multiple senders in the code, please apply the below code:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
  Dim xEntryIDs
  Dim xItem
  Dim i As Integer
  Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
  Dim xAppointmentItem As AppointmentItem
  On Error Resume Next
  xEntryIDs = Split(EntryIDCollection, ",")
  For i = 0 To UBound(xEntryIDs)
      Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
      If xItem.Class = olMeetingRequest Then
          Set xMeeting = xItem
          xMeeting.ReminderSet = False
          If VBA.InStr(VBA.LCase(", "), VBA.LCase(xMeeting.SenderEmailAddress)) <> 0 Then 'Specify the person you need
              Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
              'xAppointmentItem.ReminderSet = False
              'Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
              'xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                      "I am not at office. " & vbCrLf & _
                                      "I'm sorry that I will not attend the meeting invitations."
              'xMeetingDeclined.Send
              xAppointmentItem.Delete
              xMeeting.Delete
          End If
      End If
  Next
End Sub


Note: If there are more senders need to be added, please add the emails into this script If VBA.InStr(VBA.LCase(", "), VBA.LCase(xMeeting.SenderEmailAddress)) <> 0 Then

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Hi, skyyang
Thank you for your information.

I have one question about this.
If i don't want to repley email of attending, which code can i use ?
Could you please update with this option?
This comment was minimized by the moderator on the site
skyyang I get lots of emails from an automated and unmanned inbox, so I don't want to send a reply to them about declining the meeting. Would I instead just cut out the .Body and .Send segments and use this?:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
If xItem.Class = olMeetingRequest Then
Set xMeeting = xItem
xMeeting.ReminderSet = False
If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("") Then 'Specify the person you need
Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
xAppointmentItem.ReminderSet = False
Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xMeeting.Delete
End If
End If
Next
End Sub


Cheers,
This comment was minimized by the moderator on the site
Hello, D
What do you mean the automated and unmanned inbox?
Could you explain it more detailed, thank you!
This comment was minimized by the moderator on the site
Hello,

Thank you for sharing. Could you please update the VBL with more options? I need to decline and remove from my calendar meeting invites with the following:
- from specific people - already covered in your VBL
- with specific words in the body
- with specific words in the subject
- except if sent to people or public group
- except if my name is in the To or CC box
- except if it marked as importance
- except if the subject contains specific words

About this part:
f VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("") Then 'Specify the person you need

I will replace the with the sender I need to filter and decline the invites from but I don't understand if I need to replace this part with anything specific " Specify the person you need" or just leave as is?
This comment was minimized by the moderator on the site
I have the same question as Dan about "Then 'Specify the person you need"

Thank you!
This comment was minimized by the moderator on the site
Hello, Rriela,
In the code, you juse need to change the sender address "" to the sender that you want to decline the invites from.
'Specify the person you need :This text is only annotation, you can leave or delete it as you need.
This comment was minimized by the moderator on the site
Okay thank you! I did mine like this:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
If xItem.Class = olMeetingRequest Then
Set xMeeting = xItem
xMeeting.ReminderSet = False
If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("") Then 'Specify the person you need
Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
xAppointmentItem.ReminderSet = False
Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xMeetingDeclined.Body = "Dear Fake, " & vbCrLf & _
"I will not attend this meeting. Thank you."
xMeetingDeclined.Send
xMeeting.Delete
End If
End If
Next
End Sub

But I wonder if there is a way to decline the meeting and delete it from my calendar WITHOUT sending a response? Can I just delete this part:
Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xMeetingDeclined.Body = "Dear Fake, " & vbCrLf & _
"I will not attend this meeting. Thank you."

Thank you so much for your help
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations