Så här satsar du alla filer i en Windows-mapp via separata Outlook-e-postmeddelanden

Om du vill skicka alla filer i en Windows-mapp via enskilda Outlook-e-postmeddelanden till någon kan du använda metoden som introduceras i den här artikeln. Det använder VBA-kod, vilket är ganska effektivt.

Efter att ha läst min tidigare artikel - “3 snabba metoder för att bifoga alla filer i en lokal mapp till en Outlook-e-post”, Vill vissa användare skicka alla filer i en lokal mapp via separata e-postmeddelanden. På vanligt sätt bör du skapa e-postmeddelanden och bifoga filerna en efter en. Det är ganska besvärligt. Därför kommer vi i det följande att presentera ett mer effektivt sätt för dig.

Batch Skicka alla filer i en Windows-mapp via separata e-postmeddelanden

1. Först och främst, starta ditt Outlook-program.
2. Öppna sedan VBA-redigeraren i Outlook med hänvisning till artikeln - “Hur du kör VBA-kod i din Outlook".
3. Kopiera sedan och klistra in följande VBA-kod i ett projekt eller en 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. Därefter kan du köra detta makro på en gång. Tryck bara på knappen “F5”.
5. Därefter skulle du behöva välja Windows-källmappen i popup-dialogrutan.
6. I slutändan kommer Outlook att bifoga alla filer i den här Windows-mappen för att separera e-postmeddelanden och skicka e-post till den fördefinierade mottagaren.
7. När det är klart får du ett meddelande som frågar ”Allt klart!”.

Håll koll på Outlook Health

Även om Outlook har utropats till den populäraste e-postklienten på marknaden, har den fortfarande en allvarlig brist. Det är dess sårbarhet. Med andra ord är Outlook benäget för diverse fel och korruption. Därför måste du lägga stor vikt vid din Outlook-hälsa och skydda den från skador. Dessutom måste du säkerhetskopiera dina Outlook-filer regelbundet. Dessutom rekommenderas det att du skaffar ett PST-fixeringsverktyg, som DataNumen Outlook Repair. Det kan reparera Outlook problem utan problem.

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 sql fix och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com