Schwierigkeiten mit MAPI: Empfänger?

[Alexander]

Hallo,
ich probiere gerade mal meinen Source, mit dem ich über MAPI Mails versende ein wenig zu erweitern und zwar soll man noch den Absender eintippen können.
Hier mal der SOurce:

Delphi-Quellcode:

   with Attach do
   begin
    ulReserved:=0;
    flFlags:=MAPI_OLE_STATIC;
    nPosition:=1;
    lpszPathName:=PChar(ExtractFilePath(Paramstr(0)) + test.txt');
    lpszFileName:=PChar(test.txt');
    lpFileType:=nil;
   end;

  FillChar(MapiRecipDesc, SizeOf(TMapiRecipDesc), 0);
  with MapiRecipDesc do
  begin
    ulReserved := 0;
    ulRecipClass := MAPI_TO;
    lpszName := '[e-mail]';
    lpszAddress := 'SMTP:[e-mail]';
    ulEIDSize := 0;
    lpEntryID := nil;
  end;

   with MapiMessage do
    begin
     ulReserved := 0;
     lpszSubject := nil;
     lpszNoteText := nil;

     lpszMessageType := nil;
     lpszDateReceived := nil;
     lpszConversationID := nil;
     flFlags := 0;
     lpOriginator := nil;
     nRecipCount := 0;
     lpRecips := @MapiRecipDesc;
     nFileCount := 1;
     lpFiles := @Attach;
    end;

   MError := MapiSendMail(0, Application.Handle, MapiMessage,
   MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
  end;

Das Problem ist das er die Empfänger Adresse nicht in Outlook einträgt ?
Wisst ihr warum? Ich habe das mit Outlook 2000 ausprobiert...
Danke schon mal für eure Hilfe...