Question

我有一个邮件收发数据库应用程序，我发现偶尔会收到一封附件，该附件不是Body字段的一部分，因此rtItem.EmbeddedObjects无法“看到”。

如果附件不在Body中，我如何识别附件？一旦我这样做，我该如何处理它？

我需要确定附件的类型（PDF，JPG，DOC，XLS等），将其分离，然后根据扩展名对其进行处理。

以下是对Body（RTF）字段和关联的EmbeddedObject进行所有检查的各种If语句。这不会捕获身体“外部”的附件。

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

我还有一个Body中没有任何内容但是$ File包含附件名称的文档。你怎么找到的？

Answer 1

您需要使用NotesDocument的EmbeddedObjects属性获取这些附件。该属性的并集以及所有富文本项的所有EmbeddedObjects属性使您可以访问所有附件。请注意，通常您只需要担心Body富文本项。

Answer 2

仅当我们在邮件服务器磁盘空间不足时，或者病毒扫描程序阻止访问附件时，我们遇到了类似的问题

带有附件的邮件分享数据库未出现在“正文”字段中

2 个答案: