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
We remain
