Hvis du vil oprette en ny e-mail og tilføje alle vedhæftede filer i flere andre e-mails til den nye e-mail, kan du bruge metoden introduceret i denne artikel. Det lærer dig at bruge VBA for at få det som en leg.
Til tider skal du muligvis batchkopiere alle vedhæftede filer fra flere e-mails til en ny e-mail. Selvfølgelig kan du vælge at gøre det manuelt ved blot at gemme dem på det lokale drev og derefter vedhæfte dem til en nyoprettet e-mail en efter en. Imidlertid vil det tilsyneladende på denne måde være en ret kedelig opgave. Derfor, hvorfor bruger du ikke VBA til hurtigt at indse det? I det følgende vil vi udsætte dig for de detaljerede operationer og de tilsvarende VBA-koder.
Batchkopier alle vedhæftede filer fra flere e-mails til en ny e-mail
- Start helt fra starten dit Outlook-program som normalt.
- Tryk derefter på “Alt + F11” -tasten i hovedvinduet i Outlook.
- I det efterfølgende “Microsoft Visual Basic for Applications” -vindue skal du indsætte et nyt modul eller åbne et modul, der ikke er i brug.
- Kopier og indsæt derefter følgende VBA-koder i et sådant 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
- Derefter skal du fortsætte med at tilføje det nye VBA-projekt til værktøjslinjen Hurtig adgang. Du kan udfylde det i “Outlook-indstillinger”.
- Senere skal du ændre dit Outlook-makro-sikkerhedsniveau til lavt.
- Endelig kan du prøve.
- For det første skal du trykke på "Ctrl" -tasten og vælge flere e-mails, hvis vedhæftede filer du vil kopiere.
- Tryk derefter på den nye makroknap i værktøjslinjen Hurtig adgang.
- Umiddelbart vises en ny e-mail med alle vedhæftede filer.
Udfordre hyppige Outlook PST-problemer
Da Outlook PST-problemer kan forekomme nu og da, skal du bruge en stor indsats for at beskytte dine PST-data. For eksempel havde du bedre sikkerhedskopieret af dine PST-data regelmæssigt, så du vil være i stand til at få tilbage korrupt Outlook data fra sikkerhedskopier uden at svede. Desuden er du nødt til at holde et velrenommeret værktøj i nærheden, ligesom DataNumen Outlook Repair.
Forfatter Introduktion:
Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com