🚀 go-pugleaf

� "RS" <rs.reloaded@wanadoo.fr> ������ ��� ������ 
news:4404bbf5$1@newsgroups.borland.com...
> Hello,
> I'm finally finding the following code :
>
> But I don't know how I can integrated an attachment !   (for example : 
> Edit1->Text = "c:\file.txt")
> And how can I integrated the recipient email address (Edit2->Text = " 
> address@company.com")
>

A MapiFileDesc structure holds information about a message attachment
so add this
   MapiFileDesc tmp={0};
   tmp.lpszPathName= "C:\\yourFile.txt";
   tmp.nPosition = -1;
   tmp.lpszFileName ="";

A MapiRecipDesc structure holds information about a message sender or 
recipient
so add the following for recipient (you can use an array for more 
recipients)

   MapiRecipDesc rec={0};
   rec.ulRecipClass = MAPI_TO;
   rec.lpszAddress = "SMTP:tofriend@server.gr";


>  TMapiMessage MapiMessage;

Instead
MapiMessage MapiMessage;

>   Cardinal MError;
>
>   MapiMessage.ulReserved = 0;
>   MapiMessage.lpszSubject = "this is a test";
>   MapiMessage.lpszNoteText = RichEdit1->Lines->Text.c_str();        // 
> RichEdit1 contains the body message
>   MapiMessage.lpszMessageType = NULL;
>   MapiMessage.lpszDateReceived = NULL;
>   MapiMessage.lpszConversationID = NULL;
>   MapiMessage.flFlags = 0;
>   MapiMessage.lpOriginator = NULL;
>   MapiMessage.nRecipCount = 0;
>   MapiMessage.lpRecips = NULL;        // How to put Edit2->Text on 
> lpRecips ???
>   MapiMessage.nFileCount = NULL;
>   MapiMessage.lpFiles = NULL;          // How to put Edit1->Text on 
> lpFiles

Instead

MapiMessage.nRecipCount = 1;
MapiMessage.lpRecips = &rec;
MapiMessage.nFileCount = 1;
MapiMessage.lpFiles = &tmp

>   MError = MapiSendMail(0, reinterpret_cast<unsigned 
> int>(Application->Handle),
>                 MapiMessage, MAPI_DIALOG | MAPI_LOGON_UI | 
> MAPI_NEW_SESSION, 0);

Instead you can use
   MError = MAPISendMail(0L,0L , &MapiMessage,MAPI_DIALOG, 0L);

//******** Put also this *******//
MAPIFreeBuffer(&tmp);
MAPIFreeBuffer(&rec);
//****************

>   if (MError)
>    ShowMessage("Error !");

I hope ididn't miss something :-)

-minas