[ Mirko Rajkovača @ 29.04.2005. 16:37 ] @
Da li mi neko moze reci koji je (po njemu) najlaksi nacin da se iz BCB6 posalje mejl na odredjenu adresu sa odredjenim atachmentom? Postoji OE server, ali nisam nasao dokumentaciju za njega a i ne bih da se petljam sa tim stvarima ako postoji laksi nacin

Hvala
[ leka @ 30.04.2005. 01:44 ] @
O tome se vec pricalo ovde - koristi search.
[ Mirko Rajkovača @ 02.05.2005. 18:08 ] @
Upravu si
Nasao sam to sto mi je bilo potrebno
[ Mirko Rajkovača @ 05.05.2005. 11:53 ] @
Ovaj kod sam pronasao na ovom forumu, hvala autoru, jedini problem je u tome sto pod WinXP radi normalno ali pod 98 vraca error code 1 (MAPI_E_USER_ABORT).

Please help

Code:

   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;

   MapiFiles[0].nPosition=-1;
   MapiFiles[0].lpszPathName=szFileName;
   MapiFiles[0].flFlags=NULL;
   MapiFiles[0].lpszFileName=NULL;
   MapiFiles[0].lpFileType=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         = 1;
   MapiMessage.lpFiles            = MapiFiles;    //necemo imati attachementa ...
   try
   {
      MError = MapiSendMail(0,
                reinterpret_cast<unsigned int>(Application->Handle),
                             MapiMessage,
                MAPI_LOGON_UI | MAPI_NEW_SESSION,
                0);
      if (MError)
      {
        MessageDlg("Greska prilikom slanja mejla!", mtInformation, TMsgDlgButtons() << mbOK, 0);
      }
   }
   catch(...)
   {
    return false;
   }
[ Mirko Rajkovača @ 13.05.2005. 10:17 ] @
Resio sam problem, umesto koristenja Borlandovih funkcija MapiSendMail i sl., funkcije sam ucitao direktno iz Mapi32.dll i sada radi pod oba sistema.
Code:
   HINSTANCE mapi=LoadLibrary("Mapi32.dll");
   if (mapi==0)
    {
     ShowMessage("Can't load library!");
     return false;
    }

   LPMAPISENDMAIL pfMapiSendMail=(LPMAPISENDMAIL)GetProcAddress(mapi,"MAPISendMail");