enviar html por email

Olhem ai para enviar por email uma pagina sua feita em html


IdSMTP1.Host:=´servidor de e-amail´;
IdSMTP1.Port:=25;
IdSMTP1.Username:=´usuario´;
IdSMTP1.Password:=´senha´;
IdSMTP1.Connect(t);

if IdSMTP1.Connected then ShowMessage(´conectou´);
IdMessage1.Subject:=´teste´;
IdMessage1.From.Address:=´seuemail@seuprovedor.com.br´;
IdMessage1.Recipients.EMailAddresses:=´emaildeenvio@provedor.com.br´;
IdMessage1.ReceiptRecipient.Address:=´´emaildeenvio@provedor.com.br´;

IdMessage1.ContentType := ´text/html´;
IdMessage1.Body.Clear;
IdMessage1.Body.LoadFromFile(´c:/teste3.html´);

IdSMTP1.Send(IdMessage1);
ShowMessage(´enviada´);
IdSMTP1.Disconnect;