thảo luận Ebook VBA cho Outlook bản gốc + bản dịch cho những anh em quan tâm

khodattenqua said:

Với m đang tìm cách
Mỗi lần mở oulook , có cách nào sổ hết folder ra không nhỉ?
Hiện vẫn làm thủ công, nhiều khi Mail tới
Do rule mà nó nhảy vào folder
Lỡ quên là bị bỏ lỡ mail liền

Click to expand...

NguyenDang95 said:

Cụ thể là thím muốn mở những thư mục nào khi khởi động Outlook?

Click to expand...

khodattenqua said:

Với m đang tìm cách
Mỗi lần mở oulook , có cách nào sổ hết folder ra không nhỉ?
Hiện vẫn làm thủ công, nhiều khi Mail tới
Do rule mà nó nhảy vào folder
Lỡ quên là bị bỏ lỡ mail liền

Click to expand...

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

NguyenDang95 said:

Thế thì thím thử dùng macro này xem sao.
Cái này mình thấy trên trang https://www.datanumen.com/blogs/how-to-auto-expand-all-folders-via-vba-when-starting-your-outlook/#:~:text=Auto Expand All Folders when,Outlook to access VBA editor.

Code:

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

Nhớ đưa macro này vào mục ThisOutlookSession trong cửa sổ VBE nhé.

Click to expand...

NguyenDang95 said:

Cập nhật: Cuối cùng sau ba tháng miệt mài, cuối cùng mình đã dịch xong cuốn sách này. Tuy nhiên có một số điều cần lưu ý như sau:
Bản dịch này không dịch:
1. Mục 22.5 Internal scripting with folder home pages:
Thời điểm hiện tại, tính năng Home Page của thư mục đã lỗi thời. Microsoft đã vô hiệu hóa tính năng này kể từ phiên bản Outlook 2016 vì lý do bảo mật.
2. Chương 24 Generating reports on Outlook Data:
Chương này thực hành là chủ yếu, bên cạnh đó còn bổ sung một số kiến thức VBA cơ bản về Excel và Word để làm báo cáo từ dữ liệu trong Outlook
(vd: Đối tượng Range, Workbook, Worksheet của Excel, các đối tượng Content Control như Text Box Content Control, Combo Box Content Control của Word, v.v...)

View attachment 1385543

Trong quá trình đọc tài liệu, nếu phát hiện thấy lỗi sai về mặt ngữ nghĩa, sai bản dịch hay cần giải đáp những nội dung trong tài liệu, các thím vui lòng để lại bình luận trong thread này.
Cảm ơn mọi người đã quan tâm.

Click to expand...

NauQ.T said:

Bác có tài liệu học PBI tiếng việt không cho mình xin với, mình đang đọc bảng tiếng anh mà có nhiều chổ chưa hiểu lắm.

Click to expand...

NguyenDang95 said:

Trong quá trình học, lập trình VBA trong Outlook, việc nắm được các thuộc tính MAPI là điều rất quan trọng. Lần này mình xin chia sẻ một tool nhỏ giúp tra cứu thông tin về các thuộc tính MAPI một cách thuận tiện. Công cụ này sử dụng nguồn tài liệu từ trang Microsoft Learn.
View attachment 1876114

Click to expand...