title image


Smiley Re: Prüfen, ob Outlook geöffnet ist
Egal welche version....

Egal welches Produkt :)







Function IsOffice97PgmLoad(Programm As String) As Boolean

'*********************

' Stellt fest, ob eines der Office 97 Programme geladen ist

' Programm = Access, OfficeBinder, Excel, Graph, PowerPoint, Office, Outlook, Word

' Aufruf z.B: If IsOffice97PgmLoad("Word") Then ...

' Derivat aus Auto97.hlp von KObd

'*********************

'

' Eingebund. Programm

'Programmname Vers Referenz Class Class Name

'------------------------------------------------------------------------------

'Microsoft Access 97 MSACC8.OLB Access Access 8.0 Object Library

'Microsoft Binder 97 MSBDR8.OLB OfficeBinder Binder 8.0 Object Library

'Microsoft Excel 97 EXCEL8.OLB Excel Excel 8.0 Object Library

'Microsoft Graph 97 GRAPH8.OLB Graph Graph 8.0 Object Library

'Microsoft PowerPoint 97 MSPPT8.OLB PowerPoint PowerPoint 8.0 Object Library

'Microsoft Office 97 MSO97.DLL Office Office 8.0 Object Library

'Microsoft Outlook 97 MSOUTL8.OLB Outlook Outlook 8.0 Object Library

'Microsoft Outlook 98 MSOUTL85.OLB Outlook Outlook 98 - Objekt Modell

'Microsoft Word 97 MSWORD8.OLB Word Word 8.0 Object Library



Dim Obj As Object



On Error Resume Next



IsOffice97PgmLoad = False

Set Obj = GetObject(, Programm & ".Application.8") ' nach "Programm" suchen

IsOffice97PgmLoad = (Err.Number = 0)

Set Obj = Nothing



End Function





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: