hallo,
wenn ich was in Outlook mit Makros abspeicher öffnet sich ein Browse Folder (Code siehe unten) Dieser ist allerdings sehr limitiert. Ich hätte gerne eine Übersicht mit angehefteten Ordnern und die Ordner auf die zuletzt zugegriffen wurde. Ich möchte ganz einfach nicht jedes Mal 20 Klicks machen müssen um den entsprechenden Ordner zu erreichen.
Wäre super wenn ihr mir helfen könntet. Danke
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260
Private Type BrowseInfo
hwndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Public Sub ExportEmailToDrive()
Const PROCNAME As String = "ExportEmailToDrive"
On Error GoTo ErrorHandler
Dim myExplorer As Outlook.Explorer
Dim myfolder As Outlook.MAPIFolder
Dim myItem As Object
Dim olSelection As Selection
Dim strBackupPath As String
Dim intCountAll As Integer
Dim intCountFailures As Integer
Dim strStatusMsg As String
Dim vSuccess As String
Dim strTemp1 As Variant
Dim strTemp2 As String
Dim strErrorMsg As String
|