T
So sieht die Email-Sende-Funktion aus. Mittlerweile läuft das Programm teilweise bis zu 10 mal durch und stürzt dann mit schon o.g. Fehler wieder ab.
Liegt es an meine Programm oder an diesem Mail-Server, da 10038 eigentlich ein Fehler ist, der beim Server SHutdown auftreten soll und INDY dies sogar abfangen sollte. Ich habe nicht den blassesten Schimmer warum es nach einer unbestimmten Zeit abstürzt. Hat jemand eine Idee warum, oder weiss jemand wie man dies umgehen kann ??
void SendMailTo(void)
{
TIniFile *ini;
ini = new TIniFile (ChangeFileExt( Application->ExeName, ".INI" ));
TStringList* EmailAdressen;
TStringList* WordList = new TStringList();
AnsiString emf="";
int i;
WordList->Clear();
Form5->GetEmailAdressen(WordList);
if(Form2->NMSMTP1->Connected) Form2->NMSMTP1->Disconnect();
// Auslesen aus TIni-File
Form2->NMSMTP1->Host = ini->ReadString("newMail-Einstellungen","ServerAdresse","smtp.mailserver.de");
Form2->NMSMTP1->Port = ini->ReadInteger("newMail-Einstellungen","Port", 25);
Form2->NMSMTP1->UserID = ini->ReadString("newMail-Einstellungen","UserID","Admin");
Form2->NMSMTP1->Connect();
for(i=0; i<WordList->Count; i++)
{
// Sendeabfolge
emf=WordList->Strings[i];
Form2->NMSMTP1->PostMessage->FromAddress = ini->ReadString("newMail-Einstellungen","SenderAdresse","absender@yahoo.de");
Form2->NMSMTP1->PostMessage->FromName = ini->ReadString("newMail-Einstellungen","SenderName","User One");
Form2->NMSMTP1->PostMessage->Subject="Alarm ausgelöst";
Form2->NMSMTP1->PostMessage->ToAddress->Text=emf;
Form2->NMSMTP1->PostMessage->Body->Text="HILFE";
Form2->NMSMTP1->SendMail();
}
// Disconnect
Form2->NMSMTP1->Disconnect();
delete ini;
return;
}
FGGF