Envoyer un mail avec un contenu html
yvescollet
Messages postés
55
Date d'inscription
mardi 26 août 2003
Statut
Membre
Dernière intervention
22 janvier 2006
-
24 juin 2005 à 14:42
roud59 Messages postés 99 Date d'inscription jeudi 16 septembre 2004 Statut Membre Dernière intervention 26 juillet 2007 - 24 juin 2005 à 15:43
roud59 Messages postés 99 Date d'inscription jeudi 16 septembre 2004 Statut Membre Dernière intervention 26 juillet 2007 - 24 juin 2005 à 15:43
1 réponse
roud59
Messages postés
99
Date d'inscription
jeudi 16 septembre 2004
Statut
Membre
Dernière intervention
26 juillet 2007
2
24 juin 2005 à 15:43
24 juin 2005 à 15:43
Avec les composants Indy TIdMessage et TIdSMTP :
procedure TForm1.Button1Click(Sender: TObject);
begin
with IdMessage1 do
begin
Clear;
From.Text := 'sender@server.com';
Recipients.Add.Text := 'to@server.com';
Subject := 'Testing Delphi Indy SMTP with HTML content';
end;
IdMessage1.Subject := 'Test: Mail Message with HTML and Plain Text';
with TIdText.Create(IdMessage1.MessageParts) do
begin
ContentType := 'text/html';
Body.Add('<html>Headline
Indy SMTP Test mail message
with HTML content</html>');
end;
with TIdText.Create(IdMessage1.MessageParts) do
begin
ContentType := 'text/plain';
Body.Add('This e-mail is HTML only, if you only see this text your
e-mail application is not set to or not able to display HTML
content.');
end;
IdMessage1.ContentType := 'multipart/alternative';
with IdSMTP1 do begin
Connect;
try
Send(IdMessage1);
finally
Disconnect;
end;
end;
ShowMessage('Send...');
end;
C'est pas de moi mais trouvé avec google.
Roud59
procedure TForm1.Button1Click(Sender: TObject);
begin
with IdMessage1 do
begin
Clear;
From.Text := 'sender@server.com';
Recipients.Add.Text := 'to@server.com';
Subject := 'Testing Delphi Indy SMTP with HTML content';
end;
IdMessage1.Subject := 'Test: Mail Message with HTML and Plain Text';
with TIdText.Create(IdMessage1.MessageParts) do
begin
ContentType := 'text/html';
Body.Add('<html>Headline
Indy SMTP Test mail message
with HTML content</html>');
end;
with TIdText.Create(IdMessage1.MessageParts) do
begin
ContentType := 'text/plain';
Body.Add('This e-mail is HTML only, if you only see this text your
e-mail application is not set to or not able to display HTML
content.');
end;
IdMessage1.ContentType := 'multipart/alternative';
with IdSMTP1 do begin
Connect;
try
Send(IdMessage1);
finally
Disconnect;
end;
end;
ShowMessage('Send...');
end;
C'est pas de moi mais trouvé avec google.
Roud59
