특정 주소로 보내는 이메일을 Outlook에서 차단하는 방법은 무엇입니까?
일반적으로 Outlook은 모든 일반적인 이메일 주소로 이메일을 보내며 특정 이메일 주소로 이메일을 보내는 것을 차단할 수 없습니다. 하지만 때때로 특정 이메일 주소로 이메일을 보내는 것을 방지해야 할 수도 있습니다. 이런 경우, 이 튜토리얼에서는 이 작업을 해결하기 위한 VBA 코드를 소개합니다.
VBA 코드를 사용하여 특정 주소로 보내는 이메일 차단하기
다음 VBA 코드가 도움이 될 수 있으니 아래 단계를 따르세요:
1. Outlook을 실행한 다음 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.
2. 그런 다음 Project-Project1 패널에서 ThisOutlookSession을 두 번 클릭하고 아래 코드를 빈 코드 창에 복사하여 붙여넣습니다.
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. 이메일을 보내고 난 후 Sent Items 폴더에서 받는 사람을 확인할 수 있으며 특정 이메일 주소는 받는 사람 목록에서 제외되었습니다. 스크린샷을 참조하세요:
아웃룩의 AI 메일 도우미: 더 스마트한 답장, 더 명확한 커뮤니케이션 (한 번의 클릭으로 끝내기!) ⚡ 무료
Kutools for Outlook의 AI 메일 도우미로 매일 처리하는 아웃룩 작업을 간소화하세요. 이 강력한 도구는 과거 이메일을 학습하여 지능적이고 정확한 답변을 제공하고, 이메일 내용을 최적화하며, 초안 작성 및 메시지 수정을 쉽게 도와줍니다.
이 기능은 다음을 지원합니다:
- 스마트 답장: 과거 대화를 기반으로 맞춤형, 정확한 답변을 받아보세요. 바로 사용할 수 있습니다.
- 개선된 콘텐츠: 이메일 텍스트를 자동으로 다듬어 명확도와 영향력을 높여보세요.
- 손쉬운 작문: 키워드만 제공하면 AI가 나머지를 처리해 다양한 작문 스타일로 도와줍니다.
- 지능적인 확장: 맥락에 맞는 제안으로 생각을 확장하세요.
- 요약 기능: 긴 이메일의 간결한 요약본을 즉시 받아보세요.
- 글로벌 도달: 이메일을 손쉽게 다른 언어로 번역하세요.
이 기능은 다음을 지원합니다:
- 스마트 이메일 답장
- 최적화된 콘텐츠
- 키워드 기반 초안 작성
- 지능적인 콘텐츠 확장
- 이메일 요약
- 다국어 번역
가장 좋은 점은 이 기능이 영원히 완전 무료라는 것입니다! 기다리지 말고 지금 AI 메일 도우미를 다운로드하고 즐겨보세요!
최고의 오피스 생산성 도구
속보: Kutools for Outlook 무료 버전 출시!
새롭게 달라진 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