Outlook 을 통해 보내기 전에 받는 사람 주소를 확인하는 방법은 무엇인가요？

때때로 Outlook 을 통해 이메일을 보낼 때 To, CC 또는 BCC 필드에 일부 중요한 받는 사람을 누락할 수 있습니다. 여기에서는 Outlook 을 통해 보내기 전에 특정 이메일 주소가 추가되었는지 확인할 수 있는 방법을 소개합니다。

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

---

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

이 작업을 해결하는 데 도움이 되는 두 가지 코드가 있습니다。 필요에 따라 하나를 선택하여 사용할 수 있습니다。

1. Alt + F11 키를 눌러활성화합니다。Microsoft Visual Basic for Applications창을 엽니다。

2. ThisOutlookSession을(를)Project1패널에서 두 번 클릭하여 코드 편집기를 열고， 아래 코드를 복사하여 편집기에 붙여넣습니다。

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

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

코드에서(「example1@126.com」, 「example2@126.com」, 「example3@126.com」)를 실제로 필요한 받는 사람으로 변경할 수 있습니다。

3. 그런 다음Microsoft Visual Basic for Applications창에서도도구(T)>참조(R)를 클릭합니다。Microsoft Scripting Runtime확인란을참조 - Project1대화 상자에서 선택합니다。

4. 확인을(를) 클릭하고 코드를 저장합니다。

이제 이메일을 보낼 때 지정된 받는 사람이 To 필드에 없으면 이메일을 보낼 것인지 묻는 대화 상자가 표시됩니다。

위의 코드는 이메일 주소만To필드에서 확인합니다。To,CC및BCC필드에서도 확인하려면 아래 코드를 사용할 수 있습니다。

VBA： 보내기 전 To/CC/BCC 필드에서 받는 사람 주소 확인하기

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 Scripting Runtime확인란을 선택할 필요 없이 코드를 직접 저장하여 즉시 적용할 수 있습니다。