title image


Smiley Re: Outlook Posteingang - Unterordner nach neuen Mails abrufen
Ich hab mich eben etwas mit der Sache beschäftigt. Vielleicht hilft es Dir weiter:(Bitte entschuldige den Spagetticode)'------------------------------------------------------------------------------------------------------------------------------Set objOutlook = New Outlook.ApplicationSet objMapiName = objOutlook.GetNamespace("MAPI")b = objMapiName.Folders.CountFor z = 1 To ba = objMapiName.Folders.Item(z).NameIf a = "Persönliche Ordner" Then tz = zNextc = objMapiName.Folders.Item(tz).Folders.CountFor z = 1 To ca = objMapiName.Folders.Item(tz).Folders.Item(z).NameIf a = "Posteingang" Then tbz = zNextIf intCountUnRead >= objMapiName.Folders.Item(tz).Folders.Item(tbz).Items.Count ThenBEEPend if'------------------------------------------------------------------------------------------------------------------------------Vielleicht hilft Dir das weiter... VIEL SPASS DAMIT !

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: