Note: The other languages of the website are Google-translated. Back to English

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("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

dok. kontrollera mottagarens adress innan du skickar 1

I koden kan du ändra ("example1@126.com", "example2@126.com", "example3@126.com") till de riktiga mottagarna du behöver.

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

dok. kontrollera mottagarens adress innan du skickar 2 doc pil till höger dok. kontrollera mottagarens adress innan du skickar 3

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.
dok. kontrollera mottagarens adress innan du skickar 4

Med ovanstående kod kontrollerar den bara e-postadresserna i Till fält om du vill checka in Till, CC och 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 = "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

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.


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser