title image


Smiley ich habs...Ordner.Display war Schuld...
Moin moin,



ich habs...Ordner.Display war schuld



On Error Resume Next

Err.Clear



Dim MeineOlApp As Outlook.Application

Dim OlNameSpace As Outlook.NameSpace

Dim MeinOrdner As MAPIFolder

Dim Ordner As MAPIFolder



Set MeineOlApp = Outlook.Application



If Err Then

Err.Clear

Set MeineOlApp = GetObject("Outlook.Application")

End If



Set OlNameSpace = MeineOlApp.GetNamespace("MAPI")

Set MeinOrdner = OlNameSpace.GetDefaultFolder(olFolderInbox)



For Each Ordner In MeinOrdner.Folders



If Ordner.Name = "Faxe" Then

Set ActiveExplorer.CurrentFolder = Ordner'die Display Funktion öffnet ein neue Explorer Object

Exit For

End If



Next



Set MeineOlApp = Nothing
SAmUle aus dem Schwabenland
P.s.
Bibel - Mattäus 7,8 Denn wer bittet, der empfängt; und wer sucht, der findet; und wer anklopft, dem wird aufgetan.


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: