Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.
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.
Join the community of 500,000 technology professionals and ask your questions.