Batch Kopieer alle bijlagen van meerdere e-mails naar een nieuwe e-mail in Outlook

Als u een nieuwe e-mail wilt maken en alle bijlagen in verschillende andere e-mails aan de nieuwe e-mail wilt toevoegen, kunt u de methode gebruiken die in dit artikel is geïntroduceerd. Het leert je om VBA te gebruiken om het als een makkie te krijgen.

Soms moet u mogelijk alle bijlagen van meerdere e-mails in een batch naar een nieuwe e-mail kopiëren. U kunt er natuurlijk voor kiezen om het handmatig te doen door ze eerst op een lokaal station op te slaan en ze vervolgens een voor een toe te voegen aan een nieuw aangemaakte e-mail. Het zal op deze manier echter blijkbaar een behoorlijk vervelende taak zijn. Waarom gebruikt u VBA daarom niet om het snel te realiseren? In het volgende zullen we u de uitgebreide bewerkingen en bijbehorende VBA-codes laten zien.

Batch Kopieer alle bijlagen van meerdere e-mails naar een nieuwe e-mail

1. Start Outlook in eerste instantie zoals gebruikelijk.
2. Druk vervolgens in het hoofdvenster van Outlook op de toetsen "Alt + F11".
3. Voeg in het volgende venster "Microsoft Visual Basic for Applications" een nieuwe module in of open een module die niet in gebruik is.
4. Kopieer en plak vervolgens de volgende VBA-codes in zo'n module.

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. Daarna moet u doorgaan met het toevoegen van het nieuwe VBA-project aan de werkbalk Snelle toegang. U kunt het invullen in "Outlook-opties".
6. Later zou u het macrobeveiligingsniveau van uw Outlook op laag moeten zetten.
7. Eindelijk kun je het proberen.

• Druk eerst op de “Ctrl” -toets en selecteer verschillende e-mails waarvan u de bijlagen wilt kopiëren.
• Druk vervolgens op de nieuwe macroknop in de werkbalk Snelle toegang.
• Er verschijnt onmiddellijk een nieuwe e-mail met alle bijlagen.

Daag frequente Outlook PST-problemen uit

Aangezien Outlook PST-problemen zo nu en dan kunnen optreden, moet u veel moeite doen om uw PST-gegevens te beschermen. U kunt bijvoorbeeld beter regelmatig een back-up van uw PST-gegevens maken, zodat u het corrupte Outlook gegevens van back-ups zonder een zweet te breken. Bovendien moet u een betrouwbaar gereedschap in de buurt hebben, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com