Question

我想使用VBscript打开模板（或.msg），编辑文本正文，同时保留格式，然后最后发送电子邮件。

电子邮件中有一个部分名为＆＃34;插入日期＆＃34;我想在哪里插入日期。

这是我目前的一些代码：

Set ol = CreateObject("Outlook.Application") 
Set msg = ol.CreateItemFromTemplate([location of template file] 

Set doc = msg.GetInspector.WordEditor 

If Not doc Is Nothing Then 
    doc.application.selection.find.execute _ 
        "insert date", , , , , , , , , DateValue(Now() - Weekday(Now(), vbMonday) - 2), wdReplaceAll 
End If

不幸的是，这不会取代文字，而只是突出显示文字，我无法再做任何事情了。

另一个相关问题：我是编码新手，我使用的是VBScript，因为我来自VBA，我对文档做了非常类似的事情。看起来VBScript不仅限制性，而且我发现它非常容易使用（也许是因为它不是非常强大？）是否有其他语言可用于自动化此类事物并与Outlook交互？也许Python，但我不知道从何处开始使用Microsoft Office集成。注意：我相信很多编码语言都可以做到这一点，但我受限于我在工作中可以使用的东西，因此肯定不会支持任何不太知名的语言：（

Answer 1

我不知道vbs（或替代品）....

但是当你用outlook-vba标记这个时，我正在用这段代码做同样的事情：

mailitem.HTMLBody = Replace(mailitem.HTMLBody, "text old", "text new" & now())

您还可以使用html-tags将文字设为粗体，更大或其他内容。

最高

VB脚本，修改文本正文，同时保持格式

1 个答案: