Vihje: Muut kielet ovat Google-käännettyjä. Voit vierailla English tämän linkin versio.
Kirjaudu
x
or
x
x
Rekis.
x

or

Miten tuodaan msg-tiedostoja tiedostojärjestelmästä Outlook-kansioon?

Normaalisti voit tuoda MSG-tiedostoja tiedostojärjestelmästä Outlook-kansioon vetämällä ja pudottamalla. Tässä artikkelissa näytämme sinulle helpon tavan tuoda kaikki msg-tiedostot tiedostojärjestelmästä määritettyyn Outlook-kansioon yksityiskohtaisesti.

Tuo MSM-tiedostot tiedostojärjestelmästä Outlook-kansioon, jossa on VBA-koodi


Tallentaa helposti valitut sähköpostit eri formaatiksi Outlookissa:

Kutools for Outlookin Save as File -apuohjelmalla voit helposti tallentaa useita valittuja sähköpostiviestejä yksittäiseen HTML-muotoiseen tiedostoon, TXT-muotoiseen tiedostoon, Word-asiakirjaan, CSV-tiedostoon ja PDF-tiedostoon Outlookissa.

Kutools for Outlook: enemmän kuin 40 kätevä Outlook-apuohjelmat, voit kokeilla rajoituksia 45-päivinä. Lataa ja kokeile nyt!


Tuo MSM-tiedostot tiedostojärjestelmästä Outlook-kansioon, jossa on VBA-koodi

Tee seuraavasti, tuodaksesi MSP-tiedostot tiedostojärjestelmästä Outlookin määritettyyn kansioon.

1. paina muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Vuonna Microsoft Visual Basic for Applications -ikkunassa liite > Moduulit. Kopioi VBA-koodin alla sitten Moduuli-ikkunaan.

VBA-koodi: Tuo MSM-tiedostot tiedostojärjestelmästä Outlook-kansioon

Sub ImportMessagesInFolder () Dim xFSO kuten Scripting.FileSystemObject Dim xSourceFld kuin scripting.Folder Dim xSourceFldPath kuin merkkijono Dim xFileItem kuin scripting.File Dim xMSG kuin objekti Dim xMailItem kuin MailItem Dim xSaveFld Kuten Outlook.Folder On Virhe Jatka Seuraava Set xFSO = New Scripting. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application") BrowseForFolder (0, "Valitse kansio:", 0, 0) Jos ei TypeName (xSelFolder) = "Ei mitään" Sitten xSourceFldPath = xSelFolder.self.Path + Elle xSourceFldPath = "" Exit Sub End Jos aseta xSourceFld = xFSO.GetFolder (xSourceFldPath) Aseta xSaveFld = GetObject ("", "Outlook.Application") GetNamespace ("MAPI") PickFolder Jos TypeName (xSaveFld) = " Exit Sub End Jos jokainen xFileItem xSourceFld.Files Set xMSG = Session.OpenSharedItem (xFileItem.Path) Aseta xMailItem = xMSG.Copy xMailItem.Move xSaveFld Aseta xMailItem = Ei mitään xMSG.Delete Set xMSG = Ei mitään Seuraava xFileItem Set xFileItem = Ei mitään Aseta xSourceFld = Ei mitään Aseta xFSO = N othing End Sub

3. paina F5 avain koodin suorittamiseen. Avattu Selaa kansioon valintaikkuna, valitse kansio, johon MS-tiedostot tuodaan Outlook-kansioon, ja napsauta sitten OK painiketta. Katso kuvakaappaus:

4. Nyt a Valitse kansio valintaikkuna avautuu, valitse näkymät kansio tallentaa tuodut msg-tiedostot ja napsauta OK painiketta.

Sitten kaikki tiedostojärjestelmässä tietyssä kansiossa olevat msg-tiedostot tuodaan välittömästi määritettyyn Outlook-kansioon.


Aiheeseen liittyviä artikkeleita:



Suositeltavat tuottavuustyökalut

Office-välilehti

kulta star1 Tuo kätevät välilehdet Exceliin ja muihin Office-ohjelmistoihin, kuten Chrome, Firefox ja uusi Internet Explorer.

Kutools for Excel

kulta star1 Hämmästyttävä! Lisää tuottavuutta 5 minuutissa. Älä tarvitse mitään erikoistaitoja, paitsi kaksi tuntia päivässä!

kulta star1 300 Excelin uudet ominaisuudet, Excelin ansiosta helppo ja tehokas:

  • Yhdistä solu / rivit / sarakkeet ilman tietojen menettämistä.
  • Yhdistä ja yhdistä useita arkkeja ja työkirjoja.
  • Vertaa alueita, kopioi useita alueita, muuntaa tekstin päivämäärän, yksikön ja valuutan muuntamisen.
  • Laske värit, hakulausekartat, Advanced Sort ja Super Filter,
  • Lisää Valitse / Lisää / Poista / Teksti / Muoto / Link / Kommentti / Työkirjat / Työtaso Työkalut ...

Kutools for Excel -näyttö

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amey Thombre · 10 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.