메인 컨텐츠로 가기

Outlook을 통해 보내기 전에받는 사람 주소를 확인하는 방법은 무엇입니까?

경우에 따라 Outlook을 통해 전자 메일을 보내는 동안받는 사람, 참조 또는 숨은 참조 필드에 중요한받는 사람을 추가하지 못할 수 있습니다. 여기서는 Outlook을 통해 보내기 전에 특정 이메일 주소가 추가되었는지 확인하는 방법을 소개 할 수 있습니다.

VBA 코드로 보내기 전에 주소 확인


VBA 코드로 보내기 전에 주소 확인

여기에이 작업을 해결하는 데 도움이되는 두 가지 코드가 있습니다. 필요에 따라 누구든지 선택할 수 있습니다.

1. 프레스 Alt + F11k활성화하려면 응용 프로그램 용 Microsoft Visual Basic 창.

2. 더블 클릭 ThisOutlook세션Project1 창에서 코드 편집기를 열고 코드 아래에 복사하여 편집기에 붙여 넣습니다.

VBA : 보내기 전에받는 사람 필드에서받는 사람 주소 확인

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xAddressArr() As Variant
Dim xAddress As String
Dim xRecipient As Recipient
Dim xPrompt As String
Dim xYesNo As Integer
Dim xDictionary As Scripting.Dictionary
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
xAddressArr = Array("", "", "")
For i = LBound(xAddressArr) To UBound(xAddressArr)
    xDictionary.Add xAddressArr(i), True
Next i
For Each xRecipient In Item.Recipients
    If xRecipient.Type = olTo Then
        If xDictionary.Exists(xRecipient.Address) Then xDictionary.Remove xRecipient.Address
    End If
Next
If xDictionary.Count = 0 Then GoTo L1
For i = 0 To xDictionary.Count - 1
    If xAddress = "" Then
        xAddress = xDictionary.Keys(i)
    Else
        xAddress = xAddress + "; " & xDictionary.Keys(i)
    End If
Next i
xPrompt = "You are not sending this to: " & xAddress & ". Are you sure you want to send the Mail?"
xYesNo = MsgBox(xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
L1:
  Set xRecipient = Nothing
  Set xDictionary = Nothing
End Sub

보내기 전에 문서 확인 수신자 주소 1

코드에서 변경할 수 있습니다. ("""""") 필요한 실제 수신자에게.

3. 그런 다음 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 도구 > 참고자료. 확인 Microsoft 스크립팅 런타임 체크 박스 참조 -Project1 대화.

보내기 전에 문서 확인 수신자 주소 2 문서 화살표 오른쪽 보내기 전에 문서 확인 수신자 주소 3

4. 클릭 OK 코드를 저장하십시오.

이제 지정된 수신자가 이메일을 보내는 동안받는 사람 필드에 나타나지 않으면 이메일을 보낼지 여부를 알려주는 대화 상자가 나타납니다.
보내기 전에 문서 확인 수신자 주소 4

위의 코드를 사용하면 이메일 주소 만 확인합니다. 필드, 체크인하려는 경우 , CCBCC 필드에서 아래 코드를 사용할 수 있습니다.

VBA : 보내기 전에받는 사람 / 참조 / 숨은 참조 필드에서받는 사람 주소 확인

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim xPos As Integer
Dim xYesNo As Integer
Dim xPrompt As String
Dim xAddress As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xRecipients = Item.Recipients
xAddress = ""
For Each xRecipient In xRecipients
    xPos = InStr(LCase(xRecipient.Address), xAddress)
    If xPos = 0 Then
        xPrompt = "You sending this to " & xAddress & ". Are you sure you want to send it?"
        xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook")
        If xYesNo = vbNo Then Cancel = True
    End If
Next xRecipient
End Sub

이 코드를 사용하면 확인할 필요가 없습니다. Microsoft 스크립팅 런타임 확인란을 선택하고 코드를 직접 저장하면 적용됩니다.


최고의 사무 생산성 도구

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

🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

📧 이메일 자동화: 부재중(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