메인 컨텐츠로 가기

Outlook에서 특정 사용자의 모임 초대를 자동으로 거부하는 방법은 무엇입니까? 

Outlook에서 특정 사람의 일부 회의 초대를 자동으로 거부하는 규칙을 만들 수 있지만 어떻게 처리할까요? 이 기사에서는 자세한 방법을 소개합니다.

Outlook에서 특정 사용자의 모임 초대를 자동으로 거부

특정 사람의 회의 초대를 자동으로 거부하고 캘린더에서도 회의를 삭제합니다.


Outlook에서 특정 사용자의 모임 초대를 자동으로 거부

이 작업을 완료하려면 다음 단계를 수행하십시오.

1. 먼저 회의 초대 거절을위한 메시지 템플릿을 만들어야합니다. 에서 보내실 내용 창에서 회의 초대 거부를 위해 보낼 메시지를 입력합니다. 스크린 샷보기 :

2. 그런 다음 메시지를 템플릿 형식으로 저장하고 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 다른 이름으로 저장,에 다른 이름으로 저장 창에 메시지 이름을 입력하십시오. 파일 이름 텍스트 상자를 선택한 다음 Outlook 템플릿 (* .oft) 인사말 형식으로 저장 드롭 다운 목록, 스크린 샷 참조 :

주의 사항: 선택시 Outlook 템플릿 (* .oft), 기본 사용자 템플릿 폴더가 열립니다.

3. 그런 다음 찜하기 버튼을 눌러 메시지 템플릿을 저장하고 메시지 창을 닫습니다.

4. 그런 다음 규칙을 만들 수 있습니다. 클릭하세요 규칙 > 규칙 및 경고 관리 아래 탭, 스크린 샷 참조 :

5. 에서 규칙 및 경고 대화 상자에서 새로운 규칙 인사말 이메일 규칙 탭, 스크린 샷 참조 :

6. 튀어 나온 규칙 마법사클릭 받은 메시지에 규칙 적용 옵션 아래의 빈 규칙에서 시작 섹션, 스크린 샷 참조 :

7. 그런 다음 다음 보기 버튼을 클릭하고 튀어 나온 대화 상자에서 사람 또는 공개 그룹의 1 단계 : 조건 선택 목록 상자를 클릭 한 다음 텍스트 링크를 클릭합니다. 사람 또는 공개 그룹 를 열려면 규칙 주소 대화 상자에서 회의를 거부 할 사람을 선택하고 스크린 샷을 참조하십시오.

8. 딸깍 하는 소리 OK 버튼,이 대화 상자에서 확인하려면 스크롤하십시오. 회의 초대 또는 업데이트입니다. 옵션에서 1 단계 : 조건 선택 목록 상자, 스크린 샷 참조 :

9. 클릭으로 이동 다음 보기 버튼, 다음 대화 상자에서 :

(1.) 확인 특정 템플릿을 사용하여 답장하기 에 옵션 1 단계 : 작업 선택 리스트 박스;

(2.) 그런 다음 텍스트 링크를 클릭하십시오. 특정 템플릿 를 열려면 회신 템플릿 선택 대화 상자;

(3.) 회신 템플릿 선택 대화 상자에서 사용자 템플릿 파일 시스템 인사말 들여다 쓰러지 다;

(4.) 그런 다음 방금 만든 메시지 이름을 선택합니다.

(5.) 클릭 엽니다 버튼을 클릭합니다.

10. 원래 대화 상자로 돌아가서 계속 확인하십시오. 그것을 삭제하십시오 에서 옵션 1 단계 : 작업 선택 목록 상자, 스크린 샷 참조 :

11. 클릭 다음 보기 > 다음 보기 마지막 단계 대화 상자로 이동합니다. 에서 마감재 규칙 설정 섹션에서이 규칙의 이름을 지정하고 이 규칙 사용 옵션에서 2 단계 : 규칙 옵션 설정, 스크린 샷 참조 :

12. 딸깍 하는 소리 마감재 버튼을 클릭하여이 규칙을 완료 한 다음 OK 대화 상자를 닫습니다.

13. 이제부터는 특정 사용자로부터 회의를 수신하면 자동으로 거부 이메일이 전송되고 회의 메시지도 삭제됩니다.


특정 사람의 회의 초대를 자동으로 거부하고 캘린더에서도 회의를 삭제합니다.

첫 번째 방법은 회의에 참석하지 않을 것임을 알리는 이메일을 보내는 데 도움이 되지만 회의는 항상 일정에 표시됩니다. 캘린더에 표시되는 회의를 동시에 삭제해야 하는 경우 다음 VBA 코드가 도움이 될 수 있습니다.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 ThisOutlook세션 인사말 프로젝트 1 (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. 그런 다음 이 코드 창을 저장하고 닫습니다. 이제부터 이 특정인의 회의가 있는 경우 거부된 이메일을 받게 되며 회의는 자동으로 캘린더에서 삭제됩니다.


최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 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