Como Enviar E-amil Com Delphi?

[Guest zimbabwe_RaP]

Gostaria de saber como enviar um e-mail em html sem usar a bibliocteca NMSMTP.

[yoga]

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

{ Seu servidor SMTP }

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

{ Porta SMTP, **NÃO MUDE ISTO** }

NMSMTP1.Port := 25;

{ Nome de login do usuário }

NMSMTP1.UserID := 'MeuLogin';

{ Conecta ao servidor }

NMSMTP1.Connect;

{ Se ocorrer algum erro durante a conexão com o servidor, avise! }

if not NMSMTP1.Connected then

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

with NMSMTP1.PostMessage do begin

{ Seu e-mail }

FromAddress := 'meuemail@meuserver.com.br';

{ Seu nome }

FromName := 'Meu Nome';

{ E-mail do destinatário }

ToAddress.Clear;

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

{ Assunto da mensagem }

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(Se não quiser anexar arquivos, apague as 3 linhas seguintes) }

Attachments.Clear;

{ Endereço do anexo }

Attachments.Add('c:\arquivo.*);

end;

{ Manda o e-mail }

NMSMTP1.SendMail;

{ Disconecta do servidor }

NMSMTP1.Disconnect;

end;