메인 컨텐츠로 가기

Outlook에서 특정 주소로 보내는 이메일을 차단하는 방법은 무엇입니까?

일반적으로 Outlook은 모든 일반 전자 메일 주소로 전자 메일을 보내고 특정 전자 메일 주소로 전자 메일을 보내는 것을 차단할 수 없습니다. 그러나 때때로 Outlook에서 특정 이메일 주소로 이메일을 보내지 못하도록 해야 할 수도 있습니다. 이 경우 이 자습서에서는 이 작업을 해결하기 위한 VBA 코드를 소개합니다.


VBA 코드를 사용하여 특정 주소로 보내는 이메일 차단

다음 VBA 코드가 도움이 될 수 있습니다. 다음과 같이 하십시오.

1. Outlook을 시작한 다음 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 그런 다음 두 번 클릭 ThisOutlook세션 인사말 프로젝트 -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 = "" 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 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

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

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

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

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations