Os cookies nos ajudam a oferecer nossos serviços. Ao utilizar nossos serviços, você concorda com a nossa utilização de cookies.
Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Cadastre-se
x

or

Como verificar os endereços dos destinatários antes de enviar pelo Outlook?

Em alguns momentos, você pode perder a adição de alguns destinatários importantes nos campos Para, CC ou CCO ao enviar e-mails pelo Outlook. Aqui, posso introduzir um método para verificar se os endereços de email específicos foram adicionados antes de enviar pelo Outlook.

Verificar endereços antes de enviar com código VBA

Responder a todos exclui-me no outlook

Quando usamos a função Responder a todos no Outlook, podemos adicionar nossas contas ao campo Para também se os e-mails que você receber contiverem mais duas suas contas. Nesse caso, você pode querer remover suas contas dos campos Para e Cc. Ktools for Outlook's Meu nome é Você pode fazer um favor em resolver este trabalho rapidamente. Só precisa de um clique, todas as contas no Outlook serão removidas dos campos Para e Cc. Clique para a versão de teste de dias 45!
resposta de documento excluir conta
doc arrow dowm

resposta de documento excluir conta 2
Kutools para Outlook: com dezenas de complementos acessíveis do Outlook, livre para tentar sem limitação nos dias 45.

Verificar endereços antes de enviar com código VBA

Aqui eu tenho dois códigos podem ajudá-lo a resolver este trabalho, você pode escolher qualquer um como você precisa.

1. Pressione Alt + F11 keys para ativar Microsoft Visual Basic para Aplicações janela.

2. Duplo click ThisOutlookSession a partir de Project1 painel para abrir o editor de código, copie e cole abaixo o código para o editor.

VBA: verifique o endereço do destinatário no campo Para antes de enviar

Private Sub Application_ItemSend (ByVal Item como objeto, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () Como Variant Dim xAddress Como String Dim xRecipient Como Destinatário Dim xPrompt As String Dim xYesNo As Integer Dim xDictionary As Scripting.Dictionary On Erro Retomar Próximo Conjunto xDictionary = Novo Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Para i = LBound (xAddressArr) Para UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i Para cada xRecipient em Item.Recipients If xRecipient.Type = olTo Then If xDictionary.Exists (xRecipient.Address) Then xDictionary.Remove xRecipient.Address End If Próximo 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 Próximo i xPrompt = "Você não está enviando isto para: "& xAddress &". Tem certeza de que deseja enviar o e-mail? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools para Outlook") Se xYesNo = vbNo Entà £ o Cancelar = Verdadeiro L1: Definir xRecipient = Nada Definir xDictionary = Nada End Sub

endereço de destinatário de verificação de doc antes de enviar 1

No código, você pode mudar ("example1@126.com", "example2@126.com", "example3@126.com") para os destinatários reais que você precisa.

3. Então também no Microsoft Visual Basic para Aplicações janela, clique em Ferramentas > caso. Verifica Microsoft Scripting Runtime caixa de seleção em Referências-Project1 diálogo.

endereço de destinatário de verificação de doc antes de enviar 2 doc arrow right endereço de destinatário de verificação de doc antes de enviar 3

4. Clique OK e salve o código.

Agora Se os destinatários especificados não aparecerem no campo Para durante o envio de e-mails, uma caixa de diálogo será exibida para lembrá-lo se enviar o e-mail.
endereço de destinatário de verificação de doc antes de enviar 4

Com o código acima, ele apenas verifica os endereços de e-mail Para campo, se você quiser fazer check-in Para, CC e BCC campos, você pode usar abaixo do código.

VBA: verifique o endereço do destinatário nos campos Para / CC / BCC antes de enviar

Private Sub Application_ItemSend (ByVal Item como objeto, Cancelar como booleano) '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 Erro Retomar Próximo Se Item. Class <> olMail Em seguida, saia do Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com" Para cada xRecipient Em xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Se xPos = 0 Em seguida, xPrompt = "Você está enviando isso para "& xAddress &". Tem certeza de que deseja enviá-lo? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") Se xYesNo = vbNo Então, Cancel = True End Se Próximo xRecipient End Sub

Com este código, você não precisa verificar Microsoft Scripting Runtime caixa de seleção, basta salvar diretamente o código para entrar em vigor.



Kutools for Outlook

Mais do que 100 Funções avançadas para o Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools para outlook minúsculo para banner 201812

mais recursos | Download grátis | Apenas $ 39.00 para centenas de funções

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.