Witam!
oto fragment kodu:
if(SMTP->Connected) SMTP->Disconnect();
SMTP->UserID = "sniq";
SMTP->Host = "smtp.o2.pl";
SMTP->Connect();
SMTP->SendMail();
DeleteFile("C:\\glonojadzi_karmicielglonojadzi_log.rtf");
Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SMTPSuccess(TObject *Sender)
{
ShowMessage("Glonojad zostal nakarmiony automatyczie! ndnia "+ data +" o godzinie " + czas +
" nLog zostal zaktualizowanyni wyslany e-mailem do administratora");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SMTPFailure(TObject *Sender)
{
ShowMessage("Blad! email z logiem nie zostal wyslany");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SMTPConnect(TObject *Sender)
{
s++;
//załączanie pliku logu + wysylanie na maila
SMTP->PostMessageA->Subject = "Glonojadzi log " + IntToStr(s);
TExStringList *header = new TExStringList;
header->Clear();
header->Add("(anti-spam-(anti-spam-mime-version:)) 1.0rn");
header->Add("(anti-spam-(anti-spam-content-type:)) text/html; charset=iso-8859-1rn");
header->Add("From: karmiciel glonojada <[email protected]>rn");
SMTP->FinalHeader = header;
SMTP->PostMessage->Attachments->Add("C:\\glonojadzi_karmicielglonojadzi_log.rtf");
}
//---------------------------------------------------------------------------
więc ten fragment kodu odpowiedzialny jest za przysłanie do mnie co 24godziny maila z logiem. Pierwszy mail dociera bez problemu, natomiast przy próbie wysłania drugiego wyskakuje mi komunikat:
proszę o pomoc