Вставить изображение в Outlook, используя расширенные функции mapi - PullRequest
Новая
       16

Вставить изображение в Outlook, используя расширенные функции mapi

5 голосов
/ 29 июля 2010

Мне нужно встроить изображения в электронное письмо и предварительно просмотреть его, прежде чем оно будет отправлено в 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;

1 Ответ

1 голос
/ 15 октября 2012

Опрашивающий не разместил свой HTML-текст. Я подозреваю, что проблема в том, что его CID URL были искажены - однако я не проверял это.

Если для заголовка Content-ID установлено следующее: 

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

Тогда HTML должен ссылаться на него так: 

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

В частности, URL-адрес cid должен иметь префикс «cid:», а заголовок content-id - нет. (Guid является хорошим выбором для идентификатора контента, за исключением того, что он ДОЛЖЕН содержать символ @. Для соответствия вы можете добавить '@u' к guid.)

Этого достаточно, чтобы правильно отобразить электронную почту на принимающей стороне. Будет ли он делать предварительный просмотр в Outlook перед отправкой, я не знаю.

Вы можете также увидеть этот вопрос:

...