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

enviar e-mail pelo delphi 2007


flavioavilela

Pergunta

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???

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
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

Link para o comentário
Compartilhar em outros sites

  • 0

//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 por Eder Moraes
Link para o comentário
Compartilhar em outros sites

  • 0
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

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,3k
×
×
  • Criar Novo...