unitnewmail.cpp

用c++ builder编写的发送EMAIL程序的源码,此程序是利用C++ Builder自带控件NMPOP3、NMSMTP开发的

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "UnitNewMail.h"
#include "UnitConfig.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormNewMail *FormNewMail;
//---------------------------------------------------------------------------
__fastcall TFormNewMail::TFormNewMail(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFormNewMail::NMSMTP1Connect(TObject *Sender)
{
  //显示用户信息
  StatusBar1->SimpleText="和服务器已建立连接";
  //发送邮件
  NMSMTP1->SubType = mtPlain;//使用普通文本格式
  NMSMTP1->EncodeType = uuMime;//采用MIME编码
  NMSMTP1->PostMessage->FromAddress = FormConfig->EditUser->Text;
  NMSMTP1->PostMessage->FromName = FormConfig->EditName->Text;
  NMSMTP1->PostMessage->ToAddress->Text = EditToAddress->Text;
  NMSMTP1->PostMessage->ToCarbonCopy->Text = EditCarbonCopy->Text;
  NMSMTP1->PostMessage->Attachments->Text = ComboBoxAttach->Items->Text;
  NMSMTP1->PostMessage->Subject = EditSubject->Text;
  NMSMTP1->PostMessage->LocalProgram = "MyEmail";
  NMSMTP1->PostMessage->ReplyTo = FormConfig->EditReplyTo->Text;
  NMSMTP1->PostMessage->Body->Text = MemoNewMail->Text;
  NMSMTP1->SendMail();
}
//---------------------------------------------------------------------------

void __fastcall TFormNewMail::Button1Click(TObject *Sender)
{
  if (OpenDialog1->Execute())
  {
    ComboBoxAttach->Items->Add(OpenDialog1->FileName);
  }
}
//---------------------------------------------------------------------------

void __fastcall TFormNewMail::NMSMTP1AttachmentNotFound(
      AnsiString Filename)
{
   ShowMessage("附件无法找到");     
}
//---------------------------------------------------------------------------
void __fastcall TFormNewMail::NMSMTP1Failure(TObject *Sender)
{
   ShowMessage("邮件发送失败");
}
//---------------------------------------------------------------------------
void __fastcall TFormNewMail::NMSMTP1SendStart(TObject *Sender)
{
   StatusBar1->SimpleText="开始发送邮件";
}
//---------------------------------------------------------------------------
void __fastcall TFormNewMail::NMSMTP1Disconnect(TObject *Sender)
{
   StatusBar1->SimpleText="和SMTP服务器的链接已经断开";
}
//---------------------------------------------------------------------------
void __fastcall TFormNewMail::NMSMTP1InvalidHost(bool &Handled)
{
   ShowMessage("SMTP服务器名有错");     
}
//---------------------------------------------------------------------------
void __fastcall TFormNewMail::NMSMTP1Success(TObject *Sender)
{
   StatusBar1->SimpleText="邮件发送成功";     
}
//---------------------------------------------------------------------------
void __fastcall TFormNewMail::Button2Click(TObject *Sender)
{
  //首先和SMTP服务器建立连接，发信的功能在OnConnect
  if (NMSMTP1->Connected)
  {
     NMSMTP1->Disconnect();
  }
  else
  {
     NMSMTP1->Host = FormConfig->EditSMTP->Text;
     NMSMTP1->UserID = FormConfig->EditUser->Text;
     NMSMTP1->Connect();
  }        
}
//---------------------------------------------------------------------------