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

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (1)

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

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?