使用扩展的mapi函数将图像嵌入到Outlook中

Question

我需要在电子邮件中嵌入图像并在Outlook中发送之前预览电子邮件.CDO和赎回不是一种选择.

我尝试了以下代码,但图像只显示为一个小块.

  procedure AddAttachment(FullFileName: String; Attachments: Outlook2000.Attachments; CID: String);
  const
    PR_ATTACH_CONTENT_ID   = $3712001E;
    PR_ATTACH_CONTENT_ID_W = $3712001F; // Unicode
    PR_ATTACH_MIME_TAG     = $370E001E;
    PR_ATTACH_ENCODING     = $37020102;
  var
    IAttach: IMAPIProp;
    Prop: PSPropValue;
    AAttachment: Outlook2000.Attachment;
    FileName: String;
    PropValue: TSPropValue;
    Prop1: TSPropTagArray;
  begin
    FileName := ExtractFileName(FullFileName);
    Prop := nil;
    try
      AAttachment := Attachments.Add(FullFileName, olByValue, 1, FileName);
      IAttach := AAttachment.MAPIOBJECT as IMAPIProp;
      if Assigned(IAttach) then
        try
          PropValue.ulPropTag := PR_ATTACH_MIME_TAG;
          PropValue.Value.lpszA := 'image/jpeg';
          HrSetOneProp(IAttach, @PropValue);
          PropValue.ulPropTag := PR_ATTACH_CONTENT_ID;
          PropValue.Value.lpszA := PAnsiChar(AnsiString(CID));
          HrSetOneProp(IAttach, @PropValue);
        finally
          if Assigned(Prop) then MAPIFreeBuffer(Prop);
          IAttach := nil;
        end;
    except
    end;
  end;

Answer 1

发问者尚未发布他的 HTML 文本。我怀疑问题是他的 CID 网址格式错误 - 但我还没有测试过这一点。

如果 Content-ID 标头设置为：

Content-Type: image/jpeg
Content-Disposition: inline
Content-ID: afd383988e86ad958709@u

然后 HTML 应该像这样引用它：

<img width="100" height="100" href="cid:afd383988e86ad958709@u" />

特别是，cid URL 必须具有前缀“cid:”，但 content-id 标头不得具有前缀。（guid 是 content-id 的一个不错的选择，只不过它必须包含一个@符号。为了遵守规定，您可以将“@u”附加到 guid 后面。）

这足以使电子邮件在接收端正确显示。我不知道发送前是否可以在 Outlook 中正确预览。

您可能还希望看到这个问题：

• 使用java mail将图像嵌入到html电子邮件中