Einzelnen Beitrag anzeigen

Helld_River

Registriert seit: 2. Jan 2003
Ort: Hürth
136 Beiträge
 
Delphi 2010 Professional
 
#2
  Alt 19. Mär 2003, 10:06
Hab's gelöst:
hier der Code und Häckchen dran

Code:
try
    OutApp.Connect;
    //Get Namespace
    oNS := OutApp.GetNamespace('MAPI');
    //Logon to NameSpace
    oNS.Logon('','',false,false);
    myItems:=OutApp.ActiveExplorer;
    fold:=myItems.Selection;
    mItem:=fold.Item[1];
  except
    OutApp.Disconnect;
    ShowMessage('Fehler beim Verbinden mit Outlook !');
    exit;
  end;

Die Variable mItem bildet dann das Objekt der erten selektierten Mail ab !!!

MfG, Helld
  Mit Zitat antworten Zitat