Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!
Dim myolApp As Outlook.Application Dim myNameSpace As Outlook.NameSpace Dim myFolder As Outlook.MAPIFolder Dim found As Boolean Dim strFolderName As String 'specify the folder you are looking for strFolderName = "Inbox" found = False Set myolApp = GetObject(, "Outlook.Application") Set myNameSpace = myolApp.GetNamespace("MAPI") For i = 1 To (myNameSpace.Folders.Count) For j = 1 To (myNameSpace.Folders(i).Folders.Count) ' MsgBox myNameSpace.Folders(i).Folders(j).Name If myNameSpace.Folders(i).Folders(j) = strFolderName Then Set Application.ActiveExplorer.CurrentFolder = _ myNameSpace.Folders(i).Folders(j) Exit For End If Next If found = True Then Exit For Next If found = True Then MsgBox "Rune Lange Sen Bir ibnesin" Set myolApp = Nothing Set myNameSpace = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Exchange password change on mobile||2||111|
|Accidentally deleted Outlook data files. I restored from recycly bin, but Outlook can't find the files now.||12||139|
|Exchange 2013 - Using Thunderbird as client||3||84|
|Exchange 2010 permissions issue||8||31|
Join the community of 500,000 technology professionals and ask your questions.