Como encaminhar rapidamente um e-mail com anexos selecionados apenas via Outlook VBA

Ao encaminhar um e-mail do Outlook com anexos, às vezes, você pode querer manter apenas os anexos selecionados em vez de todos. Agora, neste artigo, vamos ensiná-lo a encaminhar rapidamente um e-mail apenas com anexos selecionados.

Da maneira padrão, quando você encaminha um e-mail do Outlook, todos os anexos originais serão encaminhados. No entanto, às vezes, você deseja encaminhar apenas alguns anexos em vez de todos. Geralmente, você pode encaminhar o e-mail como de costume e excluir manualmente os anexos indesejados. Mas, é um pouco problemático. Portanto, apresentaremos aqui um método muito mais rápido para encaminhar um e-mail apenas com anexos selecionados.

Encaminhe rapidamente um e-mail apenas com anexos selecionados

1. No início, inicie o editor VBA do Outlook por meio do atalho “Alt + F11”.
2. Em seguida, copie e cole o código a seguir em um projeto ou módulo.

Sub ForwardMailWithSelectedAttachmentsOnly()
    Dim objMail As Outlook.MailItem
    Dim strTempFolder As String
    Dim strFile As String
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objForward As Outlook.MailItem
 
    'Get the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    'Get the selected attachments
    Set objSelectedAttachments = Outlook.Application.ActiveExplorer.AttachmentSelection
    If objSelectedAttachments.Count > 0 Then
       'Forward this email
       Set objForward = objMail.Forward
       objForward.Display
 
       'Delete all the forwarded attachments
       Do Until objForward.Attachments.Count = 0
          objForward.Attachments.Item(1).Delete
       Loop
 
       On Error Resume Next
       strTempFolder = "E:\Temp" & Format(Now, "yyymmddhhmmss") & "\"
       MkDir (strTempFolder)
 
       'Re-attach the selected attachments to the forward mail
       For Each objAttachment In objSelectedAttachments
           strFile = strTempFolder & objAttachment.FileName
           objAttachment.SaveAsFile (strFile)
           objForward.Attachments.Add (strFile)
       Next
 
       Kill strFile
    End If
End Sub

3. Em seguida, saia do editor VBA.
4. Depois disso, siga o “Passo Opcional” no p anteriorost "Como executar o código VBA no seu Outlook” para adicionar esta macro à barra de ferramentas de acesso rápido ou à faixa de opções.
5. Eventualmente, você pode tentar esta macro.

• Primeiro, verifique se o painel de leitura está ativado.
• Em seguida, selecione um e-mail e os anexos que deseja encaminhar.
• Em seguida, clique no botão de macro na barra de ferramentas de acesso rápido ou na faixa de opções.
• Imediatamente, um novo e-mail será exibido. Como você pode ver, é um e-mail de encaminhamento com apenas anexos selecionados.

Corrigir corrupção de dados do Knotty Outlook

Você já se deparou com a falha do Outlook? E essas falhas resultaram em corrupção de dados PST? Se você já encontrou esses problemas, deve ter percebido como eles são complicados e problemáticos. Normalmente, pequenos problemas podem ser resolvidos com a ferramenta de reparo do Inbox. Mas, para os problemas graves, como Corrupção do Outlook, você deve utilizar um utilitário mais poderoso, como DataNumen Outlook Repair.

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 SQL Server fixo e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com