Note: The other languages of the website are Google-translated. Back to English
로그인  \/ 
x
or
x
계좌 개설  \/ 
x

or

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

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

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


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

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

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

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

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("example1@126.com", "example2@126.com", "example3@126.com")
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

코드에서 변경할 수 있습니다. ("example1@126.com", "example2@126.com", "example3@126.com") 필요한 실제 수신자에게.

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

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.