#include <mapi.hpp>

/**
 * Ovo dole je deo jedne aplikacije...
 *
 */

void TMainForm::SendEMailer(AnsiString szToName, AnsiString szToAddress,
AnsiString szSubject, AnsiString szBodyText)
{
   char szToRecipName[255];
   char szToRecipAddress[255];
   char szSubjectMatter[255];
   char szBodyOfText[255];

   wsprintf(szToRecipName, "%s", szToName);
   wsprintf(szToRecipAddress, "%s", szToAddress);
   wsprintf(szSubjectMatter, "%s", szSubject);
   wsprintf(szBodyOfText, "%s", szBodyText);

   TMapiMessage MapiMessage;
   Cardinal MError;
   TMapiRecipDesc MapiRecipients[1];

   MapiRecipients[0].ulReserved   = 0;
   MapiRecipients[0].ulRecipClass = MAPI_TO;
   MapiRecipients[0].lpszName     = szToRecipName;
   MapiRecipients[0].lpszAddress  = szToRecipAddress;
   MapiRecipients[0].ulEIDSize    = 0;
   MapiRecipients[0].lpEntryID    = NULL;

   MapiMessage.ulReserved         = 0;
   MapiMessage.lpszSubject        = szSubjectMatter;
   MapiMessage.lpszNoteText       = szBodyOfText;
   MapiMessage.lpszMessageType    = NULL;
   MapiMessage.lpszDateReceived   = NULL;
   MapiMessage.lpszConversationID = NULL;
   MapiMessage.flFlags            = 0;
   MapiMessage.lpOriginator       = NULL;
   MapiMessage.nRecipCount        = 1;
   MapiMessage.lpRecips           = MapiRecipients;
   MapiMessage.nFileCount         = 0;
   MapiMessage.lpFiles            = NULL;		//necemo imati attachementa ...
   try
   {
      MError = MapiSendMail(0,
									 reinterpret_cast<unsigned int>(Application->Handle),
									 MapiMessage,
									 MAPI_DIALOG | MAPI_LOGON_UI | MAPI_NEW_SESSION,
									 0);
      if (MError)
      {
         MessageDlg(ReturnMsgString(E_MAIL_LOAD_ERROR), mtInformation, TMsgDlgButtons() << mbOK, 0);
      }
   }
   catch(...)
   {
   }
}