Как объединить электронную почту и формат отформатированного сообщения в Outlook 2007?

Question

У меня есть система обучения, которая отправляет мне файлы .vcs по электронной почте, которые мне нужно импортировать в Outlook через раздражающий процесс - текст письма - это большая часть интересной информации.

Хотя я могу довольно легко добавить файл .vcs в свой календарь, я хочу добавить весь текст письма к уведомлению о встрече.

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

Я использую процесс WordEditor для доступа к форматированному тексту в настоящее время (это единственный способ, которым я смог это сделать, если есть лучшие способы, я не привязан к этому). Мне не удалось найти какие-либо методы в версии Outlook, чтобы делать то, что я ищу.

Dim emailInsp As Outlook.Inspector 
Dim apptInsp As Outlook.Inspector 
Dim emailDoc As Word.Document 
Dim apptDoc As Word.Document 
'add the text of the email 
Set apptInsp = AppointmentItem.GetInspector 
Set emailInsp = myMail.GetInspector 
Set emailDoc = emailInsp.WordEditor 
Set apptDoc = apptInsp.WordEditor 

'this will replace the appointment text with email text 
apptDoc.Content.FormattedText = emailDoc.Content.FormattedText 

'I want to do something like one of these but neither works 
'apptDoc.Content.FormattedText = emailDoc.Content.FormattedText + apptDoc.Content.FormattedText 
'apptDoc.Range(0).FormattedText = emailDoc.Content.FormattedText 

• Как объединить форматированный текст из электронной почты и назначения в Outlook?

Answer 1

Я немного поздно;)

apptDoc.Content.FormattedText = emailDoc.Content.FormattedText & apptDoc.Content.Format 

Может быть, это работает, если вы используете "&", который вам нужно объединить две строки ...