IdSMTP1->Host=Edit1->Text;
IdSMTP1->Username=Edit2->Text;
IdSMTP1->Password=Edit3->Text;
IdMessage1->Clear();
IdMessage1->Recipients->EMailAddresses=Edit4->Text;
IdMessage1->Subject=Edit5->Text;
IdMessage1->Body->Text = RichEdit1->Text;
TIdMessageBuilderPlain* MyMessage = new TIdMessageBuilderPlain();
if(ListBox1->Items->Count > 0){
for(int i=0; i<ListBox1->Items->Count; i++)
MyMessage->Attachments->Add(ListBox1->Items->Strings[i]);
MyMessage->PlainText->Text=RichEdit1->Text;
MyMessage->FillMessage(IdMessage1);
}
try{
IdSMTP1->Connect();
IdSMTP1->Send(IdMessage1); //ovde program puca...sa sledecom porukom Could not load SSL library....
}
catch(...){
ShowMessage("greska");
}
IdSMTP1->Disconnect();
delete MyMessage;