Ao reenviar ou encaminhar um e-mail, talvez você não queira salvar uma cópia na pasta Itens Enviados. Este artigo ensinará como configurar o Outlook para solicitar salvar uma cópia ou não com o Outlook VBA.
Na realidade, para most e-mails comuns, você deve preferir salvar suas cópias na pasta Itens Enviados. No entanto, em algumas situações, como quando você reenvia, encaminha um e-mail ou quando este e-mail traz um anexo muito grande, você pode achar desnecessário manter uma cópia. Nessas circunstâncias, você deve esperar que o Outlook possa avisá-lo e permitir que você faça escolhas.
Solução alternativa: utilize a opção “Não salvar”
Na verdade, o Outlook não possui esse recurso. Mas você pode usar uma solução alternativa. Essa é a opção “Não salvar” na janela de mensagem. Você pode acessá-lo mudando para a guia “Opções” e clicando no botão “Salvar item enviado para”, como na captura de tela a seguir:
Para facilitar o acesso a esta opção, você pode adicioná-la à Barra de Ferramentas de Acesso Rápido. Clique com o botão direito do mouse e escolha "Adicionar à barra de ferramentas de acesso rápido" no menu pop-up.
A partir de agora, se você não quiser salvar uma cópia, basta marcar a caixa de seleção ao lado da opção “Não Salvar” na Barra de Ferramentas de Acesso Rápido. Mesmo que este meio seja realmente conveniente, most os usuários ainda reclamam que muitas vezes se esquecem de marcar a caixa de seleção. Portanto, eles ainda desejam um prompt pop-up do Outlook para perguntar se salvam uma cópia. Para conseguir isso, você deve fazer uso do Outlook VBA. Por favor, continue lendo para obter os códigos e etapas elaborados.
VBA: pergunte se deseja salvar uma cópia ou não ao enviar e-mails
- Em primeiro lugar, inicie o Outlook e mude para a guia “Desenvolvedor”.
- Em seguida, clique no botão “Visual Basic”, que abrirá uma nova janela.
- Na janela “Visual Basic”, clique duas vezes em “ThisOutlookSession” para abrir a janela do projeto “ThisOutlookSession”.
- Em seguida, copie e cole os seguintes códigos nele.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim strMsg As String Dim nRes As Integer strMsg = "Deseja salvar uma cópia desta mensagem?" nRes = MsgBox(strMsg, vbYesNo + vbQuestion, "Confirmar salvamento da cópia") If nRes = vbNo Then Item.DeleteAfterSubmit = True End If End Sub
- Depois disso, você deve assinar este código como de costume e alterar as configurações de macro para permitir apenas macros assinadas digitalmente.
- Eventualmente, você pode tentar. Ao clicar no botão “Enviar”, você receberá um alerta do Outlook, como na imagem a seguir. Se você selecionar o botão “Não”, a mensagem atual não será salva na pasta Itens Enviados. Enquanto se você pressionar o botão "Sim", esta mensagem será salva.
Lide com problemas frequentes do Outlook
Como outros aplicativos, o Outlook pode sofrer vários problemas, como travamento repentino, falta de resposta, mensagens de erro ocasionais e assim por diante. Portanto, se você é um usuário regular do Outlook, é melhor adquirir um Ferramenta de reparo de arquivos do Outlook, gostar DataNumen Outlook Repair pois será útil quando você descobrir que seu arquivo do Outlook está corrompido por alguns motivos desconhecidos.
Introdução do autor:
Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar SQL Server corrupção do banco de dados mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com