Note: The other languages of the website are Google-translated. Back to English

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 = "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 용 Kutools-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
코멘트 (0)
아직 평가가 없습니다. 가장 먼저 평가하세요!
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치