InputBox for variable folder

[Bamerand]

I was able to locate a nice piece of code, can anyone help to modify it so that Set Folder = GetFolder("\\mymail@domain.com\Inbox\Training") I could place variable folder? For instance, I tried Set Folder = GetFolder.InputBox() but this function does not work in case! Please advise what can be done so that instead of constant folder I could go to variable folder.

Here is the code.

Function GetFolder(ByVal FolderPath As String) As Outlook.Folder
Dim TestFolder As Outlook.Folder
Dim FoldersArray As Variant
Dim i As Integer
On Error GoTo GetFolder_Error
If Left(FolderPath, 2) = "\\" Then
FolderPath = Right(FolderPath, Len(FolderPath) - 2)
End If
'Convert folderpath to array
FoldersArray = Split(FolderPath, "\")
Set TestFolder = Application.Session.Folders.Item(FoldersArray(0))
If Not TestFolder Is Nothing Then
For i = 1 To UBound(FoldersArray, 1)
Dim SubFolders As Outlook.Folders
Set SubFolders = TestFolder.Folders
Set TestFolder = SubFolders.Item(FoldersArray(i))
If TestFolder Is Nothing Then
Set GetFolder = Nothing
End If
Next
End If
'Return the TestFolder
Set GetFolder = TestFolder
Exit Function
GetFolder_Error:
Set GetFolder = Nothing
Exit Function
End Function

Sub TestGetFolder()
Dim Folder As Outlook.Folder
Set Folder = GetFolder("\\mymail@domain.com\Inbox\Training")
If Not (Folder Is Nothing) Then
Folder.Display
End If
End Sub

 

[Diane Poremsky]

So you want to use the folder picker to select the folder?

 

[Bamerand]

Yes, Diana, that is exactly what I need! How can I do that?

 

[Diane Poremsky]

see How to use Windows filepaths in a macro - get the browseforfolder function.

 

[Bamerand]

Dear Diana,

Thanks for the provided code, however, I think I misinterpreted on the requirement. See the included code and attached screenshot I took. When the code shoots off, MS Outlook activates Oracle subfolder, which is located under Inbox in my account. What I wish, instead of changing the destination folder in the line “\\mymail@domain.com\Inbox\Oracle”, a pop-up window, similar to InputBox pops up and I could put the full path of the email folder / subfolder, for instance, “\\mymail@domain.com\Sent\Invoices”. I hope this time I made it clear.

 

[Bamerand]

Sub TestGetFolder()
Dim Folder As Outlook.Folder
Set Folder = GetFolder("\\mymail@domain.com\Inbox\Inbox\Oracle")
If Not (Folder Is Nothing) Then
Folder.Display
End If
End Sub

I forgot to add the code.

 

[Diane Poremsky]

Dear Diana,

Thanks for the provided code, however, I think I misinterpreted on the requirement. See the included code and attached screenshot I took. When the code shoots off, MS Outlook activates Oracle subfolder, which is located under Inbox in my account. What I wish, instead of changing the destination folder in the line “\\mymail@domain.com\Inbox\Oracle”, a pop-up window, similar to InputBox pops up and I could put the full path of the email folder / subfolder, for instance, “\\mymail@domain.com\Sent\Invoices”. I hope this time I made it clear.

so you just want to type the path in?

use the inputbox to set a variable then use the variable in the path -
Set Folder = GetFolder(myFolder)

if you want the mailbox name to be preselected and just the path entered, you can do that to - use "\\mymail@domain.com\" & myFolder

if you want to make this macro work for anyone's default mailbox, you can get their default mailbox path - or if it's always under the inbox, get their default inbox and set it as a variable too - so you'd use myMailbox & myFolder in the path. See Working with VBA and non-default Outlook Folders for examples.

 

[Bamerand]

Dear Diana,

Thanks, that was indeed helpful!