Hallo Leute,

ich soll ein Programm erstellen das mit Hilfe von easyMAPI von Rapware Version 6.2.1.4 bestimmte E-Mails aus Outlook liest und mir den Mail Body zurückgibt.

Und nun zu meinem Problem das Programm funktioniert super unter XP unter Win7 jedoch macht es keinen Mux es kommt nicht mal eine Fehlermeldung bei der ich ansetzen kann. Getestet habe ich bis jetzt nur ob es an der UAC liegen könnte, da ich das aber in allen varianten durchgegangen bin kann ich das wahrscheinlich ausschließen.

Ich hoffe das jemand von euch mir helfen kann, bin noch relativ unerfahren was Delphi angeht.

mfg
Aemon

P.s.: Tut mir leid wegen dem Titel mir ist auf die schnelle nichts besseres eingefallen.

Der Hersteller hat doch ein eigenes Forum, frag doch mal da oder such mal.

http://www.rapware.nl/forum/

Zitat von Aemon:

unter Win7 jedoch macht es keinen Mux es kommt nicht mal eine Fehlermeldung bei der ich ansetzen kann.

Und wenn Du mit [F7/F8] dadurch stepst, was funktioniert dann nicht?

Gruß
K-H

Das Programm sollte sich direkt nach dem start verbinden und alle in der Inbox befindlichen Mails in einer ListView ausgeben. Wenn ich das Programm unter Win7 aufrufe startet es ganz normal und verbindet sich auch aber das ListView bleibt leer. Wenn ich das Programm durch den Debugger jage passiert nichts auffälliges alles wird wie unter XP aufgerufen ohne das etwas übersprungen wird.

D.h. es arbeitet eigentlich korrekt, man sieht nur nix? Da wäre der Code zum Befüllen der ListView evtl. interessant.

zusammenfalten · markieren

Delphi-Quellcode:

procedure RebuildMessageList;
var
  Start: TDateTime;
  cnt: Integer;
begin
  Screen.Cursor := crHourGlass;
  Start := now;
  cnt := 0;
  lvMessages.Items.BeginUpdate;
  try
    lvMessages.OnCompare := nil;
    lvMessages.Items.Clear;

    FContentTable.First;
    while not FContentTable.EOF do
    begin
      Inc(cnt);
      AddItem(FContentTable);
      FContentTable.Next;
    end;

    FSortIndex := -7;
    lvMessages.OnCompare := lvMessagesCompare;
    lvMessages.SortType := stData;
  finally
    lvMessages.Items.EndUpdate;
    Screen.Cursor := crDefault;
    StatusBar.Panels[1].Text := Format('%d items read in %f sec.',[cnt, Trunc((now-Start)*24*3600*100) / 100]);
  end;
end;

Und Du bist sicher, dass FContentTable auch Daten enthält? Erscheint der Text in der StatusBar? Wie sieht AddItem aus?