Hvordan batchkopiere alle vedlegg fra flere e-poster til en ny e-post i Outlook

Hvis du vil opprette en ny e-post og legge til alle vedleggene i flere andre e-poster til den nye e-posten, kan du bruke metoden som er introdusert i denne artikkelen. Det vil lære deg å bruke VBA for å få det som en lek.

Noen ganger kan det hende du må batchkopiere alle vedleggene fra flere e-poster til en ny e-post. Selvfølgelig kan du velge å gjøre det manuelt, ganske enkelt ved først å lagre dem på lokal stasjon og deretter legge dem ved en nyopprettet e-post én etter én. Imidlertid vil det tilsynelatende på denne måten være en ganske kjedelig oppgave. Derfor, hvorfor bruker du ikke VBA for raskt å innse det? I det følgende vil vi avsløre de forseggjorte operasjonene og tilsvarende VBA-koder.

Batchkopier alle vedlegg fra flere e-poster til en ny e-post

1. Helt i begynnelsen, start Outlook-programmet som vanlig.
2. Deretter trykker du på "Alt + F11" i hovedvinduet i Outlook.
3. I det påfølgende "Microsoft Visual Basic for Applications"-vinduet setter du inn en ny modul eller åpner en modul som ikke er i bruk.
4. Kopier og lim deretter inn følgende VBA-koder i en slik 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. Etter det bør du fortsette å legge til det nye VBA-prosjektet til Quick Access Toolbar. Du kan fullføre det i "Outlook-alternativer".
6. Senere bør du endre Outlook-makrosikkerhetsnivået til lavt.
7. Endelig kan du prøve.

• Først trykker du på "Ctrl"-tasten og velger flere e-poster hvis vedlegg du vil kopiere.
• Trykk deretter på den nye makroknappen i hurtigtilgangsverktøylinjen.
• Umiddelbart vil en ny e-post dukke opp med alle vedleggene vedlagt.

Utfordre hyppige Outlook PST-problemer

Siden Outlook PST-problemer kan oppstå nå og da, bør du bruke mye arbeid på å beskytte PST-dataene dine. For eksempel bør du sikkerhetskopiere PST-dataene dine med jevne mellomrom, slik at du kan få tilbake korrupte Outlook data fra sikkerhetskopier uten å svette. Dessuten må du ha et anerkjent verktøy i nærheten, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med