Note: The other languages of the website are Google-translated. Back to English

Outlook: lembrete automático ao esquecer anexos em mensagens

Você pode estar com dor de cabeça para esquecer de adicionar anexos, mas lembre os destinatários de verificar os anexos no corpo da mensagem de e-mail. Aqui, apresentaremos dois truques sobre como se lembrar automaticamente ao enviar uma mensagem de e-mail que pode conter anexos ausentes no Microsoft Outlook.

Lembrete automaticamente ao esquecer anexos no Outlook 2013/2016

Lembrete automaticamente quando esquecer anexos no Outlook 2007 e 2010

remova todos os contatos duplicados de uma ou várias pastas de contatos no Outlook

Às vezes, podemos adicionar repetidamente os mesmos contatos, como podemos remover os contatos duplicados de uma ou várias pastas de contatos? Kutools para Outlook's Duplicate Contacts função pode rapidamente remover ou mesclar contatos duplicados com base em e-mails, nome completo ou outros critérios de uma ou mais pastas de contatos.    Clique para 45 dias de teste grátis!
doc remover contatos duplicados 1
 
Kutools para Outlook: com dezenas de suplementos úteis do Outlook, grátis para testar sem limitação em 45 dias.
Guia Office - Habilite a edição e navegação com guias no Office e torne o trabalho muito mais fácil ...
Kutools for Outlook - traz 100 recursos avançados poderosos para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tenta responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails de uma vez; Adicionar saudação automaticamente quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de Anexo: Desanexar automaticamente, Comprimir tudo, Renomear tudo, Salvar tudo automaticamente ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails e contatos duplicados ...
  • Mais de 100 recursos avançados resolva a maioria dos seus problemas no Outlook 2021 - 2010 ou Office 365. Recursos completos Avaliação gratuita de 60 dias.

seta azul bolha direitaLembrete automático ao esquecer anexos no Outlook 2013/2016

O Microsoft Outlook 2013 suporta o recurso de avisá-lo automaticamente quando você envia uma mensagem de e-mail que pode conter anexos ausentes.

Etapa 1: clique no botão Envie o > Opções.

Etapa 2: Na caixa de diálogo Opções do Outlook, clique no botão Mail no bar esquerdo.

Passo 3: vá para o Enviar mensagens seção, e continue verificando a opção de Avise-me quando eu enviar uma mensagem que pode estar faltando um anexo.

Etapa 4: clique no botão OK para sair desta caixa de diálogo.

Então o Microsoft Outlook 2013 ou 2016 irá avisá-lo automaticamente se você pode esquecer os anexos.

Por exemplo, você insere o texto “por favor verifique os anexos","ver anexos”, Etc. no corpo da mensagem, mas não insira anexos no acessório campo. Ao clicar no ENVIAR botão, uma caixa de diálogo de aviso aparecerá para dizer que você pode ter esquecido de anexar um arquivo. Veja a seguinte captura de tela:


seta azul bolha direitaLembrete automático ao esquecer anexos no Outlook 2007 e 2010

O Microsoft Outlook 2007 e 2010 não oferece suporte a avisos automáticos caso você esqueça os anexos. Uma macro VBA pode ajudá-lo a perceber isso.

Etapa 1: pressione o outro + F11 para abrir a janela Microsoft Visual for Applications.

Etapa 2: Expanda o Projeto 1 na barra esquerda e clique duas vezes no Esta sessão do Outlook para abri-lo.

Etapa 3: cole o código a seguir na janela ThisOutlookSession.

VBA: Aviso se não inserir o anexo

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex As Long

On Error GoTo handleError

iIndex = InStr(Item.Body, "attach")

If iIndex > 0 And Item.Attachments.Count = 0 Then

