Email Adresse des Senders über MAPI holen

[ken_jones]

Probier mal das hier, hab leider kein Outlook auf meinem aktuellen System laufen, deshalb keine Garantie.
So sollte aber Outlook auch ohne Pfad gestartet werden können. Es wird versucht, eine laufende Instanz zu finden, und wenns keine gibt eine zu erstellen.

Delphi-Quellcode:

var Outlook: OLEVariant;
begin
  try
   Outlook:=GetActiveOleObject('Outlook.Application') ;
  except
    try
      Outlook:=CreateOleObject('Outlook.Application') ;
    except
      ShowMessage('Outlook nicht installiert');
    end;
  end;
  Outlook := Unassigned;
end;