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

如果您使用＆＃34;＆amp;＆＃34;也许它可以工作，您需要将两个字符串合并...

如何在Outlook 2007中组合电子邮件和约会格式的文本？

1 个答案: