Mails aus dem Postfach filtern Verfasst am: 14.12.2010, 13:57
Hallo Leute,
ich möchte in der Inbox eines Postfachs (nicht mein eigenes), bestimmte Mails nach Betreff
und dem Status "ungelsesen" filtern.
Folgenden Code habe ich schon:
Code:
Private Sub ThisApplication_NewMail()
Dim filter As String = "EMC "Dim OLApp As New Outlook.Application
Dim objNS As Outlook.NameSpaceDim MapiFolder As Outlook.MAPIFolder
Dim mailItem As Outlook.MailItemDim test As Outlook.Items
objNS = OLApp.GetNamespace("MAPI")
MapiFolder = objNS.Folders.Item("Postfach - BS37 - 36565(I / FP - 821)"")
Dim inbox As Outlook.MAPIFolder = objNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
Dim items As Outlook.Items = inbox.Items
items.Restrict("[Unread] = true")
If mailItem.Subject = "EMC" Then MessageBox.Show("Test")
End If
Next
End Sub
Aber ich bekomme immer in Zeile 8 die FM: "Der Vorgang konnte nicht ausgeführt werden.EinObjekt wurde nicht gefunden."
Hat jemand ne Ahnung wie Postfacher/Unterordner anzugeben sind?
Registrieren
Login
