Option Compare Database
Private Sub MailFolder_Browse_Click()
Dim MailFolderDiag As FileDialog
Set MailFolderDiag = Application.FileDialog(msoFileDialogFolderPicker)
With MailFolderDiag
.AllowMultiSelect = False
.Show
End With
Me.MailFolder.Value = MailFolderDiag.SelectedItems(1)
Dim...