一个关于附件图标的问题

domino_tw

大家好，本人是新手，在学习通过com接口调用domino对象中遇到一点小问题，请不吝赐教，谢谢！
程序源码大致如下：

   Dim session As New NotesSession
   session.Initialize ("password")
   
   Dim db As NotesDatabase
   Set db = session.GetDatabase("server", "mail\\user.nsf", False)
   
   Dim doc As NotesDocument
   Set doc = db.GetDocumentByUNID("C2BF4BC50EB409B348256FDD004B397D")
   
   Dim rtitem As NotesRichTextItem
   Set rtitem = doc.GetFirstItem("Body")
   
   rtitem.EmbedObject EMBED_ATTACHMENT, "", "C:\33.JPG"
   
   doc.Save True, True, True
   
问题是，我保存该文档后，在notes邮件中打开时，附件的图标和文件名与手工操作的不一样，如图所示
第一个附件是手动添加的，第二个附件33.jpg是上面一段代码运行的，图标变为一个灰色方块,而且文件名也不在方块中,前面有一个"-"号与灰色方块相连,为什么会这样呢？如何使代码添加附件的图标与手动添加附件的图标相一致，请各位高手指点一下，谢谢！



运行环境：win2000
          notes 5.05
          office xp word VBA

domino_tw

这个问题很难吗,应该是个比较常见的问题吧,请斑竹大人现身吧

[本贴已被 domino_tw 于 2005-4-10 19:51:49 修改过]

buglary36

请使用EMBED_OBJECTLINK!!!