Jak sprawdzić adresy odbiorców przed wysłaniem przez Outlooka?

Czasami możesz pominąć dodawanie ważnych odbiorców do pól Do, DW lub UDW podczas wysyłania wiadomości e-mail przez Outlooka. Tutaj mogę przedstawić metodę sprawdzania, czy określone adresy e-mail zostały dodane przed wysłaniem przez Outlooka.

Sprawdź adresy przed wysłaniem za pomocą kodu VBA

Sprawdź adresy przed wysłaniem za pomocą kodu VBA

Tutaj mam dwa kody, które pomogą ci rozwiązać tę pracę, możesz wybrać każdego, jak potrzebujesz.

1. naciśnij Alt + F11 tyseys, aby włączyć Microsoft Visual Basic for Applications okno.

2. Podwójne kliknięcie Ta sesja programu Outlook od Project1 okienko, aby otworzyć edytor kodu, skopiuj i wklej poniższy kod do edytora.

VBA: sprawdź adres odbiorcy w polu Do przed wysłaniem

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

Przed wysłaniem sprawdź adres odbiorcy 1

W kodzie możesz zmienić ("""""") do prawdziwych odbiorców, których potrzebujesz.

3. Następnie także w Microsoft Visual Basic for Applications okno, kliknij Tools > Referencje. Sprawdź Środowisko wykonawcze skryptów firmy Microsoft Microsoft pole wyboru Referencje-projekt 1 dialog.

Przed wysłaniem sprawdź adres odbiorcy 2

Przed wysłaniem sprawdź adres odbiorcy 3

4. kliknij OK i zapisz kod.

Teraz Jeśli określeni odbiorcy nie pojawią się w polu Do podczas wysyłania wiadomości e-mail, pojawi się okno dialogowe przypominające o wysłaniu wiadomości e-mail.
Przed wysłaniem sprawdź adres odbiorcy 4

Z powyższym kodem sprawdza tylko adresy e-mail w Do jeśli chcesz się zameldować Do, CC i BCC pól, możesz użyć poniższego kodu.

VBA: sprawdź adres odbiorcy w polach Do / CC / BCC przed wysłaniem

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

Dzięki temu kodowi nie musisz sprawdzać Środowisko wykonawcze skryptów firmy Microsoft Microsoft pole wyboru, po prostu zapisz kod bezpośrednio, aby zaczął obowiązywać.