Hogyan ellenőrizhetjük a címzettek címét az Outlookon keresztül történő küldés előtt?
Előfordulhat, hogy hiányzik néhány fontos címzett hozzáadása a Címzett, a CC vagy a BCC mezőkbe, miközben e-maileket küld az Outlook segítségével. Itt bemutathatok egy módszert annak ellenőrzésére, hogy a megadott e-mail címek hozzáadódtak-e az Outlookon keresztül történő küldés előtt.
Ellenőrizze a címeket, mielőtt elküldené VBA kóddal
Ellenőrizze a címeket, mielőtt elküldené VBA kóddal
Itt van két kódom, amely segíthet a munka megoldásában, bárkit kiválaszthat, amire szüksége van.
1. nyomja meg Alt + F11 keys engedélyezni Microsoft Visual Basic for Applications ablak.
2. Dupla kattintás ThisOutlookSession ból ből Project1 ablaktáblán a kódszerkesztő megnyitásához, másolja és illessze be a kód alatt a szerkesztőbe.
VBA: küldés előtt ellenőrizze a címzett címét a Címzett mezőben
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
A kódban megváltoztathatja ("""""") a valódi címzetteknek, amelyekre szüksége van.
3. Ezután a Microsoft Visual Basic for Applications ablakban kattintson Eszközök > Referenciák. Check Microsoft Scripting Runtime jelölőnégyzet be Referenciák-Projekt1 párbeszéd.
4. kettyenés OK és mentse a kódot.
Most, ha a megadott címzettek nem jelennek meg a Címzett mezőben e-mail küldés közben, megjelenik egy párbeszédpanel, amely emlékezteti Önt arra, hogy el kell-e küldeni az e-mailt.
A fenti kóddal csak az e-mail címeket ellenőrzi Nak nek mezőbe, ha be akar jelentkezni Nak nek, CC és a BCC mezőkben használhatja a kód alatt.
VBA: küldés előtt ellenőrizze a címzett címét a Címzett / CC / BCC mezőkben
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
Ezzel a kóddal nem kell ellenőriznie Microsoft Scripting Runtime jelölőnégyzetet, csak közvetlenül mentse el a kódot, hogy életbe lépjen.
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.