Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Registrate
x

or

¿Cómo verificar las direcciones de los destinatarios antes de enviarlos a través de Outlook?

En algunas ocasiones, es posible que se pierda la adición de algunos destinatarios importantes en los campos Para, CC o CCO mientras se envían correos electrónicos a través de Outlook. Aquí, puedo presentar un método para verificar si las direcciones de correo electrónico específicas se han agregado antes de enviarlas a través de Outlook.

Verifique las direcciones antes de enviarlas con el código VBA

Responder a todos excluirme en perspectiva

Cuando utilizamos Responder a todas las funciones en Outlook, podemos agregar nuestras cuentas al campo Para también si los correos electrónicos que recibió contienen dos cuentas más. En este caso, es posible que desee eliminar sus cuentas de los campos A y CC. Ktools para Outlook's Mi nombre es puedo hacerte un favor al resolver este trabajo rápidamente. Solo se necesita un clic, todas las cuentas de myselft en Outlook se eliminarán de los campos A y CC. ¡Haz clic para la versión de prueba gratuita de 45 días!
doc reply exclude account
doc arrow dowm

doc reply exclude account 2
Kutools para Outlook: con docenas de prácticos complementos de Outlook, de prueba sin límite en días 45.

Verifique las direcciones antes de enviarlas con el código VBA

Aquí tengo dos códigos que pueden ayudarlo a resolver este trabajo, puede elegir a cualquier persona que necesite.

1. Prensa Alt + F11 keys para habilitar Microsoft Visual Basic para aplicaciones ventana.

2. Haga doble clic ThisOutlookSession desde Proyecto1 para abrir el editor de código, copiar y pegar el código debajo del editor.

VBA: verifique la dirección del destinatario en el campo A antes de enviar

Private Sub Application_ItemSend (Artículo ByVal como objeto, Cancelar como booleano) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Como Variant Dim xAddress como String Dim xRecipient como destinatario Dim xPrompt como String Dim xYesNo como Integer Dim xDictionary como Scripting.Dictionary On Error Resume Next Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Para i = LBound (xAddressArr) Para UBound (xAddressArr) xDictionary.Add xAddressArr (i ), Verdadero i para cada xRecipiente en Item.Recipients If xRecipient.Type = olTo Then If xDictionary.Exists (xRecipient.Address) Then xDictionary.Remove xRecipient.Address End If Next Si xDictionary.Count = 0 Then GoTo L1 For i = 0 a xDictionary.Count - 1 If xAddress = "" Entonces xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) End If Next i xPrompt = "No está enviando esto a: "& xAddress &". ¿Estás seguro de que deseas enviar el correo? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools para Outlook") If xYesNo = vbNo Then Cancelar = True L1: Establecer xRecipient = Nothing Establecer xDictionary = Nothing End Sub

revisar la dirección del destinatario antes de enviar 1

En el código, puedes cambiar ("example1@126.com", "example2@126.com", "example3@126.com") a los destinatarios reales que necesita.

3. Entonces también en el Microsoft Visual Basic para aplicaciones ventana, haga clic Herramientas > Referencias. Comprobar Microsoft Scripting Runtime casilla de verificación en Referencias-Proyecto1 diálogo.

revisar la dirección del destinatario antes de enviar 2 doc arrow derecha revisar la dirección del destinatario antes de enviar 3

4. Hacer clic OK y guarda el código

Ahora, si los destinatarios especificados no aparecen en el campo Para al enviar correos electrónicos, aparecerá un cuadro de diálogo para recordarle si desea enviar el correo electrónico.
revisar la dirección del destinatario antes de enviar 4

Con el código anterior, solo verifica las direcciones de correo electrónico en A campo, si desea registrarse A, CC y BCC campos, puede usar el código a continuación.

VBA: verifique la dirección del destinatario en los campos A / CC / BCC antes de enviar

Private Sub Application_ItemSend (Elemento ByVal como objeto, Cancelar como booleano) 'UpdatebyExtendoffice20180523 Dim xRecipients como Outlook.Recipients Dim xRecipient como Outlook.Recipient Dim xPos como Integer Dim xYesNo como Integer Dim xPrompt como String Dim xAddress como cadena On Error Resume Next If Item. Class <> olMail Then Exit Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" para cada xRecipient en xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) If xPos = 0 Then xPrompt = "You sending esto a "& xAddress &". ¿Estás seguro de que quieres enviarlo? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools para Outlook") Si xYesNo = vbNo Entonces Cancelar = True End If Siguiente xRecipient End Sub

Con este código, no necesita verificar Microsoft Scripting Runtime casilla de verificación, solo guarde directamente el código para que tenga efecto.



Kutools for Outlook

Más que 100 Funciones avanzadas para Outlook 2010, 2013, 2016, 2019 y 365

Kutools de captura de pantalla para Outlook pequeño para banner 201812

Más características | Descargar libre | Solo $ 39.00 para cientos de funciones

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.