I am trying to create an smtp message with an inline HTML document.
However the code I have produced appears to add HTML code as an attachment that I have to double click to open.
I am runnig Delphi 7 with Indy 9 components and reading the email from an Exchange server with Outlook 2003.
I have refined the code down to the following which contains a single form with a single button and a TIdSMTP and TIdMessage component.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdSMTP, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='192.168.34.11'; // IP of SMTP relay
IdSMTP1.UseEhlo:=FALSE;
with IdMessage1 do
begin
From.Address:='mark@...';
Recipients.Add.Address:='mark.rogers@..';
Subject:='Test inline html email';
ContentDisposition:='inline';
ContentType:='text/html';
Body.Add('<HTML><B>Hello there</B></HTML>');
end;
IdSMTP1.Connect(10000);
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect();
end;
end.
Could someone please tell me where I am going wrong, or if what I am trying to do is impossible.
Many thanks
Mark Rogers
However the code I have produced appears to add HTML code as an attachment that I have to double click to open.
I am runnig Delphi 7 with Indy 9 components and reading the email from an Exchange server with Outlook 2003.
I have refined the code down to the following which contains a single form with a single button and a TIdSMTP and TIdMessage component.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdSMTP, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='192.168.34.11'; // IP of SMTP relay
IdSMTP1.UseEhlo:=FALSE;
with IdMessage1 do
begin
From.Address:='mark@...';
Recipients.Add.Address:='mark.rogers@..';
Subject:='Test inline html email';
ContentDisposition:='inline';
ContentType:='text/html';
Body.Add('<HTML><B>Hello there</B></HTML>');
end;
IdSMTP1.Connect(10000);
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect();
end;
end.
Could someone please tell me where I am going wrong, or if what I am trying to do is impossible.
Many thanks
Mark Rogers
