Buscar por:

Enviar e-mail com o delphi

Código

{Fazer um aplicativo completo para manipulação de e-mails é um tanto trabalhoso e não

é o assunto desta dica. Muitas vezes, porém, queremos apenas dar ao nosso software

a capacidade de enviar simples e-mails. Isto é fácil, especialmente porque o Delphi5

nos oferece o componente TNMSMTP (paleta FastNet) que faz praticamente todo o

trabalho para nós. Precisamos apenas alterar algumas propriedades e chamar alguns

métodos para que a mensagem seja enviada. Vamos para a prática:

1. Coloque um componente TNMSMTP no form.

2. Coloque um botão e no evento OnClick deste botão escreva:}

procedure TForm1.Button1Click(Sender: TObject);

begin

{ Host do servidor de e-mail }

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

NMSMTP1.Port := 25;

{ Nome de login do usuário }

NMSMTP1.UserID := 'nome-do-usuario';

NMSMTP1.Connect;

if not NMSMTP1.Connected then

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

with NMSMTP1.PostMessage do begin

{ E-mail do remetente }

FromAddress := 'tecnobyte@ulbrajp.com.br';

{ Nome do remetente }

FromName := 'Daniel P. Guimarães';

{ E-mail do destinatário }

ToAddress.Clear;

ToAddress.Add('destinatario@servidor.com.br');

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 }

Attachments.Clear;

Attachments.Add('c:diretorioarquivo.ext');

end;

NMSMTP1.SendMail;

NMSMTP1.Disconnect;

end;

{Pronto! É só fazer as adaptações necessárias e você terá envio

de e-mails em sua aplicação.

Observações: Para enviar o mesmo e-mail para vários destinatário de uma só vez

basta adicionar os endereços de e-mails de todos os destinatários em:}

NMSMTP1.PostMessage.ToAddress.