[DUG]: A problem in delphi sending file in mapimessage

[ali sarraf]

To: new zeland delphi team   From: Ghazale khojaste   and   Aida  khakshoor   Subject: A problem in delphi sending file in mapimessage.   We are computer student and in our last project (that is delphi programming in LAN) we have a great problem.   and that is : we can not send an attached file with mapimessage.   in the program by this address : Delphi4\objrepos\logoapp\logomain.pas   and by this source:   >procedure TLogoAppForm.FileSend1Execute(Sender: TObject); >var >MapiMessage: TMapiMessage; >  MError: Cardinal; >  MapiFileDesc  :  array[0..1] of TMapiFileDesc; >begin >  MapiFileDesc[0].ulReserved := 0; >//  MapiFileDesc[0].flFlags :=  MAPI_OLE_STATIC; >  MapiFileDesc[0].nPosition := 0; >  MapiFileDesc[0].lpszPathName :=PChar('C:\windows\'); >  MapiFileDesc[0].lpszFileName :=PChar('myTextFile'); > >  with MapiMessage do >  begin >  ulReserved := 0; >  lpszSubject := nil; >  lpszNoteText := PChar('My typed text ' ); >  lpszMessageType := nil; >  lpszDateReceived := nil; >  lpszConversationID := nil; >  flFlags := 0; >  lpOriginator := nil; >  nRecipCount := 0; >  lpRecips := nil; >  nFileCount := 1; >  lpFiles := @MapiFileDesc; >  end; >  MError := MapiSendMail(0, 0, MapiMessage, >  MAPI_DIALOG  or MAPI_LOGON_UI or MAPI_NEW_SESSION, >0); >  if MError <> 0 then MessageDlg(' Send error', mtError, [mbOK], 0); >  end;       It whould be quite obliged if send our answer at your earliest convenience to the following E-mail                                       [EMAIL PROTECTED] We remain