Questa è la procedura che utilizzo per acquisire i messaggi:
SyncPOP3Cli.Host := host;
SyncPOP3Cli.Port := port;
SyncPOP3Cli.UserName := username;
SyncPOP3Cli.Password := password;
try
methodname := 'OpenSync';
SyncPOP3Cli.OpenSync;
methodname := 'StatSync';
SyncPOP3Cli.MsgNum := MsgNum;
SyncPOP3Cli.StatSync;
methodname := 'ListSync';
SyncPOP3Cli.MsgNum := MsgNum;
SyncPOP3Cli.ListSync;
methodname := 'UidlSync';
SyncPOP3Cli.MsgNum := MsgNum;
SyncPOP3Cli.UidlSync;
if SyncPOP3Cli.MsgCount > 0 then
begin
methodname := 'RetrSync';
SyncPOP3Cli.MsgNum := MsgNum;
SyncPOP3Cli.RetrSync;
end;
methodname := 'QuitSync';
SyncPOP3Cli.QuitSync;
except
on E: Exception do
WebApplication.ShowMessage('Errore metodo: ' + methodname);
Dov'è l'errore?
--
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
