Làm cách nào để mở thư mục Outlook cụ thể từ Excel?
Bạn đã bao giờ cố gắng mở một thư mục Outlook cụ thể từ tệp Excel, chẳng hạn như mở thư mục Hộp thư đến, thư mục Danh bạ hoặc bất kỳ thư mục nào khác chưa? Bài viết này, tôi sẽ nói về cách mở một thư mục Outlook mong muốn từ sổ làm việc Excel?
Mở thư mục Outlook cụ thể từ tệp Excel với mã VBA
Mở thư mục Outlook cụ thể từ tệp Excel với mã VBA
Mã VBA sau có thể giúp bạn mở một thư mục Outlook cụ thể từ trang tính Excel, hãy làm như sau:
1. Trong Excel, hãy giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.
Mã VBA: Mở một thư mục Outlook cụ thể từ tệp Excel:
Sub OpenOutlookFolder()
Dim xOutlookApp As Outlook.Application
Dim xNameSpace As Outlook.Namespace
Dim xFolder As Outlook.Folder
Dim xFolderType As OlDefaultFolders
On Error Resume Next
Set xOutlookApp = New Outlook.Application
Set xNameSpace = xOutlookApp.Session
Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
xFolder.Display
Set xFolder = Nothing
Set xNameSpace = Nothing
Set xOutlookApp = Nothing
Exit Sub
End Sub
Chú thích: Trong đoạn mã trên, bạn có thể thay đổi Hộp thư đến trong Đặt xFolder = xNameSpace.GetDefaultFolder (olFolderInbox) script vào bất kỳ tên thư mục nào khác mà bạn muốn mở.
3. Sau đó nhấn vào CÔNG CỤ > dự án trong Microsoft Visual Basic cho các ứng dụng cửa sổ, trong cửa sổ bật ra Tài liệu tham khảo-Dự án1 hộp thoại, kiểm tra Thư viện đối tượng Microsoft Outlook tùy chọn từ Tài liệu tham khảo có sẵn hộp danh sách, xem ảnh chụp màn hình:
4. Và sau đó, nhấp vào OK để đóng hộp thoại và nhấn F5 để chạy mã này và thư mục Outlook được chỉ định sẽ được mở ngay lập tức.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều 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.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!