Como copiar em lote todos os anexos de vários e-mails para um novo e-mail no Outlook

Se você deseja criar um novo e-mail e anexar todos os anexos em vários outros e-mails ao novo e-mail, pode usar o método apresentado neste artigo. Ele vai ensiná-lo a usar o VBA para obtê-lo como uma brisa.

Às vezes, pode ser necessário copiar em lote todos os anexos de vários e-mails para um novo e-mail. Obviamente, você pode optar por fazê-lo manualmente, simplesmente salvando-os primeiro na unidade local e, em seguida, anexando-os a um e-mail recém-criado, um por um. No entanto, aparentemente, por este meio, será uma tarefa bastante tediosa. Portanto, por que você não utiliza o VBA para realizá-lo rapidamente? A seguir, iremos expor as operações elaboradas e os códigos VBA correspondentes.

Copiar em lote todos os anexos de vários e-mails para um novo e-mail

1. Para começar, abra o Outlook como de costume.
2. Em seguida, na janela principal do Outlook, pressione os botões de tecla “Alt + F11”.
3. Na janela seguinte “Microsoft Visual Basic for Applications”, insira um novo módulo ou abra um módulo que não esteja em uso.
4. Em seguida, copie e cole os seguintes códigos VBA em tal módulo.

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. Depois disso, você deve adicionar o novo projeto VBA à Barra de Ferramentas de Acesso Rápido. Você pode preenchê-lo em “Opções do Outlook”.
6. Mais tarde, você deve alterar o nível de segurança de macro do Outlook para baixo.
7. Finalmente você pode tentar.

• Em primeiro lugar, pressione a tecla “Ctrl” e selecione vários e-mails cujos anexos você deseja copiar.
• Em seguida, pressione o novo botão de macro na barra de ferramentas de acesso rápido.
• Imediatamente, um novo e-mail aparecerá com todos os anexos anexados.

Desafie problemas frequentes de PST do Outlook

Como os problemas do Outlook PST podem ocorrer de vez em quando, você deve se esforçar muito para proteger seus dados PST. Por exemplo, é melhor fazer backup de seus dados PST regularmente, de modo que você possa recuperar os Outlook corrompido dados de backups sem suar a camisa. Além disso, você deve manter uma ferramenta respeitável por perto, 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 consertar mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com