If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
#1
|
|||
|
|||
Browse Dialog Box
Thanks for taking the time to ready my question.
I have a sub that helps me save an e-mail message to a folder on my computer. What I have to do at the moment is type the full path into an InputBox. What I'd like to do is have a dialog box pop up that has a browse button on it. I can do this in MS Access, and copied my code over, but it doesn't work in Outlook. Does anyone know where I might find this type of code so I can use it in Outlook? Here is what I use in Access: Option Compare Database Option Explicit '************** Code Start ************** 'This code was originally written by Terry Kreft. 'It is not to be altered or distributed, 'except as part of an application. 'You are free to use it in any application, 'provided the copyright notice is left unchanged. ' 'Code courtesy of 'Terry Kreft Private Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _ "SHGetPathFromIDListA" (ByVal pidl As Long, _ ByVal pszPath As String) As Long Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _ "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _ As Long Private Const BIF_RETURNONLYFSDIRS = &H1 Public Function BrowseFolder(szDialogTitle As String) As String Dim x As Long, bi As BROWSEINFO, dwIList As Long Dim szPath As String, wPos As Integer With bi .hOwner = hWndAccessApp .lpszTitle = szDialogTitle .ulFlags = BIF_RETURNONLYFSDIRS End With dwIList = SHBrowseForFolder(bi) szPath = Space$(512) x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath) If x Then wPos = InStr(szPath, Chr(0)) BrowseFolder = Left$(szPath, wPos - 1) Else BrowseFolder = vbNullString End If End Function '*********** Code End ***************** |
Ads |
#2
|
|||
|
|||
Browse Dialog Box
Other than the Option Compare Database that should work as well in Outlook
VBA as it does in Access VBA. What problems are you having with it? -- Ken Slovak [MVP - Outlook] http://www.slovaktech.com Author: Professional Programming Outlook 2007. Reminder Manager, Extended Reminders, Attachment Options. http://www.slovaktech.com/products.htm "Brad" wrote in message ... Thanks for taking the time to ready my question. I have a sub that helps me save an e-mail message to a folder on my computer. What I have to do at the moment is type the full path into an InputBox. What I'd like to do is have a dialog box pop up that has a browse button on it. I can do this in MS Access, and copied my code over, but it doesn't work in Outlook. Does anyone know where I might find this type of code so I can use it in Outlook? Here is what I use in Access: Option Compare Database Option Explicit '************** Code Start ************** 'This code was originally written by Terry Kreft. 'It is not to be altered or distributed, 'except as part of an application. 'You are free to use it in any application, 'provided the copyright notice is left unchanged. ' 'Code courtesy of 'Terry Kreft Private Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _ "SHGetPathFromIDListA" (ByVal pidl As Long, _ ByVal pszPath As String) As Long Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _ "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _ As Long Private Const BIF_RETURNONLYFSDIRS = &H1 Public Function BrowseFolder(szDialogTitle As String) As String Dim x As Long, bi As BROWSEINFO, dwIList As Long Dim szPath As String, wPos As Integer With bi .hOwner = hWndAccessApp .lpszTitle = szDialogTitle .ulFlags = BIF_RETURNONLYFSDIRS End With dwIList = SHBrowseForFolder(bi) szPath = Space$(512) x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath) If x Then wPos = InStr(szPath, Chr(0)) BrowseFolder = Left$(szPath, wPos - 1) Else BrowseFolder = vbNullString End If End Function '*********** Code End ***************** |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
How Can I Browse To Outlook Folder From Access VBA | Alan B. | Outlook - General Queries | 1 | February 1st 09 09:24 PM |
VPN and browse for attachment problem | T McShu | Outlook - Installation | 1 | September 19th 07 02:50 PM |
Internet Explorer won't browse | Bill DeShawn | Outlook Express | 2 | June 12th 07 03:30 PM |
Browse Won't Open in Find Message | Candy | Outlook Express | 6 | December 21st 06 12:50 AM |
Browse and select mail messages? | Fox via OfficeKB.com | Outlook and VBA | 1 | June 22nd 06 05:50 AM |