提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何將msg文件從文件系統導入Outlook文件夾?

通常,您可以通過拖放將msg文件從文件系統導入到Outlook文件夾。 在本文中,我們將向您展示一種簡單的方法,將詳細介紹從文件系統導入所有msg文件到指定的Outlook文件夾。

使用VBA代碼將msg文件從文件系統導入Outlook文件夾


在Outlook中輕鬆將選定的電子郵件保存為不同的格式文件:

使用Kutools for Outlook的另存為文件實用程序,您可以輕鬆地將多個選定的電子郵件保存為單獨的HTML格式文件,TXT格式文件,Word文檔,CSV文件以及Outlook中的PDF文件,如下面的屏幕截圖所示。

Kutools for Outlook:比40更方便的Outlook加載項,可以在45天免費試用。 下載並免費試用現在!


使用VBA代碼將msg文件從文件系統導入Outlook文件夾

請按照以下步驟將msg文件從文件系統導入Outlook中的指定文件夾。

1。 按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊。 然後將VBA代碼複製到模塊窗口中。

VBA代碼:將msg文件從文件系統導入Outlook文件夾

Sub ImportMessagesInFolder()Dim xFSO As Scripting.FileSystemObject Dim xSourceFld As Scripting.Folder Dim xSourceFldPath As String Dim xFileItem As Scripting.File Dim xMSG As Object Dim xMailItem As MailItem Dim xSaveFld As Outlook.Folder On Error Resume Next Set xFSO = New Scripting。 FileSystemObject Set xSelFolder = CreateObject(“Shell.Application”)。BrowseForFolder(0,“Select a folder:”,0,0)如果不是TypeName(xSelFolder)=“Nothing”那麼xSourceFldPath = xSelFolder.self.Path +“\”其他xSourceFldPath =“”退出子結束如果設置xSourceFld = xFSO.GetFolder(xSourceFldPath)設置xSaveFld = GetObject(“”,“Outlook.Application”)。GetNamespace(“MAPI”)。PickFolder如果TypeName(xSaveFld)=“Nothing”然後退出子結束如果對於xSourceFld.Files中的每個xFileItem設置xMSG = Session.OpenSharedItem(xFileItem.Path)設置xMailItem = xMSG.Copy xMailItem.Move xSaveFld設置xMailItem = Nothing xMSG.Delete設置xMSG = Nothing Next xFileItem Set xFileItem = Nothing設置xSourceFld = Nothing設置xFSO = N 沒有End Sub

3。 按 F5 鍵來運行代碼。 在開幕式上 瀏覽文件夾 對話框中,選擇包含將導入到Outlook文件夾的msg文件的文件夾,然後單擊 OK 按鈕。 看截圖:

4。 現在一個 選擇“文件夾” 彈出對話框,請選擇一個 Outlook 保存導入的msg文件的文件夾,然後單擊 OK 按鈕。

然後將文件系統中某個文件夾中的所有msg文件立即導入到指定的Outlook文件夾中。


相關文章:


Excel生產力工具

Excel功能區(安裝了Kutools for Excel)

300 +高級功能通過70%提高您的工作效率,並幫助您脫穎而出!

您想快速完美地完成日常工作嗎? Kutools For Excel 帶來 300 +酷炫強大的高級功能 (合併工作簿,按顏色求和,拆分單元格內容,轉換日期等等) 1500 +工作場景,幫你解決 80%Excel問題.

  • 在幾秒鐘內處理所有復雜的任務,有助於提高您的工作能力從激烈的競爭中獲得成功,從不擔心被解僱。
  • 節省大量的工作時間,為您留下充足的時間來愛和關愛家庭,享受舒適的生活.
  • 每天減少數千次鍵盤和鼠標點擊,減輕疲勞的眼睛和手,給你一個健康的身體。
  • 成為3分鐘的Excel專家,從同事或朋友那裡獲得欽佩之情.
  • 不再需要記住任何痛苦的公式和VBA代碼,擁有一個輕鬆愉快的心靈,給你一個前所未有的快感。
  • 僅花費$ 39,但價值超過其他人的4000培訓。 被110,000精英和300 +知名公司使用。
  • 60天無限免費試用。 60天退款保證。 免費升級和支持2年。 買一次,永遠使用。
  • 改變你現在的工作方式,立即給你更好的生活!

Office選項卡為Office(包括Excel)提供高效且便捷的選項卡,就像Chrome,Firefox和新IE一樣

  • 查看和編輯多個文檔時,可將您的工作效率提高50%。
  • 每天為您減少數百次鼠標點擊,告別鼠標手。
  • 在同一窗口的新選項卡中打開並創建文檔,而不是在新窗口中創建。
  • 幫助您更快速,更輕鬆地脫穎而出! 一秒鐘在幾十個打開的文件之間切換!
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 · 11 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.