email-Programm im Hintergrund

[Coly]

Hi,

- oNS:=OutApp.GetNamespace; durch oNS:=OutApp.GetNamespace('MAPI'); ersetzen ...
- oNS.Free; Löschen ist fehl am Platz
- ckRunningOrNew schau mal in deine OleServer.pas nach dem Type TConnectKind
bei Delphi 7 schauts so aus :

Delphi-Quellcode:

type
  TVariantArray = Array of OleVariant;
  TOleServer    = class;
  TConnectKind  = (ckRunningOrNew,          // Attach to a running or create a new instance of the server
                   ckNewInstance,           // Create a new instance of the server
                   ckRunningInstance,       // Attach to a running instance of the server
                   ckRemote,                // Bind to a remote instance of the server
                   ckAttachToInterface);    // Don't bind to server, user will provide interface via 'CpnnectTo'