Re: [delphi-br] Email UOL

[Alcistemas Informática]

Já fiz isso e o erro persiste, 

valeu  a força!

  ----- Original Message ----- 
  From: Apoio 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, December 10, 2007 3:27 PM
  Subject: Re: [delphi-br] Email UOL


  pop.Username := 'alcione';
  smtp.Username := 'alcione';

  olha , o username aqui é na verdade seu email .

  pelomenos eu uso aqui do bol e tem q ser assim :

  smtp.Username := '[EMAIL PROTECTED]';

  ----- Original Message ----- 
  From: Alcistemas Informática 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, December 10, 2007 12:20 PM
  Subject: [delphi-br] Email UOL

  Enviando email de [EMAIL PROTECTED] para [EMAIL PROTECTED]

  nao consigo fazer isso, dá o seguinte erro: <[EMAIL PROTECTED]>: Recipient 
address rejected: Access Danied

  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 := 'alcione';
  pop.Password := '123' ;
  pop.Port := 110;
  pop.Connect() ;
  //pop.Disconnect;

  smtp.Host := 'smtp.uol.com.br';
  smtp.Username := 'alcione';
  smtp.Password := '123' ;
  smtp.Port := 25;
  smtp.AuthenticationType := atLogin;
  smtp.Connect() ;

  mensagem.From.Name := [EMAIL PROTECTED];
  mensagem.Recipients.EMailAddresses := '[EMAIL PROTECTED]';

  mensagem.Subject := 'TESTE DE EMAIL SOFT ALCIONE...';
  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]

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]