Como remover automaticamente os anexos das mensagens após o envio a partir da pasta Itens Enviados?
Ao enviar uma mensagem com anexos, estes são armazenados automaticamente na pasta Itens Enviados, juntamente com a mensagem. Para reduzir o tamanho do seu ficheiro PST, pode configurar o Outlook para remover automaticamente os anexos da pasta Itens Enviados após o envio das mensagens. Neste artigo, explico como realizar esta tarefa no Outlook.
Remover automaticamente os anexos após o envio de mensagens a partir do Itens Enviados
Remover automaticamente os anexos após o envio de mensagens a partir do Itens Enviados
O seguinte código VBA pode ajudá-lo a eliminar automaticamente os anexos após o envio de mensagens a partir do seu Outlook. Siga estes passos:
1. Prima e mantenha premidas as teclas «ALT» +"F11« para abrir a janela »Microsoft Visual Basic for Applications".
2. Na janela «Microsoft Visual Basic for Applications», faça duplo clique em «ThisOutlookSession» no painel «Project1 (VbaProject.OTM)» para abrir o módulo e, em seguida, copie e cole o código seguinte no módulo em branco.
Código VBA: Remoção automática de anexos após o envio de mensagens a partir do Itens Enviados:
Public WithEvents SentMailItems As Outlook.Items
Private Sub Application_Startup()
Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Sub SentMailItems_ItemAdd(ByVal Item As Object)
Dim xSentMail As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xAttachmentInfo As String
On Error Resume Next
If Item.Class = olMail Then
Set xSentMail = Item
End If
Set xAttachments = xSentMail.Attachments
For i = xAttachments.Count To 1 Step -1
Set xAttachment = xAttachments.Item(i)
xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
"</BODY></HTML>" & vbCrLf & xAttachmentInfo
xAttachment.Delete
Next
xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
xSentMail.Save
End Sub
3. Após inserir o código acima, reinicie o seu Outlook para que as alterações entrem em vigor.
4. A partir de agora, sempre que enviar mensagens com anexos, estes serão automaticamente removidos da pasta Itens Enviados, conforme ilustrado na seguinte captura de ecrã:
Nota: Este código está disponível apenas para a conta de dados predefinida.
Melhores Ferramentas de Produtividade para o Office
Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!
📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...
📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...
📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...
🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...
👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...
👩🏼🤝👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...
Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!
🚀 Transferência com um Clique — Obtenha Todos os Extras do Office
Altamente Recomendado: Kutools for Office (5 em 1)
Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!
- ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
- 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
- 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint