Exportar Arquivo Por E-mail

[Tamires]

Bom dia,

Já procurei no fórum, mas não achei.... Alguém teria alguma função ou saberia como anexar um arquivo, que já está salvo no computador e enviá-lo por e-mail?

Eu mandaria o arquivo direto, para um email que está cadastrado no banco de dados. Não precisa de abrir nenhuma janela para digitar o email ou anexar o arquivo. Tem que ser direto. Estou quebrando a cabeça aqui mas ainda não achei nenhum exemplo que me ajudasse...

Se alguém puder eu ficarei agradecida...

b-jos

[Geovani]

Olá Tamires,

você tem o componte Indy que envia emails?

se tiver tente com o código abaixo:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //adicione o componente IdSMTP da palheta Indy Clients e o componente IdMessage da palheta Indy Misc
  //Vai no Object inspector do componente TIdSMTP, na propriedade AuthenticationType seleciona atLogin

  with IdSMTP1 do
    begin
      Host := 'smtp.servidor.com.br';        //servidor de e-mail
      Username := 'geovani@email.com.br';    //usuario
      Password:='senha';                     //senha
      try
        Connect();
      except
        ShowMessage('Não foi possível conectar ao servidor de email!');
        exit;
      end;
    end;

  with  IdMessage1 do
    begin
      From.Address := 'geovani@email.com.br.br';  //email remetente
      From.Name := 'Geovani';                     //nome remetente
      Recipients.EMailAddresses:='geovani@email.com.br';  //destinatario
      Subject:='Assunto do email';    //assunto
      Body.add('corpo do email');    //conteudo do email
      TIdAttachment.Create( MessageParts, 'D:\arquivo.txt' );  //arquivo anexo
    end;

    try
      IdSMTP1.Send(IdMessage1);
      ShowMEssage('E-mail enviado!');
    except
      ShowMEssage('Não foi possível enviar email!');
      exit;
    end;

  IdMessage1.Clear;
  IdSMTP1.Disconnect;

end;

[Tamires]

Obrigada Geovani, agora eu só vou é quebrar a cabeça pra fazer isso funcionar no meu programa, já que eu nunca mexi com esse componente.

O servidor de e-mail que eu vou colocar será qual? o meu servidor ? Exemplo: Yahoo...

Seria : smtp.yahoo.com.br ???

bjo

[Geovani]

Acho que é smtp.mail.yahoo.com.br

procure no site do yahoo!!

até mais!!

[Kikonanet]

Tamires,

Dê uma olhada neste link

http://www.imasters.com.br/artigo/1201/del...mponentes_indy/

abs.