Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Mails in Outlook automatisch auswerten
Autor: Pentax77
Datum: 26.02.09 11:49
Ich habe jetzt mal gebastelt, das ganze funktioniert auch einwandfrei beim starten (habe es ohne Reminder-Funktion gemacht, kriege ich nicht hin, daher einmal beim Starten sollte auch reichen). Allerdings wertet er mir immer genau die Hälfte der Mails im Postfach aus, egal wieviele drin liegen, nach der Hälfte steigt er in der For Each-Schleife aus. Private Sub Application_Startup() Dim Oi As Object Dim Of As Object Dim objOutlook As Object Dim objnSpace As Object Set objOutlook = CreateObject("Outlook.Application") Set objnSpace = objOutlook.GetNamespace("MAPI") Set Of = objnSpace.Folders("Postfach XXX").Folders("Posteingang") c = Of.Items.Count For Each Oi In Session.Folders("Postfach XXX").Folders( _ "Posteingang").Items If TypeName(Oi) = "MailItem" Then MN.neue_mail Oi.EntryID End If Next Oi End Sub Weiß jemand an was das liegt??? Danke!!

Mails in Outlook automatisch auswerten	3.890	Pentax77	20.02.09 11:55
Re: Mails in Outlook automatisch auswerten	3.286	me36835	20.02.09 21:47
Re: Mails in Outlook automatisch auswerten	3.065	Pentax77	23.02.09 08:30
Re: Mails in Outlook automatisch auswerten	2.976	Pentax77	26.02.09 11:49
Re: Mails in Outlook automatisch auswerten	2.905	me36835	26.02.09 13:22
Re: Mails in Outlook automatisch auswerten	2.961	Pentax77	26.02.09 13:45

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen