Dicas - Como enviar e-mail com o delphi usando NMSMTP

Esta dica ensina como fazer para que seu aplicativo possa enviar e-mails sem a necessidade de nenhum outro programa.

Como enviar e-mail com o delphi

 

Esta dica ensina como fazer para que seu aplicativo possa enviar e-mails sem a necessidade de nenhum outro programa. Crie uma nova aplicação e adicione um TButton e um NMSMTP(componente da palheta FastNet).

No evento OnClick do TButton coloque o seguinte código:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

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

NMSMTP1.UserID := 'Vinicius';

NMSMTP1.Connect; //Inicia a conecção;

NMSMTP1.PostMessage.FromAddress := 'vinicius.andrade@clubedelphi.com.br';

NMSMTP1.PostMessage.ToAddress.Text := 'marco@clubedelphi.com.br';

NMSMTP1.PostMessage.ToCarbonCopy.Text := 'AnotherUser@host.com';

NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := 'AnotherUser@host.com';

NMSMTP1.PostMessage.Body.Text := 'Teste de mesg';

NMSMTP1.PostMessage.Attachments.Text := 'c:\File.txt';

NMSMTP1.PostMessage.Subject := 'Teste';

NMSMTP1.SendMail; //Envio do e-mail;

ShowMessage('E-Mail Enviado !');

NMSMTP1.Disconnect;

end;

 

Este é um exemplo simples de como enviar um e-mail para você utilizar em seus aplicativos.

 

Vinicius Andrade

vinicius.andrade@clubedelphi.net

 

Ebook exclusivo
Dê um upgrade no início da sua jornada. Crie sua conta grátis e baixe o e-book

Artigos relacionados