![]() LCurrentItemsCount = lCurrentItemsCount + Sub LoopFolders(ByVal objCurrentFolder As Outlook.folder, lCurrentItemsCount As Long) MsgBox "There are " & lItemsCount & " items in the " & objMainFolder.Name & " folder Including its subfolders.", vbInformation, "Count Items" ![]() ![]() ![]() MsgBox "You choose select a valid folder!", vbExclamation + vbOKOnly, "Warning for Pick Folder"Ĭall LoopFolders(objMainFolder, lItemsCount) ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |