0

我有一个培训系统，它通过电子邮件将 .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 中合并电子邮件和约会中的格式化文本？
4

1 回答 1

0

我有点晚了；）

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

如果您使用“&”可能会起作用，您需要将两个字符串组合在一起......

于 2013-10-25T11:25:16.370 回答