title image


Smiley Outlook Posteingang - Unterordner nach neuen Mails abrufen
Ich verwende unten stehende Routine,um Outlook nach neuen e-Mails abzurufen.Nun habe ich aber eine Regel erstellt,die bestimmte Mails (anhand des Betreffs) in bestimmteUnterordner verschiebt.Wie kann man diese speziellen Ordner abrufen ??Dim objOutlook As Outlook.ApplicationDim objMapiName As Outlook.NameSpaceDim intCountUnRead As IntegerPrivate Sub command1_Click() Set objOutlook = New Outlook.Application Set objMapiName = objOutlook.GetNamespace("MAPI") For I = 1 To objMapiName.GetDefaultFolder(olFolderInbox).UnReadItemCount intCountUnRead = intCountUnRead + 1 Next MsgBox "Sie haben " & intCountUnRead & " neue Nachrichten im Postfach !", vbInformation + vbOKOnly, "New Messages . . ." intCountUnRead = 0 Set objMapiName = Nothing Set objOutlook = NothingEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: