quando uso a rotina abaixo dá o seguinte erro:
<[EMAIL PROTECTED]>: Recipient address rejected: Access denied
o que pode ser ?
var
smtp : TIdSMTP ;
pop : TIDPop3;
Mensagem : TIdMessage ;
begin
smtp := TIdSMTP.Create( Nil );
Pop := TIdPOP3.Create(Nil);
Mensagem := TIdMessage.Create( Nil );
pop.Host := 'pop3.uol.com.br';
pop.Username := 'alcistemas';
pop.Password := 'senha' ;
pop.Port := 110;
pop.Connect() ;
pop.Disconnect; // já tentei desconectar somente depois e também não deu certo
smtp.Host := 'smtps.uol.com.br';
smtp.Username := 'alcistemas';
smtp.Password := 'senha' ;
smtp.Port := 25;
smtp.AuthenticationType := atLogin;
smtp.Connect() ;
mensagem.From.Name := '[EMAIL PROTECTED]';
mensagem.Recipients.EMailAddresses := '[EMAIL PROTECTED]';
mensagem.Subject := 'TESTE DE EMAIL...';
smtp.Send( mensagem );
showmessage('mensagem enviada');
Alcione Guimarães
e-mail: [EMAIL PROTECTED]
Cel: 11-9515-8707
SIP VOIP: 3301040
SKYPE: alcistemas
msn: [EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
--------------------------------------------------------------------------------
Internal Virus Database is out-of-date.
Checked by AVG Free Edition.
Version: 7.5.484 / Virus Database: 269.12.0/959 - Release Date: 17/8/2007 17:43
[As partes desta mensagem que não continham texto foram removidas]
