Question

我想使用RTF格式的字符串向Outlook任务添加额外信息。我得到了以下代码：

With objTask
    .Body = objJournal.Body + vbCrLf + vbCrLf + .Body
    .Body = "Categories:" + vbTab + objJournal.Categories + vbCrLf + vbCrLf + .Body
    .Body = "Duration:" + vbTab + CStr(objJournal.Duration) + vbCrLf + vbCrLf + .Body
    .Body = "End:" + vbTab + vbTab + Format(objJournal.Start, "ddd yyyy-MM-dd HH:mm") + vbCrLf + .Body
    .Body = "Start:" + vbTab + vbTab + Format(objJournal.End, "ddd yyyy-MM-dd HH:mm") + vbCrLf + .Body
    .Body = "Entry Type:" + vbTab + objJournal.Type + vbCrLf + vbCrLf + .Body
    .Body = "Subject:" + vbTab + vbTab + objJournal.Subject + vbCrLf + .Body
End With

我知道您可以使用.RTFBody来保留格式，但有人可以帮助我如何转换我想要添加到RTF格式的字符串吗？

亲切的问候，

Wamors

Answer 1

手动创建RTF文件，在记事本中打开nit，并使用fild内容作为您自己的模板。请记住，在VBA中设置RTFBody可能不起作用 - 它只能使用后期绑定。

另外，不要将Body属性用作中间变量 - 设置检索邮件正文很昂贵。完成后，使用专用变量并仅将Body属性设置一次。

以RTF格式向outlook任务添加文本

1 个答案: