壹佰网|ERP100 - 企业信息化知识门户

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 2113|回复: 4

[Domino B/S开发] 请问这个问题该如何解决?

[复制链接]
发表于 2005/6/9 13:22:12 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ: 83569622  。

您需要 登录 才可以下载或查看,没有帐号?注册

x
我有一个OA,在使用其中的公文流转时出现如下错误提示:

4294Unable to send mail, no match found in Name & Address Book(s)

请问该如何解决?
发表于 2005/6/10 10:43:57 | 显示全部楼层
no match found in Name & Address Book(s)

这句话已经很明显了,你用程序发送邮件的那个人在names.nsf里找不到~就是这样而已
 楼主| 发表于 2005/6/10 14:30:50 | 显示全部楼层
关键是这个用户存在
发表于 2005/6/11 01:42:40 | 显示全部楼层
是程序做的话,自己调试一下,看看取的用户名对不对,不是用户在就可以了,取的不对当然也发不了
 楼主| 发表于 2005/6/12 18:36:23 | 显示全部楼层
如下:

For i = 0 To Ubound(NotesManList)
Set msgnote = New NotesDocument(db)
msgnote.Form = "MessageBoard"
msgnote.IsReadFlag = 0
msgnote.ChineseName = note.CurrentUser(0)
msgnote.CreateAuthor = note.CurrentUser(0)
msgnote.CreateDate = Now
msgnote.Subject = " 请评阅文档: " & note.Subject(0)
'设置文档的读者
Set tmpReader = New NotesItem( msgnote, "FileReaders", NotesManList(i),READERS )

Set rtitem = New NotesRichTextItem(msgnote, "Body")
If IsLink(0) = "1" Then '1 连接文档 ,其他不连接
Call rtitem.AppendText( "希望你评阅的文档标题:" )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText( note.Subject(0) )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText( "请单击图标评阅该文档" )
Call rtitem.AppendDocLink(note, note.Subject(0))
Else
rtitem.AppendText("有文件需要你评阅,请尽快办理!")
End If

Call msgnote.Send(False,NotesManList(i))
Next

 

上面通过Call msgnote.Send(False,NotesManList(i))发的邮件标志是已读标志,请问如何将邮件设置为未读标志啊? 
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|小黑屋|手机版|壹佰网 ERP100 ( 京ICP备19053597号-2 )

Copyright © 2005-2012 北京海之大网络技术有限责任公司 服务器托管由互联互通
手机:13911575376
网站技术点击发送消息给对方83569622   广告&合作 点击发送消息给对方27675401   点击发送消息给对方634043306   咨询及人才点击发送消息给对方138011526

GMT+8, 2025/11/30 00:01 , Processed in 0.014786 second(s), 14 queries , File On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表