Sådan batchsender du alle filer i en Windows-mappe via separate Outlook-e-mails

Hvis du gerne vil sende alle filer i en Windows-mappe via individuelle Outlook-e-mails til nogen, kan du bruge metoden introduceret i denne artikel. Det gør brug af VBA-kode, hvilket er ret effektivt.

Efter at have læst min tidligere artikel - "3 hurtige metoder til at vedhæfte alle filer i en lokal mappe til en Outlook-e-mail”, ønsker nogle brugere at sende alle filer i en lokal mappe via separate e-mails. På standardmåde bør du oprette e-mails og vedhæfte filerne én efter én. Det er ret besværligt. Derfor vil vi i det følgende introducere en mere effektiv måde for dig.

Batch-send alle filer i en Windows-mappe via separate e-mails

1. Først skal du starte dit Outlook-program.
2. Gå derefter i Outlook til VBA-editor med henvisning til artiklen - "Sådan køres VBA-kode i din Outlook".
3. Kopier og indsæt derefter følgende VBA-kode i et projekt eller et modul.

Sub SendAllFilesInSeparateEmails()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim objFile As Object
    Dim strWindowsFolder As String
    Dim objFileSystem As Object
    Dim objMail As Outlook.MailItem
 
    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       Set objWindowsFolder = objFileSystem.GetFolder(strWindowsFolder)
 
       'Send each file in an email
       For Each objFile In objWindowsFolder.Files
 
           'Create a new mail
           Set objMail = Outlook.Application.CreateItem(olMailItem)
           'Change the details as per your needs
           With objMail
                .Subject = Left(objFile.Name, Len(objFile.Name) - (Len(objFileSystem.GetExtensionName(objFile.Name)) + 1))
                .Attachments.Add objFile.Path
                .Recipients.Add ("someone@datanumen.com")
                .Recipients.ResolveAll
                .Send
          End With
       Next
 
       'Prompt you when completing sending
       MsgBox "All done!", vbOKOnly + vbExclamation
    End If
End Sub

4. Derefter kan du køre denne makro på én gang. Bare tryk på "F5"-tasten.
5. Efterfølgende skal du vælge kilden til Windows-mappen i pop op-dialogboksen.
6. I sidste ende vil Outlook vedhæfte alle filerne i denne Windows-mappe for at adskille e-mails og sende mails til den foruddefinerede modtager.
7. Når det er færdigt, vil du få en besked, der spørger "Alt gjort!".

Hold øje med Outlook Health

Selvom Outlook er blevet udråbt som den mest populære e-mailklient på markedet, har den stadig en fatal svaghed. Det er dens sårbarhed. Med andre ord er Outlook tilbøjelig til diverse fejl og korruption. Derfor skal du lægge stor vægt på din Outlook-sundhed og beskytte den mod skader. Derudover skal du sikkerhedskopiere dine Outlook-filer med jævne mellemrum. Derudover anbefales det at få fat i et PST-reparationsværktøj, som f.eks. DataNumen Outlook Repair. Det kan reparere Outlook problemer uden besvær.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com