Как добавить встроенный PDF-документ с помощью VBA?

Question

Я пытаюсь создать черновик электронной почты Outlook со встроенным PDF-документом.

Мне удалось добавить встроенные изображения с помощью тега html img src, но это не работает для документов.Что я должен изменить, чтобы добавить PDF вместо изображений?

Я попытался использовать позицию, но не добавляет в правильную позицию, вместо этого добавляет в конец текста.

Set outlook = createObject(“Outlook.Application”)
Set mailItem = outlook.CreateItem(olMailItem)

With mailItem
    .BodyFormat = olFormatRichText
    .Body = “hello world”
    .Attachments.add “file.pdf”, olByValue, 6
End With

Answer 1

Кажется, что функция добавления работает только после того, как вы вызвали display, иначе она будет добавлять только в конец всего тела

Set outlook = createObject(“Outlook.Application”)
Set mailItem = outlook.CreateItem(olMailItem)

With mailItem
    .BodyFormat = olFormatRichText
    .Body = “hello world”
    .Display
    .Attachments.add “file.pdf”, olByValue, 6
End With

Answer 2

Вы можете сделать это только в формате RTF, а не в HTML.При вызове MailItem.Attachments.Add укажите соответствующий параметр Position.