retMB = MsgBox("You may have forgotten to attach a file." & vbCrLf & vbCrLf & "Do you still want to continue?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
If retMB = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox "Outlook Attachment Alert Error: " & Err.Description, vbExclamation, "Outlook Attachment Alertr Error"
End If

End Sub

Etapa 4: clique no botão Salvar na barra de ferramentas.

De agora em diante, se você adicionar o texto “acessório”No corpo da mensagem, mas não anexe arquivos, o lembrete de aviso aparecerá para informar que você pode ter esquecido de anexar um arquivo ao clicar no ENVIAR botão. Veja a captura de tela:


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (34)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
oi, gr8 ajuda, obrigado. mas há um problema quando a macro de alterações de data não funciona, qualquer ajuda para o tempo de vida. ;-)
Este comentário foi feito pelo moderador no site
Realmente, está funcionando. obrigado
Este comentário foi feito pelo moderador no site
Eu tentei a macro e nada acontece - alguma ideia do porquê?
Este comentário foi feito pelo moderador no site
Tenho macros habilitadas no Outlook 2010, mas o código não está funcionando. Todos os arquivos com anexo no corpo ainda estão sendo enviados sem anexo.
Este comentário foi feito pelo moderador no site
Essa macro funciona para mim, mas infelizmente a assinatura exigida pela empresa tem um aviso de confidencialidade que contém o trabalho "anexar" 3 vezes! Então, recebo o aviso pop-up a cada e-mail que assino. Como posso editar a macro para avisar apenas se a palavra anexar estiver no email 4 ou mais vezes?
Este comentário foi feito pelo moderador no site
Na linha que diz "If iIndex > 0 And Item.Attachments.count = 0 Then" altere o primeiro 0 para um 3 para que leia: "If iIndex > 3 And Item.Attachments.count = 0 Then" Essa linha está verificando por quantas vezes você disse a palavra especificada na linha anterior, então acho que isso resolverá seu problema.
Este comentário foi feito pelo moderador no site
Para alguns de vocês notando que nada aconteceu... Eu não consegui fazê-lo funcionar imediatamente, mas quando liguei meu computador no dia seguinte, funcionou bem. Talvez seja necessário reiniciar?
Este comentário foi feito pelo moderador no site
É possível procurar mais de uma palavra? Fe verificando tanto "anexado" quanto "incluído" Obrigado
Este comentário foi feito pelo moderador no site
nesta seção do código... iIndex = InStr(Item.Body, "attach") você pode adicionar mais variáveis ​​ou "strings". Ex: iIndex = InStr(Item.Body, "attach", "attachment", "attaching") ... e assim por diante. Certifique-se de separar cada um com uma vírgula, no entanto
Este comentário foi feito pelo moderador no site
Obrigado pela ferramenta. Eu uso no Outlook 2019. Está funcionando. Após novo início do Outlook, ele não funciona mais.
Também quero adicionar mais palavras-chave e pensei em adicioná-las do jeito que você fez.
Mas infelizmente não está funcionando. Algum palpite?
Este comentário foi feito pelo moderador no site
Oi, você precisa copiar o código vba toda vez que iniciar o Outlook. Se você quiser ter uma experiência perfeita, você pode usar o Aviso de email característica de Kutools para Outlook:
On Kutools guia, clique na seta suspensa ao lado Aviso de email, Selecione Lembre-me quando eu enviar uma mensagem com anexos ausentes. Em seguida, crie sua regra (veja a captura de tela abaixo) e ative o recurso.
https://www.extendoffice.com/images/stories/comments/ljy-picture/remind-before-sendinng.png

