indy10发送网页

最新推荐文章于 2022-11-17 11:55:10 发布

slf0205

最新推荐文章于 2022-11-17 11:55:10 发布

阅读量1.3k

点赞数

文章标签：服务器 delphi string html header login

本文链接：https://blog.csdn.net/slf0205/article/details/5818133

版权

本文介绍了如何使用Delphi2009和Indy10库发送带有图片的HTML邮件，包括设置内容ID、添加附件以及设置邮件各项属性的详细步骤。

摘要由CSDN通过智能技术生成

KeyLife富翁笔记

作者 : lqcros
标题 : 使用indy10发送网页
关键字:
分类 : 个人专区
密级 : 公开

delphi2009 indy10通过
procedure TformMain.butnSendMailClick(Sender: TObject);
var
html: TStrings;
filename: string;
begin
filename := ExtractFilePath(Application.ExeName) + 'YouImg.jpg';
html := TStringList.Create;
html.Add('');
html.Add('');
html.Add('');
html.Add('

Hello

');
html.Add(' '); //这里这个CID是什么意思，还没弄明白。
html.Add('This is a picture!');
html.Add('');
butnSendMail.Enabled := False;
try
    with mesgMessage do begin
      Clear;
      From.Text := Trim(editFrom.Text);
      Recipients.EMailAddresses := Trim(editTo.Text);
      Subject := Trim(editSubject.Text);
    end;
    with TIdText.Create(mesgMessage.MessageParts, nil) do begin
      ContentType := 'multipart/alternative';
//      ParentPart :=-1;
    end;
    with TIdText.Create(mesgMessage.MessageParts, nil) do begin
      Body.Text := html.Text;
      ContentType := 'text/html';
//      ParentPart := 0;
    end;
    with TIdAttachmentFile.Create(mesgMessage.MessageParts, filename) do begin
      ContentID := filename;
      ContentType := 'image/*';
      ContentDisposition := 'inline';
//      ParentPart := 0;
      ExtraHeaders.Values['content-id'] := ExtractFileName(Filename);
      DisplayName := ExtractFileName(Filename);
    end;
mesgMessage.ContentType:='multipart/mixed';
// mesgMessage.SaveToFile('1.txt');
    with smtpSendMail do begin
      Host := Trim(editSMTPServer.Text);
      Connect;
      try
        Send(mesgMessage);
      finally Disconnect; end;
    end;
    Status('Completed');
finally butnSendMail.Enabled := True; end;
end;

2009-2-22 15:04:32

查看评语»»»

2009-2-26 11:15:21

I copied&pasted this code from an existing unit I have, and it should do exactly what you want. The trick however isn't just adding the image(s) as attachment but also telling OE or Outlook where to find them. To do this, use the "cid:imagename.jpg" tag in your HTML code for the images. Also, use the ExtraHeader property to set 'Content-ID' to the name of the image as it