MS-Office-Forum

Zurück   MS-Office-Forum > Archive > Microsoft Access - Archiv > Microsoft Access - Archiv (2000)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 13.12.2000, 20:31   #1
Mathias
Neuer Benutzer
Neuer Benutzer
Traurig Speicherort einer Prorgrammbibliothek

Hallo,

ich möchte gerne den Speicherort der Programmbibliothek von Outlook aus der Registry auslesen. Könnte mir jemand mit einem (möglichst vollständigem) Code-Beispiel helfen? Im voraus vielen Dank.

Grüße
Mathias
Mathias ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.12.2000, 10:25   #2
Mike
MOF Profi
MOF Profi
Standard

Hallo Mathias,
versuch's doch mal mit dem Verweis (Im einem Modul: Menü Extras/Verweise) auf 'Microsoft Outlook 8.0 Object Library'. Damit hast du direkten Zugriff von Access aus.
Mike ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.12.2000, 13:53   #3
Mathias
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Mike,
genau um die Bibliothek geht es. Da nicht bei allen Rechnern auf unserem Netzwerk Outlook installiert ist, muß beim Öffnen der DB per VBA geprüft werden, ob die Programmbibliothek vorhanden ist und dann in Laufzeit ein entsprechender Verweis gesetzt werden. Da Outlook nicht bei jedem Rechner in anderen Verzeichnissen stehen kann, läßt sich das Vorhandensein nur zuverlässig über das Auslesen der Registry überprüfen. Dafür suche ich ein Beispiel.

Grüsse

Mathias
Mathias ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.12.2000, 15:48   #4
Mathias
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Suche

Hat sich erledigt dank der Know-how.mdb von Klaus Oberdallhof


Mathias ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.12.2000, 16:29   #5
Mike
MOF Profi
MOF Profi
Nachricht

Hier noch eine weitere Möglichkeit:
Code:

'---Posted by Dev Ashish---
'
'Find the associated EXE file
'
'(Q)    How can I find out the complete path to an executable?
'
'(A)    Pass the filename (not the exe file, but the document file) and its location to this function.

'*********** Code Start ************
Const cMAX_PATH = 260
Const ERROR_NOASSOC = 31
Const ERROR_FILE_NOT_FOUND = 2&
Const ERROR_PATH_NOT_FOUND = 3&
Const ERROR_BAD_FORMAT = 11&
Const ERROR_OUT_OF_MEM = 0

Private Declare Function apiFindExecutable Lib "shell32.dll" _
    Alias "FindExecutableA" _
    (ByVal lpFile As String, _
    ByVal lpDirectory As String, _
    ByVal lpResult As String) _
    As Long
    
Function fFindEXE(stFile As String, stDir As String) As String
'Usage Example:
'   ?fFindEXE("test.xls","c:\temp")
'
Dim lpResult As String
Dim lngRet As Long

    lpResult = Space(cMAX_PATH)
    lngRet = apiFindExecutable(stFile, stDir, lpResult)
    
    If lngRet > 32 Then
        fFindEXE = lpResult
    Else
        Select Case lngRet:
            Case ERROR_NOASSOC: fFindEXE = "Error: No Association"
            Case ERROR_FILE_NOT_FOUND: fFindEXE = "Error: File Not Found"
            Case ERROR_PATH_NOT_FOUND: fFindEXE = "Error: Path Not Found"
            Case ERROR_BAD_FORMAT:  fFindEXE = "Error: Bad File Format"
            Case ERROR_OUT_OF_MEM:  fFindEXE = "Error: Out of Memory"
        End Select
    End If
End Function
Mike ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:35 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.