这是我的问题：我有一个富文本精简字段，用于存储联系人照片。该字段的参数是： - 仅允许带有图像附件名称的缩略图（必填）= ContactPhoto Parameter of the Rich Text Lite
当用户点击它时，会打开一个标准导入对话框（由Notes自动管理），并且可以选择所有图像类型，如下所示： ScreenShot of the import dialog box
使用以下代码，我可以检查照片的大小：
Set uidoc=ws.CurrentDocument
Call uidoc.Refresh(True,True)
Set doc=uidoc.Document
oneKB = 1024
PhotoTrouve = False
Forall i In doc.Items
If i.type = Attachment Then
Set emb = doc.GetAttachment(i.values(0))
If emb.source="ContactPhoto" Then
PhotoTrouve = True
If emb.filesize > (50 * oneKB) Then
strError="The size of the photo should be less than 50 Kb."
End If
End If
End If
End Forall
If PhotoTrouve= False Then
strError="Photo is mandatory."
End If
但这还不够。我还需要检查这是否是一个.jpg文件。问题是，因为这是一个缩略图，它的名字是ContactPhoto，没有任何扩展名，我不知道如何获得用户选择的文件的原始扩展名（似乎不可能）。
所以我的问题是：是否可以强制使用“thumbnail rich text lite”字段的标准对话框，以便它只为用户提供.jpg扩展文件类型？怎么样？
如果没有，您是否知道检查原始文件是否为.jpg文件的解决方案？
注意：即使我通过示例命名附件CPhoto.jpg（而不是ContactPhoto），用户也可以选择所有类型的图像，而不仅仅是jpg。照片以CPhoto.jpg的名义保存在文档的$ FILE中，但我不认为该文件最终是真正的.jpg格式。我绝对需要一个jpg图像，因为我的最终目标是将该图像导出到xml文件中，格式为jpg。
非常感谢您的回复和帮助。 卡伦