As cookies axúdanos a entregar os nosos servizos. Ao usar os nosos servizos, acepta o noso uso das cookies.
Consello: outros idiomas están traducidos a Google. Podes visitar o English versión desta ligazón.
Iniciar sesión
x
or
x
x
Register
x

or

Como comprobar as direccións do destinatario antes de enviar a Outlook?

Nalgúns momentos, pode faltar engadir algúns destinatarios importantes aos campos To, CC ou BCC mentres envía correos electrónicos a través de Outlook. Aquí, podo introducir un método para comprobar se se engadiron os enderezos de correo electrónico específicos antes de enviar a través de Outlook.

Consulte enderezos antes de enviar co código VBA

Responder a todos exclútame en perspectiva

Cando usamos a función Responder a todos en Outlook, podemos engadir as nosas contas a campo Para tamén se os correos electrónicos que recibiu conteñen dúas máis as súas contas. Neste caso, pode querer eliminar as súas contas dos campos Para e CC. Ktools para Outlook's Os meus nomes Pode facelo un favor na resolución deste traballo rapidamente. Só necesitaremos un clic, todas as contas de myselft en Outlook eliminaranse dos campos A e CC. Fai clic para 45 días de proba gratuíta.
a resposta do documento exclúe a conta
doc arrow dowm

a resposta do doc exclúa a conta 2
Kutools para Outlook: con decenas de complementos de Outlook útiles, gratuítos para probar sen ningunha limitación en 45 días.

Consulte enderezos antes de enviar co código VBA

Aquí teño dous códigos que podes axudarche a resolver este traballo, podes elixir a ninguén como necesites.

1. Preme Alt + F11 keys para habilitar Microsoft Visual Basic para aplicacións fiestra.

2. Dobre clic Esta sesión de consulta de Project1 panel para abrir o editor de código, copiar e pegar debaixo do código ao editor.

VBA: verifica o enderezo do destinatario no campo Para antes de enviar

Private Sub Application_ItemSend (ByVal Item As Object, Cancelar como Booleano) '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 Sobre Error Resume Next Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Para i = LBound (xAddressArr) a UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i para cada xRecipiente en Item.Recipients Se xRecipient.Type = olTo Then Se xDictionary.Exists (xRecipient.Address) Entón xDictionary.Remove xRecipient.Address End If Next Se xDictionary.Count = 0 Entón GoTo L1 Para i = 0 a xDictionary.Count - 1 Se xAddress = "" XAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) End If Next i xPrompt = "Non estás enviando isto a: "& xAddress &". Estás seguro de que queres enviar o correo? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook") Se xYesNo = vbNo entón Cancel = True L1: Set xRecipient = Xeral Set xDictionary = Nothing End Sub

doc verifica o enderezo do destinatario antes de enviar 1

No código, podes cambiar ("example1@126.com", "example2@126.com", "example3@126.com") aos destinatarios reais que necesita.

3. Entón tamén no Microsoft Visual Basic para aplicacións fiestra, prema en ferramentas > References. Comprobe Execución de scripting de Microsoft caixa de verificación en Referencias-Project1 diálogo.

doc verifica o enderezo do destinatario antes de enviar 2 doc arrow dereita doc verifica o enderezo do destinatario antes de enviar 3

4. Fai clic OK e gardar o código.

Agora, se os destinatarios especificados non aparecen no campo Para ao enviar correos electrónicos, aparecerá un diálogo para recordar se enviar o correo electrónico.
doc verifica o enderezo do destinatario antes de enviar 4

Co código anterior, só comproba os enderezos de correo electrónico en Para campo, se queres facer check-in Para, CC e BCC campos, podes usar debaixo do código.

VBA: verifica o enderezo do destinatario nos campos de To / CC / BCC antes de 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 Reaparece Next If Item. Clase <> olMail entón Exit Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Para cada xRecipiente en xRecipientes xPos = InStr (LCase (xRecipient.Address), xAddress) Se xPos = 0 XPrompt = "Enviando isto a "& xAddress &". Estás seguro de que queres envialo? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools para Outlook") Se xYesNo = vbNo entón Cancel = True End If Next xRecipient End Sub

Con este código, non tes que comprobar Execución de scripting de Microsoft caixa de verificación, só gardar directamente o código para ter efecto.



Kutools para Outlook

Máis de 100 Funcións avanzadas para Outlook 2010, 2013, 2016, 2019 e 365

captura de pantalla kutools para pequenas perspectivas para a bandeira 201812

Máis recursos | Descarga gratuíta | Só $ 39.00 por centos de funcións

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.