Ugrás a tartalomra

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

doc küldés előtt ellenőrizze a címzett címét 1

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.

doc küldés előtt ellenőrizze a címzett címét 2 doc nyíl jobbra doc küldés előtt ellenőrizze a címzett címét 3

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.
doc küldés előtt ellenőrizze a címzett címét 4

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

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? 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 ProKö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.

 

 

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