Thema Datum  Von Nutzer Rating
Antwort
Rot Browse Folder erstellen mit angehefteten Ordnern
02.02.2021 13:45:50 Nico
NotSolved
02.02.2021 16:58:20 volti
NotSolved

Ansicht des Beitrags:
Von:
Nico		 Datum:
02.02.2021 13:45:50		 Views:
734		 Rating:
     
Antwort:
  Ja
Thema:
Browse Folder erstellen mit angehefteten Ordnern

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Browse Folder erstellen mit angehefteten Ordnern
02.02.2021 13:45:50 Nico
NotSolved
02.02.2021 16:58:20 volti
NotSolved