Kuinka erä lähettää kaikki tiedostot Windows-kansioon erillisten Outlook-sähköpostiviestien kautta

Jos haluat lähettää kaikki Windows-kansion tiedostot yksittäisten Outlook-sähköpostiviestien kautta jollekulle, voit käyttää tässä artikkelissa esitettyä menetelmää. Se käyttää VBA-koodia, joka on varsin tehokas.

Luettuani edellisen artikkelin - “3 nopeaa tapaa liittää kaikki paikallisen kansion tiedostot Outlook-sähköpostiin”, Jotkut käyttäjät haluavat lähettää kaikki tiedostot paikalliseen kansioon erillisinä sähköposteina. Tavallisesti sinun on luotava sähköposteja ja liitettävä tiedostot yksitellen. Se on melko hankalaa. Siksi seuraavissa esitellään sinulle tehokkaampi tapa.

Erä lähettää kaikki tiedostot Windows-kansioon erillisten sähköpostien kautta

1. Käynnistä ensin Outlook-ohjelmasi.
2. Avaa sitten Outlookissa VBA-editori artikkeliin viitaten -Kuinka suorittaa VBA-koodi Outlookissa".
3. Kopioi ja liitä seuraavaksi seuraava VBA-koodi projektiin tai moduuliin.

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. Sen jälkeen voit suorittaa tämän makron kerralla. Paina vain “F5” -näppäintä.
5. Tämän jälkeen sinun on valittava Windows-lähdekansio ponnahdusikkunasta.
6. Viime kädessä Outlook liittää kaikki tämän Windows-kansion tiedostot erillisiin sähköposteihin ja lähettää sähköpostit ennalta määritetylle vastaanottajalle.
7. Kun se on valmis, saat viestin, joka kehottaa "Kaikki valmis!".

Pidä silmällä Outlook Healthia

Vaikka Outlookia on mainostettu markkinoiden suosituimpana sähköpostiohjelmana, siinä on silti kohtalokas heikkous. Se on sen haavoittuvuus. Toisin sanoen Outlook on altis erilaisille virheille ja vioittumiselle. Siksi sinun on kiinnitettävä suurta huomiota Outlookin terveyteen ja suojattava sitä vaurioilta. Lisäksi sinun on varmuuskopioitava Outlook-tiedostosi säännöllisesti. On myös suositeltavaa hankkia PST-korjaustyökalu, kuten DataNumen Outlook Repair. Se voi korjata Outlook ongelmat.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com