delphi 发送html邮件,delphi发送html带附件邮件

var

html: TIdText;

begin

if not SMTP.Connected then

SMTP.Disconnect();

try

SMTP.Connect;

try

if SMTP.Authenticate then //验证

begin

EMessage.Recipients.EMailAddresses := FUser;

EMessage.ClearBody;//清空正文

html:= TIdText.Create(EMessage.MessageParts);

EMessage.Subject:='Nest MAC Traceability Report';

html.ContentType := 'text/html;charset=gb2312';

html.ContentTransfer := '7bit';

EMessage.ContentType := 'multipart/alternative';

html.Body.Add('Dear Sir:');

html.Body.Add('');

html.Body.Add('Mac address Status');

html.Body.Add('');

html.Body.Add('

');

html.Body.Add('');

html.Body.Add('');

html.Body.Add('');

html.Body.Add('

Nest MAC Traceability Report');

html.Body.Add('

');

html.Body.Add('

html.Body.Add('

Date : ');

html.Body.Add('

');

html.Body.Add('

html.Body.Add('

');

html.Body.Add('

Image');

html.Body.Add('

Releasing date');

html.Body.Add('

Total released Qty');

html.Body.Add('

Cumulative Consumed Qty');

html.Body.Add('

Leftover Qty');

html.Body.Add('

Cumulative scrap Qty');

html.Body.Add('

');

html.Body.Add('

');

html.Body.Add('

');

html.Body.Add('

');

html.Body.Add('

');

html.Body.Add('

');

html.Body.Add('');

html.Body.Add('');

EMessage.From.Address := SMTP.Username;//发送人

EMessage.From.Name := '彭工';

if FileExists(FAttacFile) then

begin

AttachmentFile := TIdAttachmentFile.Create(EMessage.MessageParts, FAttacFile);

AttachmentFile.ContentType := 'text/plain';

end;

SMTP.Send(EMessage);

end;

finally

FreeAndNil(html);

FreeAndNil(EMessage);

if Assigned(AttachmentFile) then

FreeAndNil(AttachmentFile);

SMTP.Disconnect();

end;

except ON E: Exception do

raise Exception.Create(E.Message);

end;

end;