Sende HTML emails hvor billederne er med i mailen
Jeg har et program, som kan sende emails som HTML, hvor billed filerne skal hentes, når email åbnes, dette vil jeg gerne undgå, altså vil jeg gerne have billed filerne med i den fremsendte email, dette er jo muligt når man bruger outlook. Jeg har brugt nedenstående kode:unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdText, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
IdSMTP;
type
TForm2 = class(TForm)
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
HTML: TIdText;
Body: TStrings;
begin
IdMessage1.Recipients.Clear;
IdMessage1.NoDecode := False;
IdMessage1.NoEncode := False;
IdMessage1.From.Address := 'carsten@bjarlert.dk';
IdMessage1.From.Name := 'Carsten Lau Bjarlert';
IdMessage1.Recipients.EMailAddresses := 'carsten@bjarlert.dk';
IdMessage1.Subject := 'En lille herfra';
IdMessage1.Body.Clear;
HTML := TIdText.Create(IdMessage1.MessageParts);
HTML.ContentType := 'text/html';
with HTML.Body do begin
Add('<html>');
Add('<head>');
Add('<title>' + IdMessage1.Subject + '</title>');
Add('</head>');
Add('<body>');
Add('Hej <BR><BR>');
Add('<HR align="left" width="20%">');
Body := TStringList.Create;
Body.Text := 'Body tekst start';
Add('<p>Nedenstående er et eksempel fra hjemmesiden.</p>');
Add('<td width="932"><br><a href="http://www.spil2vind.dk"><img border="0" src="http://www.spil2vind.dk/png/LSidenSidst8.png" width="602" height="305"></a><br>');
Add('<HR><BR>');
Add('<BR>');
Add('Med venlig hilsen<BR><BR>');
Add(IdMessage1.From.Name);
Add('</body>');
Add('</html>');
end;
try
IdSMTP1.Host := Trim('smtp.fullrate.dk');
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
except on E: Exception do ShowMessage(E.Message);
end;
IdSMTP1.Disconnect;
except on E: Exception do ShowMessage(E.Message);
end;
end;
end.
Håber der er nogen som kan få tilføjet billed filen via MIME eller hvad der nu skal bruges
