home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / LC / SEE4C10.ZIP / QM_PGM.CPP < prev    next >
C/C++ Source or Header  |  1998-05-15  |  3KB  |  96 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "qm_pgm.h"
  6. #include "see.h"
  7.  
  8. // NOTES:
  9. //  SEE32B.LIB was added to QM_PRJ.MAK
  10. //  To create SEE32B.LIB from SEE32.DLL: IMPLIB SEE32B.LIB SEE32.DLL
  11.  
  12.  static char Server[65]   = "\0";
  13.  static char From[65]     = "\0";
  14.  static char Reply[2]     = "\0";
  15.  static char To[65]       = "\0";
  16.  static char Subject[65]  = "\0";
  17.  static char Message[1025]= "\0";
  18.  static char IsNull[2]    = "\0";
  19.  static char Buffer[65]   = "\0";
  20.  
  21. //---------------------------------------------------------------------------
  22. #pragma resource "*.dfm"
  23. TForm1 *Form1;
  24. //---------------------------------------------------------------------------
  25. __fastcall TForm1::TForm1(TComponent* Owner)
  26.         : TForm(Owner)
  27. {
  28. }
  29. //---------------------------------------------------------------------------
  30. void __fastcall TForm1::mExitClick(TObject *Sender)
  31. {seeClose();
  32.  Close();
  33. }
  34. //---------------------------------------------------------------------------
  35. void __fastcall TForm1::mConnectClick(TObject *Sender)
  36. {int Code;
  37.  eServer->GetTextBuf((char *)Server, 64);
  38.  eFrom->GetTextBuf((char *)From, 64);
  39.  seeStringParam(SEE_LOG_FILE,(LPSTR)"qm.log");
  40.  if(strlen(Server)<=1)
  41.    {eResult->SetTextBuf("'Server' field is empty!");
  42.     return;
  43.    }
  44.  if(strlen(From)<=1)
  45.    {eResult->SetTextBuf("'From' field is empty!");
  46.     return;
  47.    }
  48.  // connect to server
  49.  eResult->SetTextBuf("Connecting to server...");
  50.  Code = seeConnectTo(
  51.    (LPSTR)Server,    // SMTP server
  52.    (LPSTR)From,      // return email address
  53.    (LPSTR)Reply);
  54.  if(Code>=0)
  55.    {eResult->SetTextBuf("Connection completed.");
  56.     mSend->Enabled = true;
  57.     mClose->Enabled = true;
  58.     mConnect->Enabled = false;
  59.    }
  60.  else
  61.    {seeErrorText(Code,(LPSTR)Buffer,64);
  62.     eResult->SetTextBuf(Buffer);
  63.    }
  64. }
  65. //---------------------------------------------------------------------------
  66. void __fastcall TForm1::mSendClick(TObject *Sender)
  67. {int Code;
  68.  eResult->SetTextBuf("Sending email...");
  69.  eTo->GetTextBuf((char *)To, 64);
  70.  eSubject->GetTextBuf((char *)Subject, 64);
  71.  eMessage->GetTextBuf((char *)Message, 1024);
  72.  Code = seeSendEmail(
  73.     (LPSTR)To,           // To list
  74.     (LPSTR)IsNull,       // CC list
  75.     (LPSTR)IsNull,       // BCC list
  76.     (LPSTR)Subject,      // subject
  77.     (LPSTR)Message,      // message text
  78.     (LPSTR)IsNull);      // attachment
  79.  if(Code>=0)
  80.    {eResult->SetTextBuf("Email sent.");
  81.    }
  82.  else
  83.    {seeErrorText(Code,(LPSTR)Buffer,64);
  84.     eResult->SetTextBuf(Buffer);
  85.    }
  86. }
  87. //---------------------------------------------------------------------------
  88. void __fastcall TForm1::mCloseClick(TObject *Sender)
  89. { eResult->SetTextBuf("Connection closed.");
  90.   seeClose();
  91.   mConnect->Enabled = true;
  92.   mSend->Enabled = false;
  93.   mClose->Enabled = false;
  94. }
  95. //---------------------------------------------------------------------------
  96.