[code]
Wysyłam e-maila za pomocą NMSMTP z FastNet wg. poniższego kodu :
nmsmtp1.UserID :='robertk';
nmsmtp1.postmessage.date := datetostr(date);
nmsmtp1.PostMessage.LocalProgram := 'resportgql support program';
nmsmtp1.TimeOut := 0;
nmsmtp1.ClearParams := false;
nmsmtp1.PostMessage.Subject := 'test2315';
nmsmtp1.PostMessage.FromName := edit1.text;
nmsmtp1.PostMessage.FromAddress := edit2.text;
nmsmtp1.PostMessage.ReplyTo := edit3.text;
nmsmtp1.PostMessage.Body.text := memo1.text;
nmsmtp1.PostMessage.ToAddress.Clear;
nmsmtp1.PostMessage.ToAddress.Add('[email protected]');
nmsmtp1.host :='smtp.skrzynka.pl';
nmsmtp1.Connect;
nmsmtp1.SendMail;
Po krótkiej chwili wywala mi okienko z napisem :
Project1.exe raised exception class Exception with message '503 RCPT first (#5.1.1)'
I co teraz ? :) Macie pomysł, bo ja nie...
[/code]