enviar e-mail pelo delphi 2007

[flavioavilela]

galera, eu novamente rsrsrs...

estou com um problemão: tenho uma janela de orçamento... lanço todos os dados e tal, os itens do orçamento vao ficando numa adoquery e alguns outros itens em edits... até ai beleza... quando eu finalizasse esse orçamento, eu gostaria de envia-lo por e-mail pra alguém, como fazer isso? tipo, gostaria que fosse enviado bem bonitinho saca, com o cabeçalho, com os itens separados como nos grids e etc...

como fazer isso???

[Jhonas]

estou com um problemão: tenho uma janela de orçamento... lanço todos os dados e tal, os itens do orçamento vao ficando numa adoquery e alguns outros itens em edits... até ai beleza... quando eu finalizasse esse orçamento, eu gostaria de envia-lo por e-mail pra alguém, como fazer isso? tipo, gostaria que fosse enviado bem bonitinho saca, com o cabeçalho, com os itens separados como nos grids e etc...

como fazer isso???

Voce terá que montar um Quick Report e convertê-lo em uma figura ( de preferência JPG ) para depois então, poder enviar por e-mail.

abraço

[Eder Moraes]

//declare em public

procedure enviaEmail(de,para,ArqAnexo:string);

//segure ctrl+shift e precione C para implementar

//crie uma variavel global ou local

//OBS:este componente existe em algumas versoes do delphi. se voce não encontra-lo procure um sobresalente.

var NMSMTP1 : TNMSMTP;

procedure enviaEmail(de,para,ArqAnexo:string);

begin

{ou voce pode adicionado ao formulario}

NMSMTP1 := TNMSMP.Create(nil);

{ Seu servidor SMTP }

NMSMTP1.Host := 'smtp.servidor.com.br';

{ Porta SMTP, **NÃO MUDE ISTO** }

NMSMTP1.Port := 25;

{ Nome de login do usuário }

NMSMTP1.UserID := 'MeuLogin';

{ Conecta ao servidor }

NMSMTP1.Connect;

{ Se ocorrer algum erro durante a conexão com o servidor, avise! }

if not NMSMTP1.Connected then

raise Exception.Create('Erro de conexão');

with NMSMTP1.PostMessage do begin

{ Seu e-mail }

FromAddress := de;

{ Seu nome }

FromName := 'Meu Nome';

{ E-mail do destinatário }

ToAddress.Clear;

ToAddress.Add(para);

{ Assunto da mensagem }

Subject := 'Assunto da mensagem';

{ Corpo da mensagem }

Body.Clear;

Body.Add('Primeira linha da mensagem');

Body.Add('Segunda linha da mensagem');

Body.Add(''); { Linha em branco }

Body.Add('Última linha da mensagem');

{ Anexar arquivos(Se não quiser anexar arquivos, apague as 3 linhas seguintes) }

Attachments.Clear;

{ Endereço do anexo }

if ArqAnexo <> '' then

Attachments.Add(ArqAnexo);

end;

{ Manda o e-mail }

NMSMTP1.SendMail;

{ Disconecta do servidor }

NMSMTP1.Disconnect;

end;

//no evento de processamento do seu orcamento coloque a chamado ao procedimento.

procedure processa.....

begin

enviaEmail('eu@hotmail.com','voce@hotmail.com','c:\...arq de texto ou imagem');

.

.

.

end;

Editado Janeiro 12, 2009 por Eder Moraes

[flavioavilela]

certo... mas, que componente é esse?

devo fazer, primeiro o que o amigo Jhonas disse e depois o que o Eder Mores disse ou o que???

[Jhonas]

certo... mas, que componente é esse?

devo fazer, primeiro o que o amigo Jhonas disse e depois o que o Eder Mores disse ou o que???

Voce terá que montar um Quick Report e convertê-lo em uma figura ( de preferência JPG ) para depois então, poder enviar por e-mail.

Porque converter em figura ? porque será a cópia extata do seu report com todos os detalhes e num tamanho muito menor.

Voce poderá usar o código que colega Eder Moraes postou, para enviar o email .. o componente NMSMTP1 é do delphi 7

abraço