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