Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es comproven les adreces del destinatari abans d'enviar-les a través d'Outlook?

En algunes ocasions, és possible que no agregueu alguns destinataris importants als camps To, CC o BCC mentre envieu correus electrònics a través d'Outlook. Aquí, puc introduir un mètode per comprovar si s'han afegit les adreces electròniques específiques abans d'enviar-les a través d'Outlook.

Comproveu les adreces abans d'enviar-les amb el codi VBA

La resposta a tots exclou jo mateix en perspectiva

Quan utilitzem la funció Respondre a totes a Outlook, podem afegir els nostres comptes al camp A també si els correus electrònics que rebeu conté dos més els vostres comptes. En aquest cas, és possible que vulgueu eliminar els vostres comptes dels camps A i CC. Ktools per Outlook's El meu nom és Pot fer-vos un favor a la solució d'aquest treball ràpidament. Només cal un clic, tots els comptes de myselft a Outlook s'eliminaran dels camps A i CC. Feu clic per obtenir una prova gratuïta de 45 dies.
La resposta del document exclou el compte
fletxa de fletxa doc

La resposta de doc exclou el compte 2
Kutools for Outlook: amb desenes d'accessoris de Outlook útils, gratuïts per intentar sense limitacions en 45 dies.

Comproveu les adreces abans d'enviar-les amb el codi VBA

Aquí tinc dos codis que us poden ajudar a resoldre aquest treball, podeu triar qualsevol persona que us demani.

1. Premeu Alt + F11 kes permet habilitar Microsoft Visual Basic per a aplicacions finestra.

2. Feu doble clic ThisOutlookSession de Project1 panell per obrir l'editor de codi, copieu i enganxeu de sota del codi a l'editor.

VBA: comprova l'adreça del destinatari al camp A abans d'enviar

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") Per i = LBound (xAddressArr) A UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i per a cada xRecipient en Item.Recipients Si xRecipient.Type = olTo Then Si xDictionary.Exists (xRecipient.Address) Llavors xDictionary.Remove xRecipient.Address End If Next Si xDictionary.Count = 0 Then GoTo L1 Per i = 0 a xDictionary.Count - 1 Si xAddress = "" Llavors xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) End If Next i xPrompt = "No esteu enviant a: "& xAddress &". Esteu segur que voleu enviar el correu? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Si xYesNo = vbNo Then Cancel = True L1: Estableix xRecipient = Res estableix xDictionary = Nothing End Sub

doc comprova l'adreça del destinatari abans d'enviar 1

Al codi, podeu canviar ("example1@126.com", "example2@126.com", "example3@126.com") als destinataris reals que necessiteu.

3. A continuació, també a la Microsoft Visual Basic per a aplicacions finestra, feu clic a instruments > referències. Comprovar Microsoft Scripting Runtime casella de selecció Referències: Project1 diàleg.

doc comprova l'adreça del destinatari abans d'enviar 2 doc fletxa dreta doc comprova l'adreça del destinatari abans d'enviar 3

4. clic OK i deseu el codi.

Ara, si els destinataris especificats no apareixen al camp "À" mentre envien correus electrònics, apareixerà un quadre de diàleg per recordar-vos si voleu enviar el correu electrònic.
doc comprova l'adreça del destinatari abans d'enviar 4

Amb el codi anterior, només verifica les adreces electròniques a A camp, si voleu efectuar el registre d'entrada A, CC i BCC camps, podeu utilitzar sota el codi.

VBA: comproveu l'adreça del destinatari als camps A / CC / BCC abans d'enviar

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 Rebuig Next If Item. Classe <> olMail Then Exit Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" per a cada xRecipient en xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Si xPos = 0 llavors xPrompt = "Enviant això a "& xAddress &". Esteu segur que voleu enviar-lo? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Si xYesNo = vbNo Then Cancel = True End If Next xRecipient End Sub

Amb aquest codi, no cal que marqui Microsoft Scripting Runtime casella de selecció, simplement guarda el codi perquè tingui efecte.



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l&#39;anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.