Outlook 에서 특정 주소로 발신 이메일을 차단하는 방법은 무엇인가요？
일반적으로 Outlook 은 모든 정상적인 이메일 주소에게 이메일을 보내며 특정 이메일 주소으로의 이메일 발송을 차단할 수 없습니다. 하지만 때때로 Outlook 에서 특정 이메일 주소로 이메일을 보내는 것을 방지해야 할 필요가 있습니다。 이 경우， 본 튜토리얼에서는 이 작업을 해결하기 위한 VBA 코드를 소개합니다。
VBA 코드로 특정 주소로의 발신 이메일 차단하기
다음의 VBA 코드가 도움이 될 수 있습니다。 아래와 같이 진행하세요：
1. Outlook 을 실행한 후ALT + F11키를 누른 채로Microsoft Visual Basic for Applications창을 엽니다。
2。 그런 다음ThisOutlookSession을Project-Project1패널에서 두 번 클릭하고， 아래 코드를 빈 코드 창에 복사하여 붙여넣습니다：
VBA 코드： 특정 주소로의 발신 이메일 차단하기
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
Set xRecipients = xMail.Recipients
xContactGroupFound = False
For i = xRecipients.Count To 1 Step -1
If xRecipients(i).AddressEntry.DisplayType <> olUser Then
For n = 1 To xRecipients(i).AddressEntry.Members.Count
If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
Else
xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
xContactGroupFound = True
End If
Next
xRecipients(i).Delete
End If
Next i
xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
If VBA.Trim(xAddress) = "" Then
xAddress = xRecipient.Address
End If
If xAddress = "yy@addin99.com" Then 'change this email address to your need
If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
xRecipient.Delete
End If
End If
Next
If xMail.Recipients.Count = 0 Then
Cancel = True
End If
End Sub
3。 그런 다음 이 코드 창을 저장하고 닫기합니다。 이제 이메일을 발송할 때 수신자 목록에 특정 이메일 주소이 포함되어 있으면 아래 스크린샷과 같은 경고 메시지가 표시됩니다。아니요를 클릭하면 해당 특정 이메일 주소이 즉시 삭제됩니다。
4.이메일 발송 후보낸 편지함폴더에서 수신자를 확인할 수 있으며， 특정 이메일 주소은 수신자 목록에서 제외된 것을 확인할 수 있습니다(스크린샷 참조)：
Outlook 의 AI 메일 어시스턴트： 더 스마트한 답장， 더 명확한 커뮤니케이션(클릭 한 번으로 마법처럼！)
Kutools for Outlook 에서 제공하는 AI 메일 어시스턴트로 일상적인 Outlook 작업을 간편하게 처리하세요。 이 강력한 도구는 과거 이메일에서 학습하여 지능적이고 정확한 응답을 제안하고， 이메일 콘텐츠를 최적화하며， 메시지 작성을 손쉽게 도와줍니다。
이 기능은 다음을 지원합니다：
- 스마트 답장： 과거 대화를 기반으로 맞춤형， 정확하고 바로 사용 가능한 응답을 받아보세요。
- 향상된 콘텐츠： 이메일 문구를 자동으로 다듬어 명확성과 효과를 높입니다。
- 손쉬운 작문: 키워드만 입력하면 AI 가 나머지를 처리해 드립니다。 다양한 글쓰기 스타일 제공。
- 지능형 확장 기능： 맥락을 이해하는 제안으로 생각을 자연스럽게 확장하세요。
- 요약 기능： 긴 이메일을 즉시 간결하게 요약해 드립니다。
- 글로벌 지원： 이메일을 손쉽게 모든 언어로 번역하세요。
이 기능은 다음을 지원합니다：
- 스마트 이메일 답장
- 최적화된 콘텐츠
- 키워드 기반 초안 작성
- 지능형 콘텐츠 확장
- 이메일 요약
- 다국어 번역
기다리지 마세요—지금 AI 메일 어시스턴트를 다운로드하고!
최고의 Office 생산성 도구
Kutools for Outlook 의 완전히 새로운 버전을 100+가지 놀라운 기능과 함께 경험해 보세요！지금 다운로드하세요！
🤖KUTOOLS AI:고급 AI 기술을 활용하여 이메일 회신， 요약， 최적화， 확장， 번역， 작성 등 이메일 관련 작업을 손쉽게 처리합니다。
📧이메일 자동화:자동 회신(POP 및 IMAP 지원)/이메일 예약 발송/이메일 발송 시 규칙에 따라 자동 참조/숨은 참조/자동 전달(고급 규칙)/자동 인사말 추가/수신자 여러 명이 포함된 이메일을 자동으로 개별 메시지로 분할...
📨이메일 관리:이메일 회수/제목 등을 기준으로 피싱 이메일 차단/중복된 이메일 삭제/고급 검색/폴더 정리...
📁첨부파일 프로:일괄 저장/일괄 분리/일괄 압축/자동 저장/자동 분리/자동 압축...
🌟인터페이스 마법:😊더 예쁘고 멋진 이모지 제공/중요 이메일 수신 시 알림/Outlook 종료 대신 최소화...
👍한 번의 클릭으로 해결:모두 회신(첨부 파일 포함)/피싱 이메일 방지/🕘발신자의 현재 시간 시간대 표시...
👩🏼🤝👩🏻연락처 및 캘린더:선택한 이메일에서 연락처 추가 일괄 생성/연락처 그룹를 개별 그룹으로 분할/생일 알림 제거...
Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 및 40+개의 다른 언어를 지원합니다！
한 번의 클릭으로 즉시 Kutools for Outlook 의 잠금을 해제하세요。 더 이상 기다리지 마시고 지금 다운로드하여 업무 효율을 높이세요！
🚀 한 번의 클릭으로 다운로드 — 모든 Office 애드인 받기
강력히 권장： Kutools for Office (5-in-1)
한 번의 클릭으로다섯 개의 설치 프로그램을동시에 다운로드하세요 —Kutools for Excel, Outlook, Word, PowerPoint및Office Tab Pro.지금 다운로드하세요！
- ✅한 번의 클릭으로 편리하게： 다섯 개의 설치 패키지를 한 번에 다운로드하세요。
- 🚀모든 Office 작업에 대비 완료： 필요한 시점에 필요한 애드인을 설치하세요。
- 🧰포함됨: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint