Envoi email format html avec INDY

Signaler
Messages postés
1
Date d'inscription
mardi 9 décembre 2003
Statut
Membre
Dernière intervention
10 février 2004
-
Messages postés
18
Date d'inscription
vendredi 9 juin 2006
Statut
Membre
Dernière intervention
25 août 2008
-
Bonjour je voudrais savoir si quelqu'un a un exemple d'envoi de mail au format html avec les composants Indy

Merci

1 réponse

Messages postés
18
Date d'inscription
vendredi 9 juin 2006
Statut
Membre
Dernière intervention
25 août 2008
1
  // -- Configuration Message
try for i:=0 to sendto.items.count -1 do begin
Source := VotreEditeurHtml.Source;
//imessage.Clear;
with TIdMessageBuilderHtml.Create do try
Subject := Subject.Text;
IMessage.From.Address := From.Text;
IMessage.From.Name:= name.Text;
IMessage.Recipients.Add.Address:=sendto.items[0];
if selecthtmlmsg.Checked=true then Html.Text := Source+pub else Html.Text := textmsg.Text; 
FillMessage(IMessage);
finally
.....;
  // -- Fin Configuration Message


Je travail avec sur mon projet TOTO Mail Sender