It's working now!
Connect()
> smtpConnect:
if no authentication
Helo();
else
Ehlo();
> end;
> end;
>
> smtpHelo:
> begin
> ...
> MailFrom();
> end;
> end;
smtpEhlo:
begin
Username :=
Password :=
Auth();
end;
smtpAuth:
begin
...
MailFrom();
end;
> smtpMailFrom:
> begin
> if RecipientIndex < RecipientsRE.Lines.Count then
> begin
...
> RcptTo();
> end;
> end
> else // no more recipients
> begin
> TSMTPCli(Sender).Quit();
> end;
> end;
>
> smtpRcptTo:
> begin
...
>
> TSMTPCli(Sender).Data();
> end;
>
> smtpData:
> begin
> TSMTPCli(Sender).MailFrom();
> end;
>
It used MD5 to connect. Wonderful.
This bypasses the use of my ISP's mail server and its restrictions, and is more
professional.
Thank's Angus. Although you didn't give me the full answer, I was able to use lots of trial and error - mostly errors :)
- to figure out how to authenticate.
Regards,
Raymond
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
