ActiveDelphi

[nacht21]

Bom dia,

Minha necessidade é enviar um e-mail com os dados de alguns campos de um formulário para determinado e-mail.

Por exemplo, tenho um formulário que contém 3 campos e ao pressionar o botão é enviado no email o que estão nos 3 campos.

Alguém já trabalhou com isso? Grato desde já.

[flavioad]

Olá, você conhece os componentes Indy para Delphi?
Funcionam legal!

o site http://www.indyproject.org/index.en.aspx, tem exemplos, os componetes, e ajuda para construir seu "enviador de emails".

Um abraço
Flávio
_________________
Flavio - tecnologia

[nacht21]

Já usei esse componente e pelo que vi ele funciona de uma forma diferente.

Alguém tem outra alternativa?

[djfabioninja]

Olá nacht21!
Os componentes da paleta Indy, pelo que voce descreveu, serviriam ao propósito sem problemas.
Abaixo segue um exemplo passo-a-passo para enviar o conteúdo de seus 3 campos para um e-mail:

Para isso, vamos precisar de:
1 Componente IdSMTP (Paleta Indy Clients);
1 Componente IdMessage (Paleta Indy Misc);
3 Edits (Paleta Standart);
1 Button (Paleta Standart);

Informações adicionais:

O componente IdSMTP será o responsável por fazer a conexão com o servidor SMTP e o envio do e-mail;

O componente IdMessage é quem receberá as informações dos conteúdos dos edits bem como o título da mensagem e destinatários.

Os edits proverão o conteúdo que será enviado =)

O button será nosso gatilho, passará o conteúdo dos edits para o IdMessage e em seguida fará com que o IdSMTP envie o conteúdo do IdMessage!

Montagem:

Na propriedade OnClick do button, Digite isso:

idsmtp1.Host := 'EnderecoSMTP';
idsmtp1.Username := 'NomeDeUsuario';
idsmtp1.Password := 'SuaSenha';

idmessage1.Subject := 'Titulo do e-mail';
idmessage1.Body.Add(edit1.text);
idmessage1.Body.Add(edit2.text);
idmessage1.Body.Add(edit3.text);

try
idsmtp1.Send(idMessage);
except
messagedlg('Erro ao enviar e-mail, verifique sua conexão com a internet.',mtInformation,[mbOk],0);
end;

Dessa forma o e-mail será enviado.
Espero ter ajudado.

[lua_rj]

Neste seu exemplo vc não colocou o destinatário, eu cheguei a procurar pelos métodos, mas não sei nem que nome procurar. Estou tentando usar este componente, mas sempre me enrolo.

[Batera]

Para especificar o destinatário:

[didonsom]

Olá Amigo,

veja se esse link te ajuda..

http://www.hardware.com.br/comunidade/codigo-delphi/1299952/

Abraços

Diego