Как преобразовать тело письма в .pdf - PullRequest
Новая
       37

Как преобразовать тело письма в .pdf

1 голос
/ 24 ноября 2011

Я должен преобразовать письмо в .pdf без заголовка, который включает в себя информацию о дате, получателях, копии и т. Д. Кто-нибудь, как сделать это простым способом?

Мое другое решениебыло бы скопировать все тело письма в новый текстовый документ и сохранить его как .pdf, но я также не знаю, как скопировать все тело через VBA.

[РЕДАКТИРОВАТЬ JMax из комментариев]
Вот код, который я пробовал: 

sBody = oMail.HTMLBody
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
wrdApp.Documents.Add "C:\asd\Releasemail.dotx"
wrdApp.Documents("Dokument1").Bookmarks().Item("Releaseinhalt").Range.Text = sBody

Я печатаю весь свой HTML в формате .doc, но мне нужно телопочта, как показано в Outlook, а не разметка, которая создает этот вид.Например, если я нажимаю Ctrl + a и Ctrl + c в Outlook и нажимаю Ctrl + v в Word, я получаю текст со всеми его стилями, скопированными в Word.
Как это сделать в VBA?

1 Ответ

0 голосов
/ 24 ноября 2011

Если вы хотите получить только тело письма, вы должны использовать такой тип заявления: 

Dim Msg As Outlook.MailItem
Body = Msg.HTMLBody

Другой пример можно найти в этом блоге и * 1006.* в VBA Express

Попробуйте и вернитесь, когда у вас возникнет проблема с каким-либо кодом.

[EDIT]
Чтобы получить содержимое тела вместо HTMLВы можете использовать: Msg.Body, но тогда вы, вероятно, потеряете форматирование сообщения.

...