Buscar por:

Rotina para enviar e-mail

Código

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 On Click 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;

end. 

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