title image


Smiley Du darfst dann aber auch keine Outlook-Konstanten oder -Objekte verwenden..
also nicht:



Dim oApp As New Outlook.Application, oNameSpace As Outlook.NameSpace

Set oNameSpace = oApp.GetNamespace("MAPI")

oApp.Explorers.Add oNameSpace.GetDefaultFolder(olFolderInbox), olFolderDisplayNormal

oApp.Explorers(1).Display





sondern



Private Const olFolderDisplayNormal = 0

Private Const olFolderInbox = 6

Dim oApp As Object, oNameSpace As Object

Set oApp = CreateObject("Outlook.Application")

Set oNameSpace = oApp.GetNamespace("MAPI")

oApp.Explorers.Add oNameSpace.GetDefaultFolder(olFolderInbox), olFolderDisplayNormal

oApp.Explorers(1).Display





Siehe auch unter "late binding" im Archiv.

Gruß aus dem Norden

Reinhard


Bitte immer die Access-Version angeben


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: