Como permitir que o Outlook pergunte se deseja salvar uma cópia ao enviar e-mails

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 a maioria dos e-mails comuns, é recomendável salvar cópias na pasta Itens Enviados. No entanto, em algumas situações, como ao reenviar ou encaminhar um e-mail, ou quando ele contém um anexo muito grande, pode ser desnecessário manter uma cópia. Nessas circunstâncias, o Outlook pode sugerir opções 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. Embora esse método seja realmente conveniente, muitos usuários ainda reclamam que frequentemente se esquecem de marcar a caixa de seleção. Portanto, eles ainda desejam que o Outlook exiba uma mensagem perguntando se desejam salvar uma cópia. Para isso, você deve usar o VBA do Outlook. Continue lendo para obter os códigos e instruções detalhadas.

VBA: pergunte se deseja salvar uma cópia ou não ao enviar e-mails

1. Em primeiro lugar, inicie o Outlook e mude para a guia “Desenvolvedor”.
2. Em seguida, clique no botão “Visual Basic”, que abrirá uma nova janela.
3. Na janela “Visual Basic”, clique duas vezes em “ThisOutlookSession” para abrir a janela do projeto “ThisOutlookSession”.
4. 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 = "Do you want to save a copy of this message?"
    nRes = MsgBox(strMsg, vbYesNo + vbQuestion, "Confirm Saving Copy")
 
    If nRes = vbNo Then
       Item.DeleteAfterSubmit = True
    End If
End Sub

5. Depois disso, você deve assinar este código como de costume e alterar as configurações de macro para permitir apenas macros assinadas digitalmente.
6. 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