![]() ![]() OlTempFolderPath = olTempFolder.FolderPath Set olTempFolder = CurrentFolder.Folders(i) ' Loop through the items in the current folder.įor i = To 1 Step -1 Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder) ' clear the string so you can run it on another folder Set Fileout = fso.CreateTextFile(strPath, True, False) ![]() Set fso = CreateObject("Scripting.FileSystemObject") StrPath = Environ("USERPROFILE")
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |