我想在Lotus Notes 9邮件正文中添加一个文件而不是旁边的附件文件

Question

我正在自动化服务，并且我能够使用xls vba代码创建邮件但我的问题是该文件是在邮件正文的外部附着，而我希望有以下情况：

=IFERROR(INDEX($B$4:$B$8,MATCH(1,(G4>=$C$4:$C$8)*(G4<=$D$4:$D$8),0)),"NOT FOUND")

我使用了以下代码

Mail Body

text...

attached file

text...

End of the mail Body 

我想知道如何将文件“放在”正文中，而不是身体外部的附件。

谢谢

Answer 1

只需将附件添加到ortItem RichText项“正文”

中

With ortItem
   ...
   .EMBEDOBJECT(EMBED_ATTACHMENT, "", cstrAttachment, "Attachment" )

您不需要额外的obAttachment RichText项目。