Ide: Lòt lang yo se Google-tradui. Ou ka vizite a English vèsyon nan lyen sa a.
Ouvri yon sesyon
x
or
x
x
enskri
x

or

Ki jan yo enpòte dosye Msg soti nan sistèm dosye Outlook katab?

Nòmalman, ou ka enpòte dosye Msg soti nan sistèm dosye nan yon folder Outlook pa trenen ak jete. Nan atik sa a, nou pwal montre ou yon metòd fasil pou enpòte tout dosye Msg soti nan yon sistèm dosye nan yon dosye espesifye Outlook nan detay.

Import dosye Msg soti nan sistèm dosye Outlook katab ak Kòd VBA


Fasil sove Imèl chwazi kòm dosye fòma diferan nan pespektiv:

Avèk Save a kòm sèvis piblik File nan Kutools pou pespektiv, ou ka fasilman sove plizyè selil emailsas endividyèl HTML fòma dosye, dosye fòma TX, Dokiman Pawòl, dosye CSV kòm byen ke PDF dosye nan pespektiv kòm anba a Ekran te montre.

Kutools pou pespektiv: ak plis pase 40 sou la meni pespektiv ajoute-ins, gratis eseye pa gen okenn limit nan jou 45. Download ak gratis jijman Koulye a!


Import dosye Msg soti nan sistèm dosye Outlook katab ak Kòd VBA

Tanpri fè jan sa a nan enpòte dosye Msg soti nan sistèm dosye nan yon katab espesifye nan Outlook.

1. Peze la Alt + F11 kle yo louvri a Microsoft Visual Basic pou aplikasyon pou fenèt.

2. Nan Microsoft Visual Basic pou aplikasyon pou fenèt, klike Antre > Modil. Lè sa a, kopi anba a VBA kòd nan fenèt modil la.

VBA postal: Import dosye Msg soti nan sistèm dosye Outlook katab

Sub ImportMessagesInFolder () Dim xFSO Kòm Scripting.FileSystemObject Dim xSourceFld Kòm Scripting.Folder Dim xSourceFldPath Kòm String Dim xFileItem Kòm Scripts.File Dim xMSG Kòm objè Dim xMailItem Kòm MailItem Dim xSaveFld Kòm Outlook.Folder Sou Erè Kourikouloum-vite Next Set xFSO = Nouvo Scripting. FileSystemObject Mete xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Chwazi yon katab:", 0, 0) Si Non TypeName (xSelFolder) = "Pa gen anyen" Lè sa a xSourceFldPath = xSelFolder.self.Path + "\ Sonje xSourceFldPath = "" Fen fen sòti si yo mete xSourceFld = xFSO.GetFolder (xSourceFldPath) Mete xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). Lè sa a, sòti fen fen si pou chak xFileItem nan xSourceFld.Files Mete xMSG = Sesyon.OpenSharedItem (xFileItem.Path) Mete xMailItem = xMSG.Copy xMailItem.Move xSaveFld Mete xMailItem = Pa gen anyen xMSG.Delete Mete xMSG = Pa gen anyen Next xFileItem Mete xFileItem = Pa gen anyen Mete xSourceFld = Pa gen anyen Mete xFSO = N Pa gen anyen Fen Sub

3. Peze la F5 kle nan kouri kòd la. Nan ouvèti a Browse pou Dosye bwat dyalòg, chwazi katab la gen dosye yo msg ou pral enpòte pespektiv katab, ak Lè sa a klike sou la OK bouton. Al gade nan Ekran:

4. Koulye a, a Chwazi Dosye bwat dyalòg Pops leve, tanpri chwazi yon pespektiv folder pou konsève pou enpòte dosye yo msg, epi klike sou la OK bouton.

Lè sa a, tout dosye msg nan yon katab sèten nan sistèm dosye ou yo enpòte nan yon dosye espesifye Outlook imedyatman.


Related articles:



Rekòmande Zouti Productivity

Biwo Tab

lò star1 Pote onglè sou lamen pou Excel ak lòt biwo lojisyèl, jis tankou Chrome, Firefox ak nouvo Internet Explorer.

Kutools pou Excel

lò star1 Etonan! Ogmante pwodiktivite ou nan minit 5. Pa bezwen okenn ladrès espesyal, sove de zè de tan chak jou!

lò star1 300 karakteristik nouvo pou Excel, fè Excel anpil fasil ak pwisan:

  • Rantre selilè / ranje / Kolòn san yo pa pèdi done.
  • Konbine ak Konsolide Pliye Plizyè ak Manyèl.
  • Konpare Range, Kopi plizyè chif, Konvèti tèks nan dat, inite ak konvèsyon lajan.
  • Konte pa Koulè, Paging subtotals, Avanse Triye ak Super Filter,
  • Plis Chwazi / Insert / Efase / Tèks / Fòma / Link / Kòmantè / Workbooks / Worksheets Zouti ...

Piki ekran nan Kutools pou Excel

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.