Så här grupperar du alla bilagor från flera e-postmeddelanden till en ny e-post i Outlook

Om du vill skapa ett nytt e-postmeddelande och bifoga alla bilagor i flera andra e-postmeddelanden till det nya e-postmeddelandet kan du använda metoden som introduceras i den här artikeln. Det lär dig att använda VBA för att få det som en vind.

Ibland kan du behöva gruppkopiera alla bilagor från flera e-postmeddelanden till ett nytt e-postmeddelande. Naturligtvis kan du välja att göra det manuellt, helt enkelt genom att först spara dem på lokal enhet och sedan bifoga dem till en nyskapad e-post en efter en. Men uppenbarligen kommer det på detta sätt att vara en ganska tråkig uppgift. Därför, varför använder du inte VBA för att snabbt inse det? I det följande kommer vi att exponera dig för de detaljerade operationerna och motsvarande VBA-koder.

Partikopiera alla bilagor från flera e-postmeddelanden till en ny e-post

1. Starta Outlook-programmet som vanligt redan från början.
2. Tryck sedan på “Alt + F11” -knapparna i huvudfönstret i Outlook.
3. I det efterföljande “Microsoft Visual Basic for Applications” -fönstret sätter du in en ny modul eller öppnar en modul som inte används.
4. Kopiera och klistra sedan in följande VBA-koder i en sådan modul.

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. Därefter bör du fortsätta med att lägga till det nya VBA-projektet i verktygsfältet Snabbåtkomst. Du kan slutföra det i “Outlook-alternativ”.
6. Senare borde du ändra din säkerhetsnivå för makro i Outlook till låg.
7. Äntligen kan du prova.

• Tryck först på “Ctrl” -tangenten och välj flera e-postmeddelanden vars bilagor du vill kopiera.
• Klicka sedan på den nya makroknappen i snabbåtkomstverktygsfältet.
• Omedelbart dyker ett nytt e-postmeddelande upp med alla bifogade bilagor.

Utmana frekventa Outlook PST-problem

Eftersom Outlook PST-problem kan uppstå då och då, bör du spendera en hel del ansträngningar för att skydda dina PST-data. Till exempel hade du bättre säkerhetskopiera dina PST-data regelbundet, så att du kommer att kunna få tillbaka korrupta Outlook data från säkerhetskopior utan att svettas. Dessutom måste du ha ett ansedd verktyg i närheten, som DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com