如何在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

如果你使用"&"，你需要将两个字符串组合在一起，也许它会起作用。。。