Mam pewien problem i nie mam pojęcia o co chodzi... szukałem już chyba wszędzie :/
vMsg->Clear();
vMsg->Body->Assign(Memo1->Lines); // zawiera tresc typu "wiadomosc testowa"
vMsg->From->Name = "login";
vMsg->ReplyTo->EMailAddresses = "login";
vMsg->Recipients->EMailAddresses = "adresdocelowy";
vMsg->Subject = "Wiadomosc testowa";
vMsg->Priority = TIdMessagePriority(0);
vMsg->CCList->EMailAddresses = "";
vMsg->BccList->EMailAddresses = "";
vMsg->ReceiptRecipient->Text = "";
vMsg->CharSet = "UTF-8";
vSMTP->Username = "login";
vSMTP->Password = "haslo";
vSMTP->Host = "poczta.o2.pl"; //serwer o2.pl
vSMTP->AuthenticationType = atLogin;
vSMTP->MailAgent = "The Bat!";
try {
if(!vSMTP->Connected()) {
vSMTP->Connect(150);
vSMTP->Authenticate();
}
} catch(...) {
mLog->Lines->Add("Connection error");
}
if(vSMTP->Connected()) {
mLog->Lines->Add("Connected");
try {
vSMTP->Send(vMsg);
} catch (...) {
mLog->Lines->Add("Error sending msg");
}
}
Program zgłasza connected a potem wywala wyjątek Error seding msg, a dokładniej:
Kończy się wyjątkiem: " raised exception class EIdProtocolReplyError with message 'Error: queue file write error'.
Ktoś coś wie na ten temat ?
Co lepsze, kod podobny, pisany w delphi wysyła wiadomości bez problemów (przykłady ze strony Indy).