CYFROWY BARON • PROGRAMOWANIE

//---------------------------------------------------------------------------
TIdAttachment *idAttach;
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{  
 if(OpenD1->Execute())
   {
     Edit2->Text = OpenD1->FileName;

     idAttach=new TIdAttachment(IdMess1->MessageParts, OpenD1->FileName);
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton3Click(TObject *Sender)
{

 IdMess1->From->Name = set->Strings[0];            
 IdMess1->From->Address = set->Strings[1];      i
 IdMess1->Recipients->EMailAddresses = edtDo->Text;
 IdMess1->Subject = edtTemat->Text;                      
 IdMess1->Body->Append(re1->Text);                    



   IdSMTP1->Host = set->Strings[3];                      
   IdSMTP1->Password = set->Strings[2];                
   IdSMTP1->Username = set->Strings[5];            
   IdSMTP1->AuthenticationType = atLogin;              
   IdSMTP1->Port = set->Strings[4].ToInt();
   
   IdSMTP1->Connect();
   try{
        IdSMTP1->Send(IdMess1);
       }
   __finally{
                ShowMessage("Wiadomość została wysłana");
                IdSMTP1->Disconnect();
               }

}
//---------------------------------------------------------------------------