Hoppa till huvudinnehåll

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

dok. kontrollera mottagarens adress innan du skickar 1

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.

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 = ""
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.


Bästa kontorsproduktivitetsverktyg

Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook

🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...

📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Hämta enkelt e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor ProBatch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Öka din Outlook-produktivitet med flikar  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med inkommande bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.

Läs mer       Gratis nedladdning      Inköp
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations