Hur kontrollerar jag mottagaradresser innan du skickar via Outlook?

Ibland kan du missa att lägga till några viktiga mottagare i fältet Till, CC eller BCC när du skickar e-post via Outlook. Här kan jag introducera en metod för att kontrollera om de specifika e-postadresserna har lagts till innan jag skickar via Outlook.

Kontrollera adresser innan du skickar med VBA-kod

Kontrollera adresser innan du skickar med VBA-kod

Här har jag två koder som kan hjälpa dig att lösa detta jobb, du kan välja vem du vill.

1. Tryck Alt + F11 keys för att aktivera Microsoft Visual Basic för applikationer fönster.

2. Dubbelklicka ThisOutlookSession från Project1 rutan för att öppna kodredigeraren, kopiera och klistra in under koden till redigeraren.

VBA: kontrollera mottagaradress i fältet Till innan du skickar

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

I koden kan du ändra ("""""") till de riktiga mottagarna du behöver.

3. Sedan också i Microsoft Visual Basic för applikationer fönstret klickar verktyg > Referensprojekt. Check Microsoft Scripting Runtime kryssrutan Referenser-projekt1 dialog.

4. klick OK och spara koden.

Nu om de angivna mottagarna inte visas i Till-fältet när du skickar e-postmeddelanden, kommer en dialogruta att dyka upp för att påminna dig om att skicka e-postmeddelandet.

Med ovanstående kod kontrollerar den bara e-postadresserna i Till fält om du vill checka in Till, CC samt BCC fält kan du använda nedanstående kod.

VBA: kontrollera mottagaradress i Till / CC / BCC-fält innan du skickar

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

Med den här koden behöver du inte kontrollera Microsoft Scripting Runtime kryssrutan, bara spara koden direkt för att träda i kraft.