我有一个 mail-in 数据库应用程序,但发现偶尔会收到一封电子邮件,该附件带有不属于“正文”字段的一部分,因此无法被 rtItem.EmbeddedObjects“看到”。
如果附件中没有附件,我如何识别该附件,一旦找到附件,该如何处理?
我需要确定附件的类型(PDF,JPG,DOC,XLS,etc.),分离附件,然后根据扩展名对其进行处理。
这是各种 If 语句,它们对 Body(RTF)字段和关联的 EmbeddedObjects 进行所有检查。这不会捕获到“身体”外部的附件。
Set rtItem = mailDoc.Getfirstitem("Body")
If ( rtItem.Type = RICHTEXT ) Then
If Not (IsEmpty(rtItem.EmbeddedObjects)) Then
ForAll o In rtItem.EmbeddedObjects
If (o.Type = EMBED_ATTACHMENT) Then
noAttachment = True
Else
noAttachment = True
End If
End ForAll
Else
noAttachment = True
End if
Else
noRTF = True
End If
我还有一个文档,正文中没有任何内容,但$File 包含附件名称。你怎么找到的?
2 回答
您需要使用 NotesDocument 的 EmbeddedObjects 属性获取这些附件。该属性的并集加上所有富文本项的所有 EmbeddedObjects 属性,使您可以访问所有附件。请注意,通常您只需要担心“正文”富文本项。
仅供参考,当邮件服务器磁盘空间不足或病毒扫描程序阻止访问附件时,我们遇到了类似的问题