马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ: 83569622 。
您需要 登录 才可以下载或查看,没有帐号?注册
x
大家好,本人是新手,在学习通过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 于 2005-4-10 15:36:38 修改过]
[本贴已被 domino_tw 于 2005-4-10 15:43:10 修改过]
[本贴已被 domino_tw 于 2005-4-10 15:47:50 修改过] |