Slik batchsender du alle filer i en Windows-mappe via separate Outlook-e-poster

Hvis du ønsker å sende alle filene i en Windows-mappe via individuelle Outlook-e-poster til noen, kan du bruke metoden introdusert i denne artikkelen. Den bruker VBA-kode, som er ganske effektiv.

Etter å ha lest min forrige artikkel - "3 raske metoder for å legge ved alle filer i en lokal mappe til en Outlook-e-post”, vil noen brukere sende alle filene i en lokal mappe via separate e-poster. På vanlig måte bør du lage e-poster og legge ved filene én etter én. Det er ganske plagsomt. Derfor vil vi i det følgende introdusere en mer effektiv måte for deg.

Batch Send alle filer i en Windows-mappe via separate e-poster

1. Først av alt, start Outlook-programmet ditt.
2. Deretter, i Outlook, får du tilgang til VBA-editoren med henvisning til artikkelen - "Hvordan kjøre VBA-kode i Outlook".
3. Deretter kopierer og limer du inn følgende VBA-kode i et prosjekt 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. Etter det kan du kjøre denne makroen med en gang. Bare trykk på "F5"-tasten.
5. Deretter må du velge Windows-kilden i popup-dialogboksen.
6. Til syvende og sist vil Outlook legge ved alle filene i denne Windows-mappen for å skille e-poster og sende e-postene til den forhåndsdefinerte mottakeren.
7. Når den er ferdig, vil du få en melding som ber "Alt gjort!".

Hold et øye med Outlook Health

Selv om Outlook har blitt omtalt som den mest populære e-postklienten på markedet, har den fortsatt en fatal svakhet. Det er sårbarheten. Med andre ord er Outlook utsatt for diverse feil og korrupsjon. Derfor må du legge stor vekt på Outlook-tilstanden din og beskytte den mot skade. I tillegg må du sikkerhetskopiere Outlook-filene dine med jevne mellomrom. Dessuten anbefales det å få tak i et PST-reparasjonsverktøy, som for eksempel DataNumen Outlook Repair. Det kan reparere Outlook problemer uten problemer.

Forfatterintroduksjon:

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