Ir para conteúdo
Fórum Script Brasil
  • 0

Exportar Arquivo Por E-mail


Tamires

Pergunta

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

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

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;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...