Mẹo: Các ngôn ngữ khác được Dịch bởi Google. Bạn có thể ghé thăm English phiên bản của liên kết này.
Đăng nhập
x
or
x
x
Ghi danh
x

or

Làm thế nào để nhập tập tin msg từ hệ thống tập tin vào thư mục Outlook?

Thông thường, bạn có thể nhập tập tin msg từ hệ thống tập tin vào một thư mục Outlook bằng cách kéo và thả. Trong bài này, chúng tôi sẽ giới thiệu cho bạn một phương pháp dễ dàng để nhập các tập tin msg từ một hệ thống tập tin vào một thư mục Outlook cụ thể chi tiết.

Nhập tập tin msg từ hệ thống tập tin vào thư mục Outlook với mã VBA


Dễ dàng lưu các email đã chọn dưới dạng các tệp định dạng khác nhau trong Outlook:

Với tiện ích Lưu dưới dạng tệp của Kutools cho Outlook, bạn có thể dễ dàng lưu nhiều email được chọn, tệp định dạng HTML riêng lẻ, tệp định dạng TXT, tài liệu Word, tệp CSV cũng như tệp PDF trong Outlook như hình bên dưới.

Kutools cho Outlook: với hơn 40 tiện ích Outlook add-ins, miễn phí để thử mà không có giới hạn trong 45 ngày. Tải xuống và dùng thử ngay bây giờ!


Nhập tập tin msg từ hệ thống tập tin vào thư mục Outlook với mã VBA

Vui lòng làm như sau để nhập tập tin msg từ hệ thống tập tin vào một thư mục chỉ định trong Outlook.

1. Nhấn nút Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép mã VBA bên dưới vào cửa sổ Module.

Mã VBA: Nhập tệp tin msg từ hệ thống tệp vào thư mục Outlook

Sub ImportMessagesInFolder () Dim xFSO Như Scripting.FileSystemObject Dim xSourceFld Như Scripting.Folder Dim xSourceFldPath Như String Dim xFileItem Như Scripting.File Dim xmsG Như đối tượng Dim xMailItem Như MailItem Dim xSaveFld Như Outlook.Folder Trên Lỗi Lặp lại Tiếp theo Đặt xFSO = Mới Scripting. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application") BrowseForFolder (0, "Chọn một thư mục:", 0, 0) Nếu Không TypeName (xSelFolder) = "Không có gì" Sau đó xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Thoát khỏi Sub End Nếu Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Đặt xSaveFld = GetObject ("", "Outlook.Application") GetNamespace ("MAPI") ChọnFolder Nếu TypeName (xSaveFld) = "Không có gì" Sau đó thoát Sub End Nếu Đối với Mỗi xFileItem Trong xSourceFld.Files Đặt xMSG = Session.OpenSharedItem (xFileItem.Path) Đặt xMailItem = xMSG.Copy xMailItem.Move xSaveFld Đặt xMailItem = Không có gì xMSG.Delete Đặt xMSG = Không có gì xFileItem tiếp theo Đặt xFileItem = Không có gì Đặt xSourceFld = Không có gì set xFSO = N othing Kết thúc Sub

3. Nhấn nút F5 phím để chạy mã. Trong phần mở đầu Chọn thư mục hộp thoại, chọn thư mục chứa tập tin msg bạn sẽ nhập vào thư mục Outlook, và sau đó nhấp vào OK nút. Xem ảnh chụp màn hình:

4. Bây giờ Chọn thư mục hộp thoại bật lên, hãy chọn một Outlook thư mục lưu tệp nhập văn bản nhập và nhấp vào OK nút.

Sau đó, tất cả các tập tin msg trong một thư mục nhất định trong hệ thống tập tin của bạn sẽ được nhập vào một thư mục Outlook chỉ định ngay lập tức.


Các bài liên quan:


Công cụ năng suất Excel

Ribbon của Excel (đã cài đặt Kutools cho Excel)

300 + Các tính năng nâng cao giúp tăng năng suất của bạn lên 70% và giúp bạn nổi bật hơn trước đám đông!

Bạn có muốn hoàn thành công việc hàng ngày của bạn một cách nhanh chóng và hoàn hảo? Kutools cho Excel mang đến 300 + các tính năng tiên tiến mạnh mẽ và tuyệt vời (Kết hợp sổ làm việc, tổng hợp theo màu sắc, chia nội dung ô, chuyển đổi ngày, v.v.) cho 1500 + kịch bản làm việc, giúp bạn giải quyết Vấn đề 80% Excel.

  • Xử lý tất cả các nhiệm vụ phức tạp trong vài giây, giúp tăng cường khả năng làm việc của bạn, có được thành công từ cuộc cạnh tranh khốc liệt, và không bao giờ lo lắng về việc bị sa thải.
  • Tiết kiệm nhiều thời gian làm việc, dành nhiều thời gian để bạn yêu thương và chăm sóc gia đình và tận hưởng cuộc sống thoải mái ngay bây giờ.
  • Giảm hàng ngàn lần nhấp chuột và bàn phím mỗi ngày, giảm bớt đôi mắt và bàn tay mệt mỏi của bạn, và cung cấp cho bạn một cơ thể khỏe mạnh.
  • Trở thành một chuyên gia Excel trong vài phút 3 và nhận được cái nhìn ngưỡng mộ từ đồng nghiệp hoặc bạn bè của bạn.
  • Không còn cần phải nhớ bất kỳ công thức đau đớn và mã VBA, có một tâm trí thư giãn và dễ chịu, mang đến cho bạn cảm giác hồi hộp mà bạn chưa từng có trước đây.
  • Chỉ chi $ 39, nhưng trị giá hơn đào tạo $ 4000 của người khác. Được sử dụng bởi giới tinh hoa 110,000 và 300 + các công ty nổi tiếng.
  • Dùng thử miễn phí không giới hạn ngày 60. Bảo đảm hoàn lại tiền trong ngày. Nâng cấp miễn phí và hỗ trợ cho các năm 60. Mua một lần, sử dụng mãi mãi.
  • Thay đổi cách bạn làm việc bây giờ, và cho bạn một cuộc sống tốt hơn ngay lập tức!

Tab Office mang lại các tab hiệu quả và tiện dụng cho Office (bao gồm Excel), giống như Chrome, Firefox và IE mới

  • Tăng năng suất của bạn bằng 50% khi xem và chỉnh sửa nhiều tài liệu.
  • Giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày, nói lời tạm biệt với bàn tay chuột.
  • Mở và tạo tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Giúp bạn làm việc nhanh hơn và dễ dàng nổi bật giữa đám đông! Một giây để chuyển đổi giữa hàng tá tài liệu đang mở!
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.