Amanda
Este comentário foi feito pelo moderador no site
Primeiramente, obrigado. Eu incorporei isso em nosso escritório que funciona em 2010. No entanto, descobrimos que se alguém tivesse enviado um e-mail inicialmente com a palavra anexada e após várias respostas a macro ainda contaria o "anexar" inicial. Grande problema com conversas de e-mail longas, você continuaria sendo solicitado a colocar um anexo devido ao e-mail original. Pensamentos?
Este comentário foi feito pelo moderador no site
[citação] Em primeiro lugar, obrigado. Eu incorporei isso em nosso escritório que funciona em 2010. No entanto, descobrimos que se alguém tivesse enviado um e-mail inicialmente com a palavra anexada e após várias respostas a macro ainda contaria o "anexar" inicial. Grande problema com conversas de e-mail longas, você continuaria sendo solicitado a colocar um anexo devido ao e-mail original. Pensamentos?Por DAN[/quote] Pensei em compartilhar uma solução que encontramos no meu escritório para este. Isso fará com que as fotos adicionadas ao e-mail ou que possam ser encontradas na assinatura de alguém não contarão como anexo. E leva apenas uma contagem de seu e-mail mais recente, não todo o corpo. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String Dim iIndex, i, trueCount As Long On Error GoTo handleError i = 1 strEnd = InStr( Item.Body, "From:") If strEnd 0 Then strTrunc = Left(Item.Body, strEnd) Else: strTrunc = Item.Body End If 'Debug.Print strTrunc If Item.Attachments.Count 0 Then iIndex = Item.Attachments .Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
Este comentário foi feito pelo moderador no site
Eu sei que este tópico tem alguns meses, então espero que você ainda esteja seguindo. Por algum motivo, não consigo ver seu comentário na íntegra. Está sendo cortado em "Do While i". Tem como repostar ou enviar por email? Desde já, obrigado!
Este comentário foi feito pelo moderador no site
Ótima ajuda! :lol: ajuda muito! Muito Obrigado!
Este comentário foi feito pelo moderador no site
Aqui está tudo, desculpe, parece que alguns deles foram cortados na mensagem anterior ... Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim retMB As Variant Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String Dim iIndex, i, trueCount As Long On Error GoTo handleError i = 1 strEnd = InStr(Item.Body, "From:") If strEnd 0 Then strTrunc = Left(Item.Body, strEnd) Else: strTrunc = Item.Body End If 'Debug.Print strTrunc If Item.Attachments.Count 0 Then iIndex = Item.Attachments.Count trueCount = Item.Attachments.Count 'Debug.Print iIndex 'Debug.Print trueCount Do While i
Este comentário foi feito pelo moderador no site
Olá Dan! Parece que seu segundo post foi cortado no mesmo lugar. Não tenho certeza se há um limite de caracteres no fórum... talvez tente dividir o código entre as postagens?
Este comentário foi feito pelo moderador no site
Oi, eu usei isso e está funcionando muito bem, mas notei que, se alguém me responde e eu respondo, ele pesquisa toda a trilha de e-mails em vez de apenas o que está sendo enviado. Existe uma maneira para mudar isso? Obrigado
Este comentário foi feito pelo moderador no site
Alguém conseguiu fazer isso funcionar? Eu adicionei este código de acordo com as instruções acima, macros habilitadas, mas nada. O código não faz nada.
Este comentário foi feito pelo moderador no site
Alguém conseguiu isso para funcionar no Outlook 2010? Eu segui as instruções acima e não faz nada
Este comentário foi feito pelo moderador no site
Como definir o aviso quando uma mensagem é enviada sem anexo em notas de lótus 8.5.3?
Este comentário foi feito pelo moderador no site
Eu usei este código e quando eu testo com meu endereço de e-mail na linha to, recebo a mensagem de erro, mas se eu colocar mais alguém lá, tudo funciona bem. Alguma ideia do que pode estar acontecendo?
Este comentário foi feito pelo moderador no site
O recurso de anexo automático foi projetado para funcionar quando você envia e-mails usando as teclas Ctrl+Enter?
Este comentário foi feito pelo moderador no site
O recurso Auto-Attachment foi projetado para funcionar quando o email é enviado usando as teclas Ctrl+Enter?
Este comentário foi feito pelo moderador no site
Este Código não funcionaria para mim. Tive que usar esse:
Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean)

If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then

Se Item.Attachments.Count = 0 Então

answer = MsgBox("Não há anexo, envie mesmo assim?", vbYesNo)

Se resposta = vbNão Então Cancelar = Verdadeiro

Se acabar

Se acabar

End Sub
Este comentário foi feito pelo moderador no site
Se alguém estiver com problemas para usar este código, as imagens em sua assinatura contam como anexos.


Eu tenho uma imagem na minha assinatura, então alterando a linha:

Se iIndex > 0 e Item.Attachments.Count = 0 Então

para:

Se iIndex > 0 E Item.Attachments.Count = 0 Ou Item.Attachments.Count = 1 Then

Fez funcionar para mim.
Este comentário foi feito pelo moderador no site
Obrigado por apontar isso, este também era um problema que eu estava tendo. Descobri que sua correção gerou o aviso, independentemente de a palavra 'anexar' ter sido usada. Em vez disso, usei:

Se iIndex > 0 e Item.Attachments.Count = 1 Então

Isso gerou o aviso apenas quando pretendido, e não sempre que qualquer e-mail foi enviado.
Este comentário foi feito pelo moderador no site
Obrigado António, funcionou.
Este comentário foi feito pelo moderador no site
OBRIGADO!
Isso funciona perfeitamente para mim com "If iIndex > 0 And Item.Attachments.Count = 0", apesar do fato de eu ter uma imagem na minha assinatura. Estou usando o Microsoft Office Professional Plus 2010
Este comentário foi feito pelo moderador no site
Não funcionará para mim, independentemente do valor da contagem. Eu tentei de tudo aqui e por algum motivo nunca consigo o pop-up.
